zoed2 قام بنشر أكتوبر 28, 2019 مشاركة قام بنشر أكتوبر 28, 2019 السلام عليكم ممكن تعديل هذا الكود بحيث يمكن اخذ اسكنر بدون المرور مباشرتا بدون المرور بهذه الصفحة وهذا هو الكود 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 رابط هذا التعليق شارك More sharing options...
zoed2 قام بنشر أكتوبر 29, 2019 الكاتب مشاركة قام بنشر أكتوبر 29, 2019 (معدل) هل يوجد حل لديكم اخوتي لهذه تم تعديل أكتوبر 29, 2019 بواسطه zoed2 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أكتوبر 29, 2019 مشاركة قام بنشر أكتوبر 29, 2019 وعليكم السلام 🙂 شوف هذا الرابط جعفر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.