ابن مسقط

إجابة الإختبار السادس : قمت بحل الإختبار بطريقتين في الوصلات أدناه ، مع العلم أني لا حظت أن رسائل أكسيس لا تظهر على الرغم من عدم إدراجي السطر التالي في بعض الأمثلة : DoCmd.SetWarnings False والله الموفق . test_6_1.zip

إجابة السؤال الخامس : test_5.zip

إجابة السؤال الرابع : test_4.zip

أخي الكريم/ باسل شكرا جزيلا على المواقع الجميله وما قصرت :D .

إجابة الإختبار الثالث : test_3.zip

الله يوفقك يأبو هاجر دنيا وأخره .

أخي الكريم/ أبو هاجر أنزلت المثالين ووضعتهما في نفس المجلد وأظهار المشكلتين في الأتي : المثال الأول توقف عند السطر التالي : For Each varItm In ctl.ItemsSelected المثال الثاني توقف عند السطر التالي : Set AbA = ctl.ItemData(0) فما هو السبب مع العلم أني أستخدم أك…

أخي الكريم المشرف/ محمد طاهر بالتوفيق ان شاء الله وأنا معكم بإذن الله بقدر معرفتي .

الأخ الكريم/ بدران شكرا جزيلاً على أول مشاركة لك والله يوفقك في ما تبقى . (f)(f)(f)

أخي الكريم/ فهد الدوسري بارك الله فيك ووفقك إلى كل خير ترضاه على ما تقدمه من جهد. وأرجو المعذرة لأني لم أشارك من الدرس الأول. الإجابة على الدرس الثاني : نضع الكود التالي في حدث عند النقر على الزر If [txt1] = "موافق" Then DoCmd.OpenForm "FF1" Else DoCmd.OpenFor…

أخي الكريم/ فينوس هذي المشاركات ولا بلاش ، مثال رائع ..رائع.. ومفيد جداً لإعطاء وصف أو شرح لحقل معين على النموذج . كذلك شرحك له جميل بارك الله فيك وزادك علماً ورزقاً. (f)(f)(f)

لا أملك سوى الإنتظار مع المنتظرين ، في إنتظار الفرج بإذن الله.

شكراً جزيلاً أخي الكريم/ فتى الوادي وأتمنى من الله أن تنجح مفاوضاتك مع الأخ الفاضل صاحب البرنامج :D لكي تعم الفائدة على الجميع. والله الموفق.

أخي الكريم/ حارث شكراً جزيلاً على هذه المعلومة الجديدة بالنسبة لي والقيمة .(f)

أخي الكريم/ طالب علم2002 تجربتي مع برامج الصادر مدتها لا تزيد عن 5 سنوات ، وأشاركك الرأي بالنسبة للطريقتين فالأولى هي الأفضل من ناحية سهولة إدخال البيانات وإعطاء الرقم حسب التسلسل بالإضافة إلى بدء الترقيم من رقم (1) في بداية كل عام. مع العلم أن الطريقة التي ذك…

أخي الكريم/ ابو أسعد راجع الوصلة التالية : http://www.arabteam2000.com/vb/showthread....C9+%C7%E1%D3%D1 لعلك تجد فيها ضالتك :( . والله الموفق.

مشكور أخي الكريم/ أبو هاجر والله انك ما قصرت ولن تقصر .

ضع الكود التالي في "حدث" بعد الإدراج للنموذج : Private Sub Form_AfterInsert() If DatePart("yyyy", DLast("Date", "Main")) <> _ DatePart("yyyy", Now()) Then DoCmd.GoToRecord , , acNewRec Me![LetterNo] = 1 Else Me![LetterNo] = DLast("Date", "Main") + 1 End If End…

أخي الكريم/ طالب علم2002 من خلال تجربتي لكي تجعل الترقيم يبدأ برقم واحد مع بداية كل عام يجب أن يكون الحقل من نوع "الرقم". ولتنفيذ ذلك برمجياً ضع الكود التالي في "حــدث" قبل الإدراج للنموذج : On Error GoTo err_صادر If DCount("[رقم الصادر]", "[جدول الصادر]") = 0…

أخي الكريم/ م.جمال شكراً جزيلا وبارك الله فيك .