تعديل كود اضافة صورة من pc

[وعد المحلاوي]

السلام عليكم 

اخون ممكن تعديل على كود اضافة صورة من الكمبيوتر بحيث يكون لكل صوره ملف خاص بها  يحمل رقم الموظف او الرقم التسلسلي على نفس مسار الحفظ

للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.zip

تم تعديل فبراير 4, 2024 بواسطه وعد المحلاوي

[kkhalifa1960]

تفضل أستاذ @وعد المحلاوي حسب مافهمت دون المساس بأعمالك.

للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور-1.rar

[وعد المحلاوي]

15 دقائق مضت, kkhalifa1960 said:

تفضل أستاذ @وعد المحلاوي حسب مافهمت دون المساس بأعمالك.

للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور-1.rar 819.35 kB · 0 downloads

شكراً استاذ تحياتي لك 

[وعد المحلاوي]

السلام عليكم استاذي الكريم kkhalifa1960

للتوضح البرنامج انا منزله من المنتدى هو ليس لي 

انا اريد التعديل على كود اضافة صورة من الكمبيوتر عند الضغط على اضافة صورة يفتح فولدر فرعي باسم الموظف بنفس مسار حفظ الصوره   وتذهب الصورة مباشرة الى الفولدر  

هذا هو الكود في زر البرنامج add pic

تحياتي لك
 

للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.zip

تم تعديل فبراير 4, 2024 بواسطه وعد المحلاوي

[وعد المحلاوي]

16 ساعات مضت, وعد المحلاوي said:

السلام عليكم استاذي الكريم @kkhalifa1960

للتوضح البرنامج انا منزله من المنتدى هو ليس لي 

انا اريد التعديل على كود اضافة صورة من الكمبيوتر عند الضغط على اضافة صورة يفتح فولدر فرعي باسم الموظف بنفس مسار حفظ الصوره   وتذهب الصورة مباشرة الى الفولدر  

هذا هو الكود في زر البرنامج add pic

تحياتي لك
 

للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.zip 275.23 kB · 3 downloads

 

[وعد المحلاوي]

45 دقائق مضت, وعد المحلاوي said:

kkhalifa1960

لسلام عليكم استاذي الكريم 

للتوضح البرنامج انا منزله من المنتدى هو ليس لي 

انا اريد التعديل على كود اضافة صورة من الكمبيوتر عند الضغط على اضافة صورة يفتح فولدر فرعي باسم الموظف بنفس مسار حفظ الصوره   وتذهب الصورة مباشرة الى الفولدر  الجديد

هذا هو الكود في زر البرنامج add pic

 

للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.zip

[سامي الحداد]

السلام عليكم 

تفضل اخي الكريم حسب ما فهمت من طلبك.

Private Sub cmd_add_pic_Click()
    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 employees_Photo_Path As String
        employees_Photo_Path = GetOpenFile_CLT("c:\windows\desktop\", ".حدد مكان الصورة")

        If employees_Photo_Path <> "" Then
            Me![Import_pictures_path] = employees_Photo_Path
            Me![Import_pictures_path] = LCase(Me![Import_pictures_path])
            Me![Image].Picture = Me![Import_pictures_path]

            Dim Project_path As String
            Project_path = Application.CodeProject.Path

            Dim EmployeeFolder As String
            EmployeeFolder = Project_path & "\Images_Company\Employees_Photo\" & Me.Emp_Name

            If Dir(EmployeeFolder, vbDirectory) = "" Then
                MkDir EmployeeFolder
            End If

            Dim Dir_employees_Photo As String
            Dir_employees_Photo = EmployeeFolder & "\" & Me.Emp_Code & ".jpg"

            FileCopy employees_Photo_Path, Dir_employees_Photo
            Me.TxtImagePath = Dir_employees_Photo
            Me.Image_d.Visible = False
        End If
    End If

ErrHandler:
    If Err.Number = 94 Then
        Resume Next
    End If
End Sub

واليك الملف 

بالتوفيق

test scan4-للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.mdb

[وعد المحلاوي]

منذ ساعه, سامي الحداد said:

السلام عليكم 

شكرا استاذ سامي الحداد وجزاك الله خير انا ممنون منك 

 

Private Sub cmd_add_pic_Click()
    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 employees_Photo_Path As String
        employees_Photo_Path = GetOpenFile_CLT("c:\windows\desktop\", ".حدد مكان الصورة")

        If employees_Photo_Path <> "" Then
            Me![Import_pictures_path] = employees_Photo_Path
            Me![Import_pictures_path] = LCase(Me![Import_pictures_path])
            Me![Image].Picture = Me![Import_pictures_path]

            Dim Project_path As String
            Project_path = Application.CodeProject.Path

            Dim EmployeeFolder As String
            EmployeeFolder = Project_path & "\Images_Company\Employees_Photo\" & Me.Emp_Name

            If Dir(EmployeeFolder, vbDirectory) = "" Then
                MkDir EmployeeFolder
            End If

            Dim Dir_employees_Photo As String
            Dir_employees_Photo = EmployeeFolder & "\" & Me.Emp_Code & ".jpg"

            FileCopy employees_Photo_Path, Dir_employees_Photo
            Me.TxtImagePath = Dir_employees_Photo
            Me.Image_d.Visible = False
        End If
    End If

ErrHandler:
    If Err.Number = 94 Then
        Resume Next
    End If
End Sub

واليك الملف 

بالتوفيق

test scan4-للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.mdb 432 kB · 0 downloads

 

[وعد المحلاوي]

السلام عليكم استاذ سامي الحداد 

الكود شغال بس في مشكله بعرض الصوره بعد الحفظ والرجوع اليها

كود حذف الصور من المجلد مش شغال 

اذا ممكن التعديل علي كود الحذف 

وحل مشكلة عرض الصورة في النموذج

تحياتي لك

test scan4-للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.mdb

[سامي الحداد]

اخوي العزيز  اسف على التاخير اليك التعديل كما طلبت.

اليك الملف 

بالتوفيق

للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.rar

[وعد المحلاوي]

السلام عليكم استاذي سامي الحداد

ماعرف كيف اشكرك والله العظيم فضلك على راسي تحياتي لك وربي يوفقك ويحفظك من كل شر 

كلشي تمام بارك الله فيك

[سامي الحداد]

الشكر لله عز وجل

حياك الله وجزاك الله خيرا 

تحياتي

[Aws86A]

@سامي الحداد

السلام عليكم استاذ سامي لدي قاعدة بيانات واحتاج استشارة اذا ممكن لديك ايميل

[ابوخليل]

2 ساعات مضت, Aws86A said:

@سامي الحداد

السلام عليكم استاذ سامي لدي قاعدة بيانات واحتاج استشارة اذا ممكن لديك ايميل

الموضوع قديم من شهور مضت

ضع استشارتك في عنوان وموضوع جديد .. واخوانك هنا لن يألوا جهدا في مساعدتك