Shivan Kurdi - شڤان کوردی

نحن نفتخر بك نعلم في كل حالات عندك حل تاني شكرا لانك معنا

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

استخدم هذا G1: IIf(IsNull([gustid_G]![Expr1]);"لايوجد";[gustid_G]![Expr1])

السلام عليكم ورحمه‌ الله وبركاته عندك حل واحد وهو ان تعمل واحد نفسه حسب فهمي لا نقدر ان نعمل التعديلات على القاعه‌ بيانات بصيغة MDE كاكواده ونماذجه والباقي تقدر كاستعلامات و الجداول

هل ما وصلت لطلبك بمشاركتي السابقة ؟ ممكن تخبرني ماتريد

الان انا بستخدم موبايل غدا ان شاء الله راح القي نظرتا اليه تحياتي

عل الرغم ان انا عملت في مشاركتي السابقه‌ كما طلبت من مشاركت السابقة لكن الان غير المطلوب من جديد اتفضل هذه المرة بها تقرير واحد و نموذج واحد وعملت كلا من حالتين بالكود وبالاستعلام تحياتي اتفضل تلوين السجلات (1).rar

ما اعرف وما افهم منك جيدا هل تريد ارسال التقرير من قاعدة بيانات من الى اي مكان ممكن توضح لنا اكثر

هل عملت اللي ما قلت سابقا عملت كومباكت ؟ وجربت ؟ اذا نعم ممكن ترسللي القاعدة اذا ما بها معلومات حساسة تحياتي

1 - جرب ان تغير وضع الكود بدل عند فتح النموذج الى عند ضغط على زر او عند تحميل النموذج فقط للتجربة هل سيكون نفس المشكلة ؟ 2 - اعمل كومباكت لداتابيس وجربه تحياتي

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

حسب فهمي لطلبك اتفضل هذا انا استخدم هذه الاكواد لذلك عند الحالي بياخذ كل مربع نصي احد من بيانات السجل الحالي كما مبينة في الكود Private Sub Form_Current() Me.Text11 = Me.id Me.Text13 = Nz(DMax("[id3]", "table1"), 0) + 1 Me.Text16 = Me.id3 End Sub واضفنا زر للترقيم وعطيتناه هذا الكود Private Sub Command15_Click() Dim Re As Integer Dim sql As String Re = DCount("[id]", "table1") DoCmd.GoToRecord , , acFirst For i = 1 To Re - 1 Me.Text16 = Me.id3 If Me.Text16 = "" Or IsNull(Me.Text16) = True Then sql = "UPDATE Table1 SET Table1.id3 = [Forms]![f1]![Text13] WHERE (((Table1.id)=[Forms]![f1]![Text11]));" DoCmd.RunSQL (sql) End If DoCmd.GoToRecord , , acNext Next End Sub وفي حقل اي دي 3 في جملة الشرطية عطيتنا هذا الكود [id3] Mod 2=0 [id3] Mod 2=1 لكل شرط عطيتناه لون والنتيجة طلعت هكذا هل هذا هو كان طلبك وافيني بالنتيجة تحياتي تلوين السجلات.rar

على كل حال احنا نفتخر بك بأنك معنا تحياتي اخوك الصغير شفان ريكاني

استغفرالله ما هذا الاعتذار سامحني سامحك الله ما رديتك من شان شي فقط رديتك لنستفيد منه الجميع ... طبعا هذه النقاط بيعطينا المشاكل في الاكواد ومن الافضل ان نستبعد منه في محرر فيجوال لكن هذا طريقة SQL حسب فهمي له ما به مشكله‌ تحياتي لك انت اخونا الكبير وشكرا لك على المداخله‌ لان بمشاركتك كلنا راح نستفيد منه شي اخوك الصغير شفان ريكاني

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

استأذن من استاذنا على التدخل للتوضيح استاذنا @محمدنجار استعمل هذا في احد الاستعلامين <>"غياب" And <>"مجاز" وهذا في استعلام اخر <>"غياب" وكما قلتي سابقا ان "وعندما اضع شرط في الاستعلام ( "غياب "<> ) لاتعطي النتيجة المطلوب ." السبب هو انك اضفت فراغ واحد للشرط "غياب "<> في اخر كلمة غياب اي يجب تكتبه بين "" الكلمة اللي تفسه في الجدول بدون اضافة اي شي اخر اي يجب ان تكتبه هكذا "غياب"<> مع تحياتي

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

اسف انا لا اعرف الكثير على الماكروات لكن اتفضل جرب ان تستخدم هذا الكود بدل تلك الاستعلامات ووافيني بالنتيجة Private Sub Form_Open(Cancel As Integer) Dim Sql As String Dim Sql1 As String Sql = "DELETE OrderTbl.Order, Now()-[OrderTbl]![date_workEnd] AS lastdate, OrderTbl.ekhteyr FROM OrderTbl WHERE (((Now()-[OrderTbl]![date_workEnd])>=30) AND ((OrderTbl.ekhteyr)=True));" Sql1 = "DELETE PtDataTBL.PtID FROM PtDataTBL WHERE (((PtDataTBL.PtID) Not In (SELECT OrderTbl.PtNo FROM OrderTbl;)));" DoCmd.RunSQL (Sql) DoCmd.RunSQL (Sql1) Me.Requery End Sub تحياتي

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

في الحقيقة انا ما جربت لكن انتظرني كم يوم راح اجرب على جهازي تحياتي

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

ارسم لي ماتريد او توضح لي اكثر لي حين تعمل اي بيظهر اي ما افهمك جيدا ماتريد تحياتي

هل تريد ان يظهر هكذا

اتفضل اخي كما طلبت لكن انت اعمل الجماليات للتقرير بس عملت تقرير حسب طلبك تحياتي تقرير.rar

هل قصدك بزر End اللي على كيبورد اذا الجواب نعم استخدم هذا الكود Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 35 Then DoCmd.GoToRecord , , acLast End If End Sub لكن يجب ان يكون خاصية النموذج كى بريفيو بيكون نعم او يجب ان تستخدم هذا الكود معه في حدث عند فتح او تحميل النموذج Private Sub Form_Load() Me.KeyPreview = True End Sub واذا ما كان قصدك اللي في كيبورد استاذنا @صالح حمادي عمل لك اربع ازرار اتفچل مع قاعده‌ بيانات بها الكود الاعلاه تحياتي الانتقال لاخر سجل.rar