أبوبسمله

وعليكم السلام مشاركه مع اخى خالد @Khalid Jnb جزاه الله خيرا هل تقصد هكذا جرب ان لم يكن ارفق مثال لما لديك واشرح ما تريد واخوانك واساتذتنا لا يقصرون IIf([d] Between #01/04/2020# And #30/04/2020#;50;0) بالتوفيق ان شاء الله

العفو منك اخى هاوى واسمح لى بمنادتك اخى @Hawiii انت الاستاذ انما انا مجرد هاوى وطالب علم مبتدىء توكل على الله واكمل

عند التجربه فقد اعطانى القيمه لنوع المتغير وهذا جدول من ميكروسوفت لمعرفه نوع رقم المتغيرات https://support.office.com/en-us/article/vartype-function-1e08636c-1892-40c2-aff3-2b894389e82d وهذا رابط اخر http://www.java2s.com/Code/VBA-Excel-Access-Word/Data-Type/ValuesreturnedbytheVarTypefunction.htm وللحصول على اسم المتغير Debug.Print TypeName(a) بعتذر عن عدم وضع الكود فالتنسيق لسوء حاله الانترنت الان وفى انتظار مزيد من الشرح @Hawiii جزاك الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

جزاك الله خيرا @Hawiii اكمل على بركه الله اول طالب حاضر

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

انا اول طالب يشارك معك بتعلم من المشاكل المطروحه فهكذا اتعلم جزاهم الله خيرا اخواننا واساتذتنا

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

ههههههههه الحمد لله اخى صالح @ابوآمنة اخدت تفاحه مش عروسه 😀 بالتوفيق اخى فايز

احسن الله اليك اخى فايز جزاه الله خيرا اخى واستاذى شيفان true = نعم = -1 false = لا = 0

غير true الى false

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

اللهم آمين وعافانا الله واياكم وجميع المسلمين ونسال الله الهدايه لنا ولجميع البشر

جزاكم الله خيرا اخوانى واساتذتى محمد @Barna و @kanory تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

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

فى مثال اخى @kanory يفتح فى حال وجود مسافات فى اسم قاعده البيانات امممممممممممممممم 😀

جزاك الله خيرا اخى واستاذى @kanory اخى @AboSaad17 قمت باضافه قاعده اخرى وتم فتحها بدون مشاكل وتم اضافه اخرى باسم عربى وهناك ملاحظه (ترقيم تلقائي) لابد ان يكون الاسم متصل (ترقيم_تلقائي) وقمت بتجربه اضافه مسافه فى الاسم الانجليزى ونفس المشكله اى انه لابد ان يكون الاسم بدون مسافات وسوف اجرب مثال اخى @kanory على التجارب السابقه ايضا وسوف احاول فيها او يساعدنا احد اخواننا واساتذتنا فيها ان شاء الله تقبل تحياتى وتمنياتى لكم وللجميع بالتوفيق

وعليكم السلام اخى الفاضل تم توجيهك لاستخدام داله DCount بالشروط اللتى تريدها لاستخراج ماتريد واليك الرابط التالى للاستعانه به ويوجد العديد من الشروحات وكل عائله D ينطبق عليها الشرح فالرابط ان لم تستطع العمل بها ارفق مثال لما تريد وان شاء الله اخوانك واساتذتنا ما بيقصروا لان داله counta خاصه بالاكسيل تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

وعليكم السلام اتفضل اخى @AboSaad17 ان شاء الله يكون ما تريد تم الاستعانه بالرابط التالى لاضافه المتغير لانه لم يكن يراه https://forums.techguy.org/threads/access-2003-correct-use-of-vba-shell-command.473952/ Private Sub choose_Click() Dim X, d X = DLookup("[name1]", "[Dchoose]", "[Name2] ='" & name1.Column(2) & "'") d = CurrentProject.Path & "\" & X Shell ("C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE " & d), vbNormalNoFocus 'محاولات غير ناجحه End Sub بالتوفيق ان شاء الله 3.rar

اخى @فايز.. ع ما اعتقد لان كانت العناصر منضمه لقد جعلت الحقول غير منضمه جرب الان ووافنى بالنتيجه وان شاء الله احد الاخوه او اساتذتنا الافاضل يشاركنا بالتوفيق اخى Aa1_Library.rar

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

وعليكم السلام اخى فايز مشاركه مع اخى ومعلمنا جعفر @jjafferr جزاه الله كل خير Private Sub Command22_Click() 'Me.Frm_Eara.SetFocus 'DoCmd.GoToRecord , , acNewRec If Len(Me.ZVisitorName1 & "") = 0 Then 'ÇÓã ÇáãÓÊÚíÑ MsgBox "ÝÖáÇ ÃÏÎá ÇÓã ÇáãÓÊÚíÑ" Me.ZVisitorName1.SetFocus Exit Sub ElseIf Len(Me.BookeName & "") = 0 Then 'ÇÓã ÇáßÊÇÈ MsgBox "ÝÖáÇ ÃÖÝ ÇÓã ÇáßÊÇÈ" Me.BookeName.SetFocus Exit Sub ElseIf Len(Me.J1 & "") = 0 Then 'ÑÞã ÇáÌÒÁ MsgBox "ÝÖáÇ ÃÖÝ ÑÞã ÇáÌÒÁ" Me.J1.SetFocus Exit Sub ElseIf Len(Me.ZVisitorDay1 & "") = 0 Then 'Çáíæã MsgBox "ÝÖáÇ ÃÏÎá íæã ÇáÇÓÊÚÇÑÉ" Me.ZVisitorDay1.SetFocus Exit Sub ElseIf Len(Me.ZVisitorDate1 & "") = 0 Then 'ÇáÊÇÑíÎ MsgBox "ÝÖáÇ ÃÏÎá ÊÇÑíÎ ÇáÇÓÊÚÇÑÉ" Me.ZVisitorDate1.SetFocus Exit Sub ElseIf Len(Me.ZHessa1 & "") = 0 Then 'ÇáÍÕÉ MsgBox "ÝÖáÇ ÃÏÎá ÇáÍÕÉ" Me.ZHessa1.SetFocus Exit Sub End If Dim db As DAO.Database Dim Rs As DAO.Recordset Dim Rss As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT Table_Eara.* FROM Table_Eara;") Rs.AddNew Rs("VisitorName1") = Me.ZVisitorName1 Rs("BookeName") = Me.BookeName Rs("J1") = Me.J1 Rs("VisitorDay1") = Me.ZVisitorDay1 Rs("VisitorDate2") = Me.ZVisitorDate2 Rs("VisitorDay2") = Me.ZVisitorDay2 Rs("VisitorDate1") = Me.ZVisitorDate1 Rs("Hessa1") = Me.ZHessa1 Rs.Update Rs.Close Me.Requery Beep MsgBox ("Êã ÅÖÇÝÉ ÇáÈíÇäÇÊ ÈäÌÇÍ"), , "ãÈÑæß" Me.ZVisitorName1 = Null Me.BookeName = Null Me.J1 = Null Me.ZVisitorDay1 = Null Me.VisitorDate1 = Null Me.ZHessa1 = Null Me.ZVisitorDay2 = Null Me.ZVisitorDay2 = Null End Sub Aa_Library.rar

جزاك الله خيرا اخى واستاذى خالد بالامس غلبنى حقل التاريخ ثم تفحصت الحقل الى ان وجدت تنسيق now ثم بحثت ووجدت رابط ولكن كنت هنجت واضعه للاستفاده وسوف احاول تطبيقه ايضا https://theaccessbuddy.wordpress.com/2014/01/02/dsum-function-the-art-of-writing-a-criteria-3/ جزاك الله خيرا اخى @Hawiii جميل وشغال تمام بارك الله فيكم اخوانى

جزاك الله خيرا اخى حسام جزاك الله خيرا اخى رمهان بارك الله فيكم وزادكم الله من فضله وعلمه

الشكر لله ثم لكم اخوانى واساتذتى @kha9009lid و @Shivan Rekany و @jjafferr جزاكم الله خيرا

اخى @beLaL 100 كان عندك خطأ فى كتابه حقل [Da_te] =Nz(DSum("[am_re]";"Pu_inv";"[ty_pu]='بيع'" And "[Da_te]=#" & [Da_te] & "#")) بالتوفيق ان شاء الله 1.rar