jjafferr

عفوا ، يمكن استخدمت الكلمة الخطأ بالعربي :( ، فانا لازلت لا اعرف جميع اسماء كائنات الاكسس باللغة العربية :( قصدي ListBox وليس ComboBox جعفر

وعليكم السلام اخي :) الكود في قاعدة بياناتك مقفل بكلمة سر :( جعفر

وعليكم السلام :) بدل ما تعملها نموذج ، اعملها قائمة سرد (اذا المكان ما يكفي في نموذجك الاصلي ، فاجعلها في نموذج جديد) ، ولما تضغط على اي مادة/سجل ، تستطيع عمل حدث على OnClick ، والذي يقوم بدور زر الامر :) جعفر

:)

وعليكم السلام :) ضع هذا الكود على الحدث "قبل التحديث" للحقل c: if val(me.c) <> val(me.a) then msgbox "Values are not equal" cancel=true else msgbox "c=a, ok" endif جعفر

حياك الله :) وانت اللي الف مبرووووووووووووك :) جعفر

وعليكم السلام اختي :) انا ما دخلت في تفاصيل النموذج/النماذج/الجداول ، وانما رحت لمكان المشكلة وحاولت احلها :) غيري بدل هذا الكود: Private Sub MaterialSymbol_Exit(Cancel As Integer) Me.item_Balance = DLookup("sum([Qt_in])-sum([Qt_out])", "trans", "[MaterialSymb…

:)

:)

حياك الله :) غير الكود التالي: Private Sub area_no_AfterUpdate() Me.car_no.Enabled = True Me.car_no.SetFocus End Sub الى: Option Compare Database Private Sub area_no_AfterUpdate() Call car_no_AfterUpdate Me.car_no.Enabled = True Me.car_no.SetFocus End Sub جعفر

وعليكم السلام اخي الفاضل :) شكرا لك على تعميم الفائدة للجميع :) جعفر

حياك الله :)

:)

طيب جرب المرفق ، واللي انا عملته حسب مشاركتي رقم 9 :) يعني الاسهم اليمين واليسار ما خليت لهم كود ، وانما تنتقل الى الجهتين حسب ترتيبي لـ Tab Index :) ورجاء تخبرنا نتيجة التجربة :) جعفر 299.Test.mdb.zip

:)

وعليكم السلام :) تفضل :) اضفت حقل في الجدول Tcar ، اسميته Car_Type ، وهو يوضح نوع السيارة سواء salon او van (طبعا كان ممكن أأخذ هذه المعلومة من اسم السيارة صالون او فان ، ولكن الافضل عدم استخدام الاسماء العربية في الكود) ، وفي النموذج ، اضفت هذا الحقل في حقل ا…

وعليكم السلام اخي :) الخطأ لم يكن في السطر الذي ذكرت ، وانما في السطر الذي غيرناه سابقا :) غير السطر التالي: s = s & "start "" "" " & Application.CurrentProject.FullName & vbCrLf الى: s = s & "start "" "" " & Chr(34) & Application.CurrentProject.FullName & Chr…

وعليكم السلام اخي :) اذا كان الخطأ في الكودد الذي ارفقته ، فغير هذا السطر: Kill scriptpath الى Kill chr(34) & scriptpath & chr(34) جعفر

حياك الله :) تفضل :) جعفر 304.ZATEST.mdb.zip

هلا والله ، عمل جميل :) نعم ، انا افضل لو انه بالإمكان ان يتم العمل على الجزئين ، حيث اني في احد مشاركاتي سابقا في بعض المواقع الاجنبية ، كبر حجم برنامج الواجهة FE ، كبر حجمه من 36 ميجا الى اكثر من 200 ميجا واصبح بطيئا ، وعند عمل الضغط تلقائيا (عند الخروج من ا…