mm9319

السلام عليكم ورحمة الله وبركاته لدي كود يحفظ صورة من الماسح الضوئي في مكان محدد Form_imgresivtbl - 1 Private Sub Command45_Click() Me.sernnoo = Nz(DMax("[sernnoo]", "imgresivtbl")) + 1 Dim Ret As Long, PictureFile As String PictureFile = "f:\الوارد" & "رقم معاملة & "Me.moamlano & "رقم صفحة & "Me.sernnoo & ".jpg" Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile) If Ret = 0 Then Me.ImagePath1 = PictureFile Me![ImageFrame1].Picture = Me![ImagePath1] Else "تحذير" ,vbCritical ,"فشلت عملية المسح الضوئي" MsgBox End If End Sub ارغب في تعديله للحفظ في موقع قاعدة البيانات وانشاء مجلد باسم السنة يكون الحفظ داخلة تحديد السنة يكون من مصدر عنصر التحكم الصادر والوارد لعام