وعد المحلاوي قام بنشر فبراير 4 مشاركة قام بنشر فبراير 4 (معدل) السلام عليكم اخون ممكن تعديل على كود اضافة صورة من الكمبيوتر بحيث يكون لكل صوره ملف خاص بها يحمل رقم الموظف او الرقم التسلسلي على نفس مسار الحفظ للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.zip تم تعديل فبراير 4 بواسطه وعد المحلاوي رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر فبراير 4 مشاركة قام بنشر فبراير 4 تفضل أستاذ @وعد المحلاوي حسب مافهمت دون المساس بأعمالك. للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور-1.rar رابط هذا التعليق شارك More sharing options...
وعد المحلاوي قام بنشر فبراير 4 الكاتب مشاركة قام بنشر فبراير 4 15 دقائق مضت, kkhalifa1960 said: تفضل أستاذ @وعد المحلاوي حسب مافهمت دون المساس بأعمالك. للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور-1.rar 819.35 kB · 0 downloads شكراً استاذ تحياتي لك رابط هذا التعليق شارك More sharing options...
وعد المحلاوي قام بنشر فبراير 4 الكاتب مشاركة قام بنشر فبراير 4 (معدل) السلام عليكم استاذي الكريم kkhalifa1960 للتوضح البرنامج انا منزله من المنتدى هو ليس لي انا اريد التعديل على كود اضافة صورة من الكمبيوتر عند الضغط على اضافة صورة يفتح فولدر فرعي باسم الموظف بنفس مسار حفظ الصوره وتذهب الصورة مباشرة الى الفولدر هذا هو الكود في زر البرنامج add pic تحياتي لك للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.zip تم تعديل فبراير 4 بواسطه وعد المحلاوي رابط هذا التعليق شارك More sharing options...
وعد المحلاوي قام بنشر فبراير 5 الكاتب مشاركة قام بنشر فبراير 5 16 ساعات مضت, وعد المحلاوي said: السلام عليكم استاذي الكريم @kkhalifa1960 للتوضح البرنامج انا منزله من المنتدى هو ليس لي انا اريد التعديل على كود اضافة صورة من الكمبيوتر عند الضغط على اضافة صورة يفتح فولدر فرعي باسم الموظف بنفس مسار حفظ الصوره وتذهب الصورة مباشرة الى الفولدر هذا هو الكود في زر البرنامج add pic تحياتي لك للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.zip 275.23 kB · 3 downloads رابط هذا التعليق شارك More sharing options...
وعد المحلاوي قام بنشر فبراير 5 الكاتب مشاركة قام بنشر فبراير 5 45 دقائق مضت, وعد المحلاوي said: kkhalifa1960 لسلام عليكم استاذي الكريم للتوضح البرنامج انا منزله من المنتدى هو ليس لي انا اريد التعديل على كود اضافة صورة من الكمبيوتر عند الضغط على اضافة صورة يفتح فولدر فرعي باسم الموظف بنفس مسار حفظ الصوره وتذهب الصورة مباشرة الى الفولدر الجديد هذا هو الكود في زر البرنامج add pic للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.zip رابط هذا التعليق شارك More sharing options...
أفضل إجابة سامي الحداد قام بنشر فبراير 5 أفضل إجابة مشاركة قام بنشر فبراير 5 السلام عليكم تفضل اخي الكريم حسب ما فهمت من طلبك. 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 رابط هذا التعليق شارك More sharing options...
وعد المحلاوي قام بنشر فبراير 5 الكاتب مشاركة قام بنشر فبراير 5 منذ ساعه, سامي الحداد 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 رابط هذا التعليق شارك More sharing options...
وعد المحلاوي قام بنشر فبراير 5 الكاتب مشاركة قام بنشر فبراير 5 السلام عليكم استاذ سامي الحداد الكود شغال بس في مشكله بعرض الصوره بعد الحفظ والرجوع اليها كود حذف الصور من المجلد مش شغال اذا ممكن التعديل علي كود الحذف وحل مشكلة عرض الصورة في النموذج تحياتي لك test scan4-للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.mdb رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر فبراير 5 مشاركة قام بنشر فبراير 5 اخوي العزيز اسف على التاخير اليك التعديل كما طلبت. اليك الملف بالتوفيق للمسح من سكانر نوع اوتوماتيك فيدر وبدن تحديد عدد الصور.rar رابط هذا التعليق شارك More sharing options...
وعد المحلاوي قام بنشر فبراير 5 الكاتب مشاركة قام بنشر فبراير 5 السلام عليكم استاذي سامي الحداد ماعرف كيف اشكرك والله العظيم فضلك على راسي تحياتي لك وربي يوفقك ويحفظك من كل شر كلشي تمام بارك الله فيك رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر فبراير 9 مشاركة قام بنشر فبراير 9 الشكر لله عز وجل حياك الله وجزاك الله خيرا تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.