اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by Gamal.Saad,

الردود الموصى بها

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

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

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

 

17.PNG

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

 

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

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

رابط هذا التعليق
شارك

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

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

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

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


x = y

 

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

  • Like 1
رابط هذا التعليق
شارك

  • 3 weeks later...

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information