خطاء في كود السكنر

[omarAbdalrazaq]

السلام عليكم ورحمة الله

اساتذتنا واخواننا في هذا المنتدى تحية لكم

ارجو مساعدتي في خطاء برمجي عند الضغط على زر السكنر تظهر لي هذه الجملة   (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

 

[ابو ياسين المشولي]

ارف النموذج اللي فيه الخطاء للتجربه

[omarAbdalrazaq]

6 ساعات مضت, ابو ياسين المشولي said:

ارف النموذج اللي فيه الخطاء للتجربه

https://drive.google.com/file/d/1DtZlIRN5IiHsJX0wtb3f0ZILMzVR68aX/view?usp=sharing

[ابو ياسين المشولي]

للاسف لم استطيع الدخول للموقع

حمل النموذج هنا لو سمحت

[omarAbdalrazaq]

منذ ساعه, ابو ياسين المشولي said:

للاسف لم استطيع الدخول للموقع

حمل النموذج هنا لو سمحت

عفو استاذ لا يسمح الموقع ان ارفعة كون حجمة اكثر من 1 ميجا

 

هذا رابط اخر عسى ان تستطيع تحميلة مع فائق شكري مقدما

https://drive.google.com/file/d/1qeLaWW8gqQ-VKpEWgifKd4aEf8QjAH32/view?usp=sharing

[Gamal.Saad]

بعد اذن أستاذ أبوياسين :

الخطأ بسبب قيمة NULL لمربع النص X بالنموذج  والحل:

اكتب بعد السطر الرابع (بعد تعيين قيمة Y ) :

x = y

 

[omarAbdalrazaq]

34 دقائق مضت, Gamal.Saad said:

بعد اذن أستاذ أبوياسين :

الخطأ بسبب قيمة NULL لمربع النص X بالنموذج  والحل:

اكتب بعد السطر الرابع (بعد تعيين قيمة Y ) :

x = y

 

اشكرك استاذنا الفاضل جعلة الله في ميزان حسناتك

[ameer.iraq.93]

برنامج كلش حلو ومرتب ما شاء الله