kaser906

حسب معرفتي المتواضعه 1 - زر الإضافة لايضيف أي بيانات لأي جدول هو يفتح سجل جديد فقط 2- زر الأمر لايظهر في الفورم على طريقة العرض ورقة بيانات لاضافة بيانات لجدول أخر بدون عمل استعلام الحاق قم بانشاء نموذج واجعل مصدره الجدول الذي تريد إضافة البيانات اليه افتح نموذج ورقة البيانات واضف اليه النموذج المنشأ واربط الحقول التي تريدها في النموذجين مع بعض تبقى مشكلة إضافة السجل محتاجة الى أمر او مدخل بالنموذج الفرعي كي تتم الإضافة والله اعلم

يبدو أنني لم أستطع إيصال الفكرة لذلك انظر هذه الصورة فقد غيرت في معايير الاستعلام بالحقل Expr4 واعطاني نتيجة صحيحة لكني اريد مجموع 8 استاذي قمت بكتابة كود و توصلت للنتيجة المطلوبة في حقل نص غير منظم بالنموذج عن طريق هذا الكود Private Sub Form_Current() Tx = DCount("[service]", "Tabil_Visitors", "([Num_brnamge] =forms![fr].[Num_brnamge]and[service] =1 or[Num_brnamge] =forms![fr].[Num_brnamge]and[service] = 2 or[Num_brnamge] =forms![fr].[Num_brnamge]and[service] = 3 or[Num_brnamge] =forms![fr].[Num_brnamge]and[service] = 6 or[Num_brnamge] =forms![fr].[Num_brnamge]and[service] = 7 or[Num_brnamge] =forms![fr].[Num_brnamge]and[service] = 8 )") End Sub أرجو الآن تكون الفكرة وضحت بشكل افضل 780.QryVisitors.rar

استاذي تجاوزنا حقل Travel2 الان احنا نشتغل على حقل service

غيرتها أستاذ لكن النتائج جاءت بارقام متعدده غير مفهومه

ما شاء الله تبارك الله تحملني أستاذ قربنا ننهي الموضوع اريد في هذا الكود مجموع الحقول التي تحتوي على القيم وليس عدها Expr3: IIf([service]=1 Or [service]=2 Or [service]=3 Or [service]=6 Or [service]=7 Or [service]=8;Nz(DCount("[service]";"Tabil_Visitors";"[Num_brnamge]=" & [Num_brnamge] & " And [service]=" & [service]);0);0)

نفس الشي أستاذ حمل المرفق وافتح استعلام Q1 ادخل رقم 9 عند فتح الاستعلام لتشاهد النتيجة ارجو منك أيضا فتح الاستعلام qryd للاطلاع على هذه الجزئية QryVisitors.rar

مع الأسف استاذي هذا الكود يظهر عبارة خطأ عند العرض لاحظ استاذي اني حولت الدالة الى Dcount

ارفاق جزئية المسألة بتطول لذلك ستأخطى هذه الجزئية حاليا وارفقها فيما بعد وأعود للكود الأول ماذا لو اردت العد لأكثر من قيمة تكون مثلا عد القيمة التي تكون رقم 1 و2 و3 و6 و7 و8

عملت الاستعلام لكن للأسف لم يتم العد حسب القيمة 2 تم عد جميع السجلات

الله يعطيك العافية استاذي كلا الكوديين يعملان بشكل ممتاز الخطأ كان مني حيث استخدمت دالة dsum بينما كان علي استخدام الدالة dcount للحصول على النتائج المطلوبة ما أريده الان كيف اظهر عد السجلات حسب الصورة

هذا الكود تعرف على الحقل Num_brnamge لكن لايتعرف على القيمة 2 في الحقل Travel2

السلام عليكم ورحمة الله وبركاتة اريد جمع الحقل [Travel2] بناء على القيمة 2 من الجدول Visitors الشرط ان يكون الحقل [Num_brnamge]= حقل [Num_brnamge] في النموذج او الاستعلام اجتهدت وحاولت كتابته بهذه الطريقة بالاسفل لكن للأسف لايتم تطبيق شرط [Num_brnamge] =Nz(DSum("[Travel2]";"Tabil_Visitors";"[Num_brnamge]=Num_brnamge and [Travel2]=2");0)

السلام عليكم ورحمة الله وبركاتة في المرفق استعلام رقم 1 حاولت اظهار جميع السجلات وعددها 17 سجل من الجدولين Visitors و Visitors2 واللذين تربطهما علاقة بالجداول Tabl_brnameg و Tabl_totravel و Tabil_service لكن لايظهر سوى 14 سجل حيث يوجد عدد ثلاث سجلات من الجدول Visitors2 والتي تكون بهم قيمة الحقل Num_brnameg=10 لاتظهر أيضا يوجد عدد واحد سجل من السجلات الذي تكون فيه قيمة Num_brnameg=9 لايظهر اعتقد يوجد مشكلة في ربط الجداول داخل الاستعلام المطلوب : 1 - إظهار جميع السجلات بالاستعلام 2- إضافة حقل لحساب عدد السجلات التي تكون فيها قيمة حقل Travel = 1 3- إضافة حقل لحساب عدد السجلات التي تكون فيها قيمة حقل Travel = 2 4- إضافة حقل لحساب عدد السجلات التي تكون فيها قيمة حقل service = 1 or 2 or3 or 6 or7 or 8 يوجد طلب أخر في نفس الاستعلام لكن سأطرحه بعد المطلوب الأول وذلك ليكون الامر واضح ولا تلتبس فيه الأمور QryVisitors.rar

يا سبحان الله مع اني حاولت بنفس الطريقة مرات ومرات وما نجحت هل عملت تغير أستاذ جعفر لاني دققت وما لاحظت شي تغير مشكور والله يرحم والديك ويعطيك العافية

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

نسيت تتبخر ونسيت الموضوع

استاذي هذا مثال بالمرفق افتح Forme_Fatora قف على السجل الأول في الفورم الرئيسي انقر زر تعديل ثم انقر على زر الأمر حفظ لتظهر المشكلة اثناء تعديل البيانات أيضا أنقر زر امر إضافة لاضافة سجل جديد أدخل رقم العميل 14 ثم انقر زر الأمر حفظ اذا وصل الى حقل الوضع اختر مرافق لكي يطلب منك ادخال بيانات المرافقين وستظهر لديك مشكلة الكود ملاحظة يوجد كود عند الادخال لكلا النموذجين الفرعين قمت بإيقافهما امل انك تنظر هل سيسببان مشكلة عند إعادة تفعيلهما ps.rar

عملت الطريقة والكود يعمل بتسلسل كامل المشكلة في كل حقل فارغ مطلوب إدخاله في النموذج الفرعي رقم واحد يتم التركيز عليه بعده مباشر ينتقل التركيز الى النموذج الفرعي الثاني في اول حقل فارغ مطلوب إدخاله ويضع التركيز عليه اعتقد أني بحاجه الى وصل الكود هنا End If 'IsNull(Me![Num_brnamge] '"===== If DCount("[id_visitors2]", "Tabil_Visitors2", "[Id_fatora]=id") < 1 And _ ((Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) = 2 Then MsgBox "أدخل المرافقين !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors2].SetFocus Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2].SetFocus وضعت الكود بهذه الطريقة ' End If 'IsNull(Me![Num_brnamge] '"===== ElseIf DCount("[id_visitors2]", "Tabil_Visitors2", "[Id_fatora]=id") < 1 And _ ((Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) = 2 Then MsgBox "أدخل المرافقين !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors2].SetFocus Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2].SetFocus لكن للأسف يتوقف الكود عن العمل في الجزأ الثاني

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

السلام عليكم وررحمة الله وبركاتة هذا الكود يقوم بالتأكد من اكمال البيانات في النموذج الرئيسي والفرعي عند التركيز على زر أمر sav هو يعمل بشكل سليم ولكن المشكلة لايقوم بالترتيب لحقل تلو الاخر وخصوصا مع النموذج الفرعي المطلوب ان يقوم بالتأكد أولا من الفورم الرئيسي ثم بعد ذلك تبدأ جزئية الفورم الفرعي Private Sub sav_GotFocus() If (IsNull(Me![Num_brnamge])) Then MsgBox "أدخل رقم الرحلة ", 48, "تـنـبـيـه !" Me.Num_brnamge.SetFocus ElseIf (IsNull(Me![PcDigtf])) Then MsgBox "أدخل رقم الزائر ", 48, "تـنـبـيـه !" Me.PcDigtf.SetFocus ElseIf (IsNull(Me![Fdate])) Then MsgBox "أدخل تاريخ الفاتورة ", 48, "تـنـبـيـه !" Me.Fdate.SetFocus ElseIf (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) _ Or (Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities] = "") Then MsgBox "أدخل الوضع !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors].SetFocus Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities].SetFocus ElseIf (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![service])) _ Or (Forms![Forme_Fatora]![Forme_Visitors]![service] = "") Then MsgBox "أدخل الخدمة المطلوبة !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors].SetFocus Forms![Forme_Fatora]![Forme_Visitors]![service].SetFocus ElseIf (Forms![Forme_Fatora]![Forme_Visitors]![service] <= 5 _ And (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Travel])) _ Or (Forms![Forme_Fatora]![Forme_Visitors]![Travel] = "")) Then MsgBox "أدخل طريقة السفر !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors].SetFocus Forms![Forme_Fatora]![Forme_Visitors]![Travel].SetFocus ElseIf (Forms![Forme_Fatora]![Forme_Visitors]![service] <= 5 _ And (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Itinerary])) _ Or (Forms![Forme_Fatora]![Forme_Visitors]![Itinerary] = "")) Then MsgBox "أدخل خط سير الرحلة !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors].SetFocus Forms![Forme_Fatora]![Forme_Visitors]![Itinerary].SetFocus End If '"===== If DCount("[id_visitors2]", "Tabil_Visitors2", "[Id_fatora]=id") < 1 And _ ((Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) = 2 Then MsgBox "أدخل المرافقين !!!", 48, "تـنـبـيـه !" Forms![Forme_Fatora]![Forme_Visitors2].SetFocus Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2].SetFocus '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 'ملاحظة 'من هنا تبدأ مشكلة تداخل الكود '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ElseIf Not (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2]) _ Or (Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2] = "")) Then On Error Resume Next Me.Forme_Visitors2.SetFocus On Error GoTo 0 DoCmd.GoToRecord , , acFirst For i = 0 To Me.Forme_Visitors2.Form.Recordset.RecordCount - 1 If Not (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2])) _ And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship])) _ Or (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service])) _ Or (Forms![Forme_Fatora]![Forme_Visitors2]![service] <= 5) _ And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel])) _ Or (Forms![Forme_Fatora]![Forme_Visitors2]![service] <= 5) _ And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary])) Then MsgBox "أدخل هذا الحقل !!!", 48, "تـنـبـيـه !" If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship]) Then Forms![Forme_Fatora]![Forme_Visitors2]![Kinship].SetFocus Else If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service]) Then Forms![Forme_Fatora]![Forme_Visitors2]![service].SetFocus Else If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel]) Then Forms![Forme_Fatora]![Forme_Visitors2]![Travel].SetFocus Else If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary]) Then Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary].SetFocus End If End If: End If: End If Exit Sub End If DoCmd.GoToRecord , , acNext Next i End If

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

'طريقتك جيده اخي الكريم لكنها لا تحدد الحقل الفارغ وتضع التركيز عليه

يعطيك العافية أستاذ شيفان فقط اردت الاستفسار في حالة اردت ان يقوم الكود بأجبار المستخدم على ادخال قيمة في اكثر من حقل وليكن مثل tex وأيضا الحقل tex1 لاني حاولت اعملها وظهرت لي بعض المشاكل