ناقل

حسب علمي القاصر ... ليس لدي علم بذلك .. والسبب لا القيم مدمجة في قيمة واحدة ويجب تفكيكها بالطريقة التي رأيت ... والله اعلم لكن ننتظر رأي الاخوة الكرام في ذلك

تفضل .... إحصاء من القائمة المتعددة.accdb

تفضل ...... page1.accdb

جرب كده ..... Usrse1.accdb

يمكن تصميم نموذج ثم ابحث في المنتدى عن طرق ربط الجداول تجد مواضيع كثيرة اختر منها ما تشاء .... وإن عجزت .... ارفع الموضوع وسوف تجد الاجابات ان شاء الله تعالى

هل الجدولين موجودين في قاعدتين مختلفتين ام قاعدة واحدة

طيب ..... شغل الاستعلام رقم 1 وسوف تجد المطلوب في الجدول 2 Database32.accdb

انظر هل هذا ما تريد ؟؟؟؟

طيب ممكن مرفق مشابه للمرفق لديك ... للنظر فيه

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

تفضل ...... الازرار.accdb

تريد اخفاء صحيح .... استخدم هذا ...... Me.أمر0.Visible = False Me.أمر1.Visible = False Me.أمر2.Visible = False Me.أمر4.Visible = False

هذه الحالات كلنا احيانا نصل الى هذه المرحلة ..... هههههههه .... بارك الله فيك اخي الغالي ...

استبدلها بهذا ...... Dim rs As DAO.Recordset

استبدلها بهذا ....... MsgBox .Caption ولكن يجب كتابة التسمية التوضيحية للنماذج !!!!!!!!!!!!!!!!!!!!!!!!!

حسب علمي القاصر ليست هناك افضلية وانما لاخفاء كود التشفير والطريقة المستخدمة عن اعين المتطفلين ... فقط

تفضل تابع هذا الموضوع

With Application.Forms If .Count - 1 = 0 Then DoCmd.Close Else For I = .Count - 1 To 0 Step -1 With .Item(I) If .Name <> "Main_Form" Then MsgBox .Name End If End With Next I End If End With

جرب هذا اخي الكريم

في المديول القديم كان يتطلب متغيرين ( نص التشفير و الحقل المشفر ) اما المديول الاخير يتطلب فقط ( الحقل المشفر ) هذا الفرق فقط ....

مشاركة مع استاذي الفاضل ..... db1.mdb

بل هو مختلف ..... ولكن غيرت التكنيك ... غيرت اسم الفانك بنفس الاسم السابق حتى يسهل التعديل .... والدليل المديول القديم محذوف من القاعدة .... بارك الله فيك ...

طيب مدام ما تبغى ترفق مرفق او مثال عشان نعرف ايش الهرجة .... حندور في حلقة مفرغة تماما .... على كل حال اجعل النموذج نموذج مستمر بدلا من نموذج مفرد .....

هههههه ..... تفضل .... encoder replacement 2.rar

تفضل ........ Dim myWhere As String myWhere = "[FirstName] ='" & [txtFirstName] & "'" myWhere = myWhere & " And" myWhere = myWhere & "[LastName] ='" & [txtLastName] & "'" myWhere = myWhere & " And" myWhere = myWhere & "[DateOfBirth] =#" & Format(Me.txtDateOfBirth.Value, "mm/dd/yyyy") & "#" myWhere = myWhere & " And" myWhere = myWhere & "[SIR]= " & [ChckSIR] Debug.Print myWhere Me.txtCount = DCount("*", "[tblTestCount]", myWhere) If DCount("*", "[tblTestCount]", myWhere) > 0 Then MsgBox "This data is present and it cannot be repeated": Exit Sub Test Dcout.mdb