User user

@jjafferr من فضلك محتاج اعمل الطريقة دى على نموذج مستمر موجود به كومب بوكس واحدة

لاحظ حضرتك انه هنا كرر بيانات العميل مش عايزين يكرار البيانات لو موجودة سابقا لاحظ الجدول

اشكرك على وقتك وتعبك وصلت لحل لها لكن للاسف بيكرر البيانات فى الجدول هل يوجد حل لذلك لعدم تكرار البيانات

للرفع

لاحظ حضرتك انه فى القاعدة TEST2 اللى موجود فيه الجدول كرر الID واحد فى الاثنين @ابا جودى TEST.rar

اشكرك على الاهتمام استاذنا الفاضل القصد محتاج الكود ينفذ من قاعدة اللى قاعدة اخرى

حضرتك ده كود الحاق فى قاعدة منفصلة مش فى نفس القاعدة

ده كود الحاق بيانات فى قاعده بيانات مرتبطة محتاج اعدل على حقل الID بداله DMAX بحيث لو الجدول المسمى MyTable حقل ID = 1 يكتب الID الجديد 2 وهكذا وكذلك كيفية الحاق بيانات من نوع TRUE , FALSE 'strSQL1 = " INSERT INTO MyTable " _ & "(FirstName,LastName, DateOfBirth, ID, SIR) VALUES " _ & "('Harry', 'Washington', '12-11-2021', '1', 'TRUE');"

كيفية عمل الاحتفاظ بالبيانات

مفهوم هذا هنعمل مثلا شيك بوكس لو True بتم الاحتفاظ بالبيانات او false لا يحتفظ تنفذ ازاى

كيفية الاحتفاظ ببيانات تسجيل الدخول للبرنامج ( اسم المستخدم - وكلمه المرور) وعدم كتابتها فى كل مرة للعلم يتم الدخول باكثر مستخدم

من فضلك لو محتاج اضيف اكثر من صورة للعميل هيكون صيغه الكود ازاى هيكون فيه لدى 4 مسارات لحقل Image

دى رسالة الخطا والكود المستخدم

؟؟؟

مفيش كود مختصر مثل الخاص بنا فوق

زر لاختيار صورها وحفظ نسخه منها بعد اختيارها فى مسار محدد فى فولدر بجوار البرنامج

للاسف نفس المشكلة اخى الكريم

عند الضغط على اختيار صورة يظهر خطا Type mismatch 13 مرفق الكود المستخدم Dim Fol As Object, DoneFiles As String Dist = CurrentProject.Path & "/" & "Im" & "/" & [Ir] & ".jpg" DoneFiles = "ÇáÕæÑÉ ÇáãÎÊÇÑÉ :" Set Fol = Application.FileDialog(3) Fol.AllowMultiSelect = False If Fol.show Then For I = 1 To Fol.SelectedItems.Count sFile = ImageName(Fol.SelectedItems(I), sPath) 'If Dir(Dist & sFile) & "" = "" Then FileCopy sPath & sFile, Dist & sFile DoneFiles = DoneFiles & vbCrLf & I & "-" & sFile Me.Hphoto.Value = Dist & sFile 'Else 'MsgBox "Êã ÑÝÖ ÇáÚãáíÉ " & vbCrLf & sFile & vbCrLf & "Êã ÇÎÊíÇÑ åÐå ÇáÕæÑÉ ãÓÈÞÇ " If I > 1 Then MsgBox DoneFiles Exit Sub 'End If Next End If Exit Sub

لو معنا اكثر من تكست فيهم مسار الصور صيغه الكود لكل تكست هتكون ايه والمديول هيتم استدعها كيف ؟؟

الاستاذ @ابا جودى محتاج احذف الصورة من خلال مسار لها فى تكست مثلا كالتالى "D:\My Phone\DCIM\Camera\officena.jpg"

مطلوب كود لفتح الصورة فى برنامج خارجى من خلال الاكسيس للتعديل عليها

للاسف لا لاحظ الصور حضرتك ظاهر كل التحاليل لنفس التيوب المفروض مثلا اول صورة يظهر hba1c وفقا للنموذج المرسل صورته فوق وهكذا فة الباقى

اللى يكون TRUE فقط هو اللى يظهر اسمه فى التقرير

كيف ؟؟ وهو محدد فى الجدول