نجوم المشاركات

وعليكم السلام مو قلت لك ، تخش ، وتطلع بعدين تفضل ، تم اضافة حقل "اعمل التغييرات" ، واذا كان عليه صح ، يقوم بالعمل على معطيات ذلك السجل فقط . وهذا الكود Private Sub cmd_Do_Records_Click() Dim rst As DAO.Recordset Dim rstSUB As DAO.Recordset 'نجهز الجدول لإدخال بيانات رقم المقعد Set rst = CurrentDb.OpenRecordset("Select * From Tabl_bus") 'نقرأ بيانات النموذج الفرعي Set rstSUB = Me.Forme_Sub_Itinerary.Form.RecordsetClone rstSUB.MoveLast: rstSUB.MoveFirst RCsub = rstSUB.RecordCount 'نقرأ كل سجل من سجلات النموذج الفرعي For j = 1 To RCsub 'اذا يوجد علامة صح في حقل "اعمل التغييرات" فقم بحذف السجلات السابقة لهذا الخط ، واعمله من جديد If rstSUB!Do_Changes = -1 Then 'نحذف سجلات رقم المقعد من الجدول mySQL = "DELETE Tabl_bus.Num_Itinerary_ID, Tabl_bus.Num_Itinerary, Tabl_bus.Num_rihla, Tabl_bus.*" mySQL = mySQL & " FROM Tabl_bus" mySQL = mySQL & " WHERE Num_Itinerary_ID=" & rstSUB!Auto_ID mySQL = mySQL & " AND Num_Itinerary=" & rstSUB!Num_Itinerary mySQL = mySQL & " AND Num_rihla=" & rstSUB!Num_rihla CurrentDb.Execute mySQL 'نقوم بتغيير حقل "اعمل التغييرات" ونزيل الصح منها rstSUB.Edit rstSUB!Do_Changes = 0 rstSUB.Update 'نعمل سجلات رقم المقعد في الجدول For i = 1 To rstSUB!Number_seats rst.addnew rst!Num_Itinerary_ID = rstSUB!Auto_ID rst!Num_Itinerary = rstSUB!Num_Itinerary rst!Num_rihla = rstSUB!Num_rihla rst![Chair_ No] = i rst.Update Next i End If 'rstSUB rstSUB.MoveNext Next j 'احذف البيانات من ذاكرة الكمبيوتر rst.Close: Set rst = Nothing rstSUB.Close: Set rstSUB = Nothing End Sub جعفر 806.1.AAddseat.accdb.zip

Private Sub Fup_Click() Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl000") rst.MoveFirst Do Until rst.EOF If rst!الرقم = Me!OrderID Then MsgBox " السجل موجود ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close End Sub تفضل أخي العزيز

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

وعليكم السلام تفضل Private Sub A_AfterUpdate() Me.B = Nz(DMax("[B]", "tabl", "[A]=" & Me.A), 0) + 1 End Sub جعفر

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

طيب نفترض اسم الحقل هو iTotal ، وفي اعداداته اجعل مصدره كما هو في الاستعلام ، ثم ضع هذا الكود في حدث "الحالي" للنموذج ، me.iTotal=IIf(IsError([Text16]);0;[Text16]) جعفر

وهاي حل مقارنة حقل شهر-سنة ، بحقل آخر: . . . . جعفر 808.stuff.accdb.zip

كان قصدي اكثر من سجل في النموذج الفرعي عندي طلب لوسمحت: انت تعرف ان جميع الاعضاء اللي يساهمون في المنتدى ، هو تبرع شخصي منهم ، وكل اللي يتمنوه بعد اعطاء الحل ، ان صاحب السؤال يقول لهم شكرا (وانت جزاك الله خير ما تقصر) ، ويعطيهم "Like" على الحل الصحيح (وانت ماشاء الله عليك ما داير لها بال) جعفر

كلام الاخ جعفر صحيح انظر 951.rar

وعليكم السلام قصدك رسالة خطأ في النموذج/التقرير ، وكما قال اخي رمهان ، استعمل =IIf(IsError([Text16]);0;[Text16]) جعفر

وعليكم السلام اخي خالد هل انت مستعد لسماع الاجابة الامر Format يأخذ اي صيغة تعطيه (نص او رقم او تاريخ) ، والنتيجة اللي يعطيها تكون نص لهذا السبب ، اذا اردت استعمال = فيجب ان تستعمل نفس الامر من جهتي المعادلة ، ولا تستطيع استعمال >< ، إلا اذا كان قصدك مقارنة النص بين جانبي الاشارة جعفر

هذه الاسطر مافيها فائدة بدون السطر اللي فوقها ، اللي فوق جميع الاحداث

ارفق المثال الكود سليم If Me.Password = DLookup("[Password]", "user", "[username]= '" & Me.UserName & "'") Then MsgBox "loading" DoCmd.OpenForm "census" DoCmd.Close acForm, "login" Else MsgBox "incorrect username and password" End If ولكن اظن Password عبارة محجوزه حاول تغيرها الى Password2

وعليكم السلام اخي وضاح في الصورة الاولى ، الظاهر انك واضع شرط في الجدول ان لا يحفظ السجل بدون ذلك الحقل ، جعفر

وعليكم السلام انا استخدمت هذه الطريقة جعفر

بارك الله فيك ملف رائع جزاكم الله خيراً على حسن أدبكم......والسلام عليكم

برنامج مفيد بارك الله

وعليكم السلام 1. راجع الرابط هذا لإصطياد رقم الخطأ ، ثم بعد الحصول على الخطأ ، مشاركتي التالية تخبرك كيف تعمل رسالة الخطأ الخاصة بك . 2. مثل ما عملت في النموذج في الضغط على F2 ، اعمل نفس الشيء في النموذج الآخر ، والرقم الذي تريد هو: keycode=13 or keycode=108 جعفر

برنامج جميل واداء متميز ...

وعليكم السلام ورحمة الله وبركاته أهل هيثم.. النموذج الموجود في المرفق لا يدعم الفكرة التي تريد طبيقها من جميع النواحي! النموذج يوجد به عناصر تحكم غير التي تظهر في الواجهة سببت بعض الإرباك الشفرة في النموذج مبهمة وغير مرتبة وهي بحاجة إلى تحليل وتبسيط الهدف من استيراد شرائح البيانات غير واضح؛ ولذلك لن يكون بالإمكان اقتراح حلول متقدمة تخدمك هدفك إليك المرفق مع بعض الترقيع.. excel to access.zip

السلام عليكم شكرا استاذ عبدالفتاح وجميع الاخوه فيه استفسار استاذ ابو ابراهيم ومقتبس من مشاركة الاستاذ شيفان وحسب مرفق الاستاذ عبدالفتاح لو حبينا يكون المنع مكون من حقلين وفي مثالنا رقم المدرسة واسم المدرسة وفي المثال اعلاه eqamaid,eqama وحسب الحدث قبل التحديث ؟ كيف ستكون ؟ تحياتي

السلام عليكم و رحمة الله آمل ان تعذرني اي عمل جديد يجب ان يوجد به اخطاء و التجربة الفعلية توضح هذه الأخطاء ====================== تم التعديل في المرفق 17-8-2014.rar

12/11/2009 طريقة عمل البرنامج 1- تسجيل بيانات العميلالدخول الى صفحة العملاء و تسجيل بيانات العميل - غير قابل لتكرار اسم العميل 2- توزيع الأقساطالدخول الى ورقة توزيع الأقساط ثم يتم ادخال البيانات كاملةبمجرد ادخال البيانات تظهر لك النتائج في الجدول الأيسر 3- اضغط على زر حفظ بيانات الأقساط - سوف يتم حفظ البيانات في ورقة الأقساط و منها تجد اجمالي المبالغ المطلوبة من العميل قد ظهرت في ورقة بيانات العملاء 4-الدخول الى ورقة السندادخل اسم العميل - سوف تظهر لك قائمة منسدلة بأسماء الأجهزة التي تم عمل اقساط لها لهذا العميل تختار منها الجهاز او السلعة المطلوبة بعد ادخال اسم العميل و نوع الجهاز تظهر لك قائمة منسدلة بـ أول قسطين مطلوب سدادهما من العميل تختار منها ماتريدتقوم بتسجيل المبلغ - و هنا تستطيع تسجيل أي مبلغ اقل من او يساوي قيمة القسط المختار او مطلوب سداده بعد اكتمال بيانات السند تختار طـبـاعة الـسـنـدبعد طباعة السند تلقائيا سوف يتم تسجيل المبلغ في العمود A امام العميل في ورقة توزيع الأقساط - ويتم حفظ كامل بيانات السند في ورقة حفظ البيانات السداد - الآن لدينا في ورقة بيانات العملاء عمود الأقساط المتأخرة - هنا يتم حساب كل الأقساط المطلوبة من هذا العميل قبل تاريخ اليوم و يخصم منها اجمالي المبالغ المسددة من العميل الآن تستطيع استخدام الملف و استخراج النتائج منه مع تحياتي للجميع 4_توزيع_الأقساط_ومتابعتهاQest.rar