kanory

بالتوفيق .....

أكتب هذا الفانك Function azhr(Frm As String) Forms(Frm).AllowEdits = True End Function استدعية من النموذج بهذا الكود Call azhr(Me.Name)

انظر المرفق .... tray.zip

أخي قاسم هل هناك فرق بين الموضوعين .... ارجو التوضيح حتى نتمكن من مساعدتك .... بارك الله فيك

هناك اكثر من طريقة لعمل ذلك وهذه واحدة منها ..... افتح الاستعلام ولاحظ .... test (8) (1).accdb

حياك الله وبالتوفيق

تفضل ..... 2.accdb

حياك الله وبالتوفيق

وعليكم السلام ورحمة الله افتح التقرير من خلال النموذج وأنظر .... DATA- Age1.rar

واياك اخي الفاضل وبالتوفيق ....

بارك الله فيك وفي دعواتك الطيبة ..... طيب ... أنظر داخل الاستعلام الموجود .... استخدمنا في هذه الحالة استعلامين متداخلين :::: بداخل الاستعلام صغير وضعنا فيه كل شروطنا للاستعلام الاساسي وهي كما تبدو في الصورة : 1- انشأنا استعلام تجميع 2- حددنا القيم الأخيرة فقط 3- حددنا فقط القيم الفريدة بذلك ألزمن الاستعلام باستخراج فقط بيانات هذه القاطرات حسب هذه الشروط ارجوا أني وفقت في شرح الفكرة ........

افتح الاستعلام الموجود في الملف وأعلمنا بالنتيجة !!!!!! BA_W.accdb

أخي الفاضل : اخر الحركات حسب رقم 1 أم رقم 2 كم عدد الحركات التي تريدها ..... أخر 10 حركات مثلا ؟؟؟؟

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

حياك الله وبالتوفيق

تقضل ....... جمعية خيرية.accdb

حياك الله .... بالتوفيق

تفضل .... New (1).rar

تفضل ... جمعية خيرية.accdb

New (1).rar

تفضل ... New (1).rar

بالتوفيق ....

استخدم هذا الكود a=nz([Text1];"لم يباشر")

وهذا تعديل مع الكود تبعك .... اختر ما شئت ... ومع العايدين Dim db As DAO.Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Clients") If Me.txtnomclien <> "" Then If rrr(Me.txtnomclien) = False Then rs.AddNew rs!nomComplet = Me.txtnomclien rs!Societé = Me.txtsociete rs!Adresse = Me.txtadresse rs("Tel") = Me.txttel rs!Email = Me.txtemail rs!Ville = Me.txtville rs.Update rs.Close Set rs = Nothing DoCmd.Close acForm, Me.Name 'DoCmd.Requery Else MsgBox "ce client existe deja", vbInformation Me.txtnomclien.SetFocus End If Else MsgBox "remplir le champ nom de client", vbCritical End If

جرب هذا الكود مع تعديل مسار وجود قاعدة الجداول Dim dbCurrent As DAO.Database Dim recCategories As Recordset Set dbCurrent = OpenDatabase("C:\Users\ACER\Desktop" & "\Nouveau Microsoft Access Base de données.accdb", False) Set recCategories = dbCurrent.OpenRecordset("select * from Clients") With recCategories .AddNew !nomComplet = Me.txtnomclien '!Time = Time .Update End With recCategories.Close dbCurrent.Close Set dbCurrent = Nothing