kanory

تقضل ....... جمعية خيرية.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

جرب كده ربما هو المطلوب = DateSerial(Year(Date), 1, 1)

بارك الله فيك eee هو اسم الكمبوبكس fff هو اسم النموذج الفرعي قم بتحميل الملف الموجود في بداية الموضوع ... سوف تشاهد المقصود ماذا تقصد بهل يمكن عرض كل الجداول

استخدم هذا الكود B.SetFocus Form!B!c.SetFocus

[B]![C].SetFocus

ضع هذا الكود في حدث عند النقر Dim a, s As String s = Me.eee.Column(0) a = "Table." & s Me.fff.SourceObject = a

لاحظ المرفق وعليك بتنسيق التقرير ...... moh.accdb

خيارات الاكسس ---------> اعدادات العميل ---------> التقويم الهجري

اكبر خطأ ربط ارقام تلقائية مع بعض ....... راجع الربط في حقول ID واضح أن الارقام غير متشابهة فلذلك لن يظهر بيانات لعدم توفرها

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

تفضل انظر الطريقة .......... moh.accdb