omarAbdalrazaq قام بنشر يونيو 3, 2020 مشاركة قام بنشر يونيو 3, 2020 السلام عليكم ورحمة الله اساتذتنا واخواننا في هذا المنتدى تحية لكم ارجو مساعدتي في خطاء برمجي عند الضغط على زر السكنر تظهر لي هذه الجملة (Type mismatch) Private Sub أمر166_Click() On Error Resume Next Dim y y = [dd] & "\" & [رقم الطلب] Dim fs As Object Dim q As Object Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(y) = True Then Else Set q = fs.Createfolder(y) End If Dim hg, OldFile, DBwithEXT Dim fdialog As Office.FileDialog Dim filepath As String Dim sdialog As New WIA.CommonDialog Dim imagefile As WIA.imagefile On Error GoTo errorhandle Set fdialog = Application.FileDialog(msoFileDialogSaveAs) OldFile = Me.x DBwithEXT = Dir(OldFile) hg = y & "\" & [a] & " " & [b] & " " & Format([c], "yyyy-mm-dd") & " " & [d] & "." & Right(DBwithEXT, 3) With fdialog .Title = "Save as" .AllowMultiSelect = False .InitialFileName = [hg] If .Show Then filepath = .SelectedItems(1) ' Else Exit Sub End If Set imagefile = sdialog.ShowAcquireImage() imagefile.SaveFile filepath [ImagePath] = filepath End With errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit End Sub رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يونيو 4, 2020 مشاركة قام بنشر يونيو 4, 2020 ارف النموذج اللي فيه الخطاء للتجربه 1 رابط هذا التعليق شارك More sharing options...
omarAbdalrazaq قام بنشر يونيو 4, 2020 الكاتب مشاركة قام بنشر يونيو 4, 2020 6 ساعات مضت, ابو ياسين المشولي said: ارف النموذج اللي فيه الخطاء للتجربه https://drive.google.com/file/d/1DtZlIRN5IiHsJX0wtb3f0ZILMzVR68aX/view?usp=sharing رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يونيو 5, 2020 مشاركة قام بنشر يونيو 5, 2020 للاسف لم استطيع الدخول للموقع حمل النموذج هنا لو سمحت 1 رابط هذا التعليق شارك More sharing options...
omarAbdalrazaq قام بنشر يونيو 5, 2020 الكاتب مشاركة قام بنشر يونيو 5, 2020 منذ ساعه, ابو ياسين المشولي said: للاسف لم استطيع الدخول للموقع حمل النموذج هنا لو سمحت عفو استاذ لا يسمح الموقع ان ارفعة كون حجمة اكثر من 1 ميجا هذا رابط اخر عسى ان تستطيع تحميلة مع فائق شكري مقدما https://drive.google.com/file/d/1qeLaWW8gqQ-VKpEWgifKd4aEf8QjAH32/view?usp=sharing رابط هذا التعليق شارك More sharing options...
أفضل إجابة Gamal.Saad قام بنشر يونيو 5, 2020 أفضل إجابة مشاركة قام بنشر يونيو 5, 2020 بعد اذن أستاذ أبوياسين : الخطأ بسبب قيمة NULL لمربع النص X بالنموذج والحل: اكتب بعد السطر الرابع (بعد تعيين قيمة Y ) : x = y 2 رابط هذا التعليق شارك More sharing options...
omarAbdalrazaq قام بنشر يونيو 5, 2020 الكاتب مشاركة قام بنشر يونيو 5, 2020 34 دقائق مضت, Gamal.Saad said: بعد اذن أستاذ أبوياسين : الخطأ بسبب قيمة NULL لمربع النص X بالنموذج والحل: اكتب بعد السطر الرابع (بعد تعيين قيمة Y ) : x = y اشكرك استاذنا الفاضل جعلة الله في ميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
ameer.iraq.93 قام بنشر يونيو 22, 2020 مشاركة قام بنشر يونيو 22, 2020 برنامج كلش حلو ومرتب ما شاء الله 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان