kanory

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

تفضل ..... 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

ما شاء الله تبارك الله اللهم ادم علينا الفرح والسرور مبارك استاذي @Gamal.Saad واستاذي @اشرف ... تستاهلون هذا اللقب ومزيد من التألق🌷

وعليكم السلام ورحمة الله وبركاته حياك الله اخي @dragony2000 في منتدى الاكسس اجابة سؤالك اولا هنا تجده ربما يجيب الاخوة على بقية تساؤلاتك او لنا عودة اخرى بعد المعايدات ... وكل عام وانت بخير

استخدامك للعم قوقل تعتبر عبقرية ... غيرك لا يستطيع

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

بالعكس اخي خالد .... بارك الله فيك رمضان كريم أستاذ @jjafferr و أستاذ @kha9009lid