محمد أبوعبدالله

لا توجد مشكلة باذن الله المهم ان الكود يعمل معك بدون مشاكل انا كنت اريد ان اسأل لماذا الحقول m,n = Long Text لماذا لا يكونوا Number افضل تحياتي

هل تقصد Microsoft Web Browser

وعليكم السلام ورحمة الله وبركاته استخدم الوحدة النمطية التالية Function strHijri(dtGregorian As Date) As String ' returns a date in Hijri format for a given western date VBA.Calendar = vbCalHijri strHijri = Day(dtGregorian) & "/" _ & Month(dtGregorian) & "/" _ & Year(dtGregorian) VBA.Calendar = vbCalGreg End Function ثم استخدم التالي في اي مكان في البرنامج =strHijri([اسم حقل التاريخ]) TEST - Copy.accdb تحياتي

وعليكم السلام ورحمة الله وبركاته استبدل المجموع في الاستعلام باحدى الطرق التالية الراتب الكلي : salary([m])+salary2([n]) او الراتب الكلي: val([اراتب الاسمي])+val([العلاوة]) تحياتي

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

السبب مربع النص غير منضم تحت امرك اخي الكريم تحياتي

تفضل اخي الكريم يا رب يكون المطلوب تماماً الضغط على الفرعى.accdb تحياتي عذرا يا ايو جودي يا غالي كنت مشغول عن ردك بالمطلوب عذرا مرة اخرى تحياتي

تفضل المرفق يعمل جيداً الضغط على الفرعى.accdb تحياتي

رائع استاذنا الفاضل دمتم بكل خير تحياتي

وعليكم السلام ورحمة الله وبركاته ضع نفس الاجراء في حدث الحالي للنموذج Private Sub Form_Current() On Error Resume Next Forms!f1.Form!R1 = Me.k1 End Sub تحياتي

وعليكم السلام ورحمة الله وبركاته توجد اكثر من طريقة لعمل ترقيم والاستغناء عن الترقيم التلقائي الموجود في اكسيس وجدت لك مثالاً يمكنك الاستفادة منه باذن الله 2007-2013.rar تحياتي

السلام عليكم ورحمة الله وبركاته تفضل اخي الكريم Private Sub أمر10_Click() Dim xxx As Double xxx = Val(Me.text1) / Val(Me.colm1.Column(0)) Dim rst As DAO.Recordset mySQL = "Select * From pay" Set rst = CurrentDb.OpenRecordset(mySQL) For i = 1 To Me.colm1 rst.AddNew rst!codec = Me.codec rst!elmblg = xxx rst!codeelcst = i rst.Update Next i rst.Close: Set rst = Nothing If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then Exit Sub DoCmd.GoToRecord acDataForm, Me.Name, acNext End Sub انشاء.rar تحياتي

ربنا يزيدك قربنا نوصل باذن الله

اشكرك استاذي الفاضل عند بناء الجملة الاولى mySQL = "SELECT Id, G1, R1, add_all([id]) AS A FROM tbl1" لا توجد مشكلة المشكلة تظهر عند بناء الجملة الثانية عليها mySQL = "SELECT Id, G1, R1, add_all([id]) AS A FROM tbl1" mySQL = mySQL & " WHERE [A]='" & OK & "'" المشكلة لا يتعرف على الحقل A الجديد الذي تم انشاءه في الجملة الاولى

الاخوة الكرام السلام عليكم ورحمة الله وبركاته احتاج عدد استعلامات كبير مثلاً Query2 و Query3 مبنيان على استعلام Query1 و مثلاً Query5 و Query6 مبنيان على استعلام Query4 = هذان مثالان طبعاً هل يمكن بناء جملة Sql لتكوين الاستعلامين معاً في جملة واحدة توضيح المطلوب بناء جملة Sql اولى كأنها Query1 جملة Sql الثانية= جملة Sql الاولى ثم وضع البيانات كمصدر للنموذج دمتم بالخيرات dd33.zip تحياتي

جزاك الله خيرا استاذنا الفاضل تحياتي

السلام عليكم ورحمة الله وبركاته تفضل اخي قائمة فصل منقسمة علي جاني الورقة.rar تحياتي

ابشر التجربة الاولى نجحت والحمد لله اقوم الان بالتطبيق على الملف الخاص باليانات بشرك الله بالجنة

يا اخي والله يعجز اللسان عن الشكر جزاك الله خيرا اخي الحبيب الغالي دمتم بكل خير تحياتي

معذرة المثال الاول ناقص حقل T UP-D3.rar

الله يجزيك خير يا غالي ممكن تطبيق على المثال المرفق ولك وافر التحية والتقدير D3.rar

استاذنا الفاضل بالنسبة للحقول G1 ; R1 ; K1 ... الخ كيف سيتم التعرف يها في الوحدة النمطية دمتم بالخيرات تحياتي

الاخوة الكرام السلام عليكم ورحمة الله وبركاته هل هناك بديل لــ IIF في الاستعلامات حيث اني لدي 10 شروط والاستعلام وهي كالتالي IIf([G1]<[R1]*.3;K1;IIf([G1]<[T1];"K1"; IIf([G2]<[R2]*.3;K2;IIf([G2]<[T2];"K2"; IIf([G3]<[R3]*.3;K3;IIf([G3]<[T3];"K3"; IIf([G4]<[R4]*.3;K4;IIf([G4]<[T4];"K4"; IIf([G5]<[R5]*.3;K5;IIf([G5]<[T5];"K5"; IIf([G6]<[R6]*.3;K6;IIf([G6]<[T6];"K6"; IIf([G7]<[R7]*.3;K7;IIf([G7]<[T7];"K7"; IIf([G8]<[R8]*.3;K8;IIf([G8]<[T8];"K8"; IIf([G9]<[R9]*.3;K9;IIf([G9]<[T9];"K9"; IIf([G10]<[R10]*.3;K10;IIf([G10]<[T10];"K10";"OK")))))))))))))))))))) والاستعلام يرقض كتابة باقي الصيغة فارجو ان يكون لدى الاخوة الكرام حل او بديل عن IIF لاستكمال المعادلة ولكم وافر الاتحية

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

تفضل اخي الكريم مثال.rar تحياتي