تعديل كود حفظ صور الماسح

[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

ارغب في تعديله للحفظ في موقع قاعدة البيانات وانشاء مجلد باسم السنة يكون الحفظ داخلة

تحديد السنة يكون من مصدر عنصر التحكم     الصادر والوارد لعام