البحث في الموقع
Showing results for tags 'ي'.
تم العثور علي 1 نتيجه
-
السلام عليكم ورحمة الله وبركاته لدي كود يحفظ صورة من الماسح الضوئي في مكان محدد 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 ارغب في تعديله للحفظ في موقع قاعدة البيانات وانشاء مجلد باسم السنة يكون الحفظ داخلة تحديد السنة يكون من مصدر عنصر التحكم الصادر والوارد لعام
