السلام عليكم اساتذتي الاعزاء
لدي ملف لاحد الاخوة بالموقع لاضافة صور من جهاز الحاسوب وعمل مسح ضوئي للصور وهو يعمل جيدا
المطلوب سواء باضافة جدول فرعي مرتبط بالجدول الرئيسي او غيرها
تعديل الكود المرفق لكي يسمح باضافة اكثر من صورة عن طريق زر add pic بالنموذج
وعمل ترقيم للصور تسلسلي داخل ملفARCHIVE بجانب الملف
علما بان الكود يقوم بتسمية الصورة بناء على موضوع ورقم الكتاب
وشكرا لكم
On Error GoTo ErrHandler
If IsNull(Emp_Code) Or Emp_Code = "" Then
DoCmd.OpenForm "frmMassage"
Forms!frmMassage!lblMassage.Caption = " فضلاً يجب أن تقوم بإدخال كود الموظف حتى تتمكن من إضافة صورة الموظف "
Me.Emp_Code.SetFocus
Else
Dim Import_Path As String
Import_Path = GetOpenFile_CLT("c:\windows\desktop\", ".حدد مكان الصورة")
If Import_Path <> "" Then
Me![Import_pictures_path] = Import_Path
Me![Import_pictures_path] = LCase(Me![Import_pictures_path])
Me![Image].Picture = Me![Import_pictures_path]
Dim Dir_Archive, Dir_Import
Dim Project_path As String
Project_path = Application.CodeProject.path
Dir_Archive = Import_pictures_path
Dir_Import = Project_path & "\Archive" & "\Import" & "\" & Me.booksnumber & "_" & Me.subject & ".jpg"
FileCopy Dir_Archive, Dir_Import
Me.TxtImagePath = Dir_Import
Image_d.Visible = False
ErrHandler:
If Err.Number = 94 Then
Resume Next
End If
End If
End If
test.rar