تعديل كود

[zoed2]

السلام عليكم ممكن تعديل هذا الكود بحيث يمكن اخذ اسكنر بدون المرور مباشرتا بدون المرور بهذه الصفحة 

 

 

وهذا هو الكود 

 

Private Sub cmdScan1_Click()
Dim ons As String
Dim intPages As Integer
  Dim x   As String
       Dim scandiag As Object
       On Error GoTo errorhandle
       Dim Image As Object
       If IsNull([emp_name]) Or IsNull([emp_name]) Then
     MsgBox "åäÇß ÍÞá ÝÇÑÛ "
       Exit Sub
       MsgBox Err.Description
    Else
   
    
    
        x = mypathofdb() & "\images_company" & "\ÇáæÇÑÏÉ" & "\" & Me.emp_name & ".jpg"
        Set scandiag = CreateObject("wia.commondialog")
        Set Image = scandiag.ShowAcquireImage()
        
        Image.SaveFile x
        Me![AA1] = x
        Me![Image].Picture = Me![AA1]
        Me.Refresh
       
        MsgBox "Êã ÇáäÓÎ"
      End If
      Me.btnSave.Enabled = True
errorhandleexit:
        Exit Sub
errorhandle:
        MsgBox Err.Description
        Resume errorhandleexit
      
End Sub

 

 

 

[zoed2]

هل  يوجد حل لديكم اخوتي لهذه 

تم تعديل أكتوبر 29, 2019 بواسطه zoed2

[jjafferr]

وعليكم السلام 🙂

 

شوف هذا الرابط

 

جعفر