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
ابو ياسين المشولي قام بنشر يونيو 4, 2020 قام بنشر يونيو 4, 2020 ارف النموذج اللي فيه الخطاء للتجربه 1
omarAbdalrazaq قام بنشر يونيو 4, 2020 الكاتب قام بنشر يونيو 4, 2020 6 ساعات مضت, ابو ياسين المشولي said: ارف النموذج اللي فيه الخطاء للتجربه https://drive.google.com/file/d/1DtZlIRN5IiHsJX0wtb3f0ZILMzVR68aX/view?usp=sharing
ابو ياسين المشولي قام بنشر يونيو 5, 2020 قام بنشر يونيو 5, 2020 للاسف لم استطيع الدخول للموقع حمل النموذج هنا لو سمحت 1
omarAbdalrazaq قام بنشر يونيو 5, 2020 الكاتب قام بنشر يونيو 5, 2020 منذ ساعه, ابو ياسين المشولي said: للاسف لم استطيع الدخول للموقع حمل النموذج هنا لو سمحت عفو استاذ لا يسمح الموقع ان ارفعة كون حجمة اكثر من 1 ميجا هذا رابط اخر عسى ان تستطيع تحميلة مع فائق شكري مقدما https://drive.google.com/file/d/1qeLaWW8gqQ-VKpEWgifKd4aEf8QjAH32/view?usp=sharing
أفضل إجابة Gamal.Saad قام بنشر يونيو 5, 2020 أفضل إجابة قام بنشر يونيو 5, 2020 بعد اذن أستاذ أبوياسين : الخطأ بسبب قيمة NULL لمربع النص X بالنموذج والحل: اكتب بعد السطر الرابع (بعد تعيين قيمة Y ) : x = y 2
omarAbdalrazaq قام بنشر يونيو 5, 2020 الكاتب قام بنشر يونيو 5, 2020 34 دقائق مضت, Gamal.Saad said: بعد اذن أستاذ أبوياسين : الخطأ بسبب قيمة NULL لمربع النص X بالنموذج والحل: اكتب بعد السطر الرابع (بعد تعيين قيمة Y ) : x = y اشكرك استاذنا الفاضل جعلة الله في ميزان حسناتك 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.