ابو جودي

ما فى اجمل منك استاذ @عبد اللطيف سلوم بس شوف هذا المرفق ماشاء الله الوقت يجرى بســــــــرعه وممكن عمل ايقاف مؤقت واستكمال على الوقت ذاته والتسجيل فى جدول DB stopwatch.accdb

جربت المثال واحسست ببطئ مرور الوقت به هل هذا لاننا ننتظر موعد الافطار ؟

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

عروستــــــــــــــــــــــــــــــــــــــى انا لم افهم ممكن توضح عملى مثال على كل طلب وبم تقصد ينقل المدينه ؟ اتمنى منك الاخذ فى الحسبان اننا صائمون ههههههههههه

ممكن سؤال هو حضرتك اللى عامل البرنامج والاكواد دى والا بس انت محتاج تعدل ؟ Copy_of_Shopping_Stars_(Final).zip

المرفق لو تكرمت

رااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااائع جدا جدا جدا جدا جدا جدا جدا جزاااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااكم الله خيــــــــــــــــــــــــــــــــــــــــــــــــــــــــرا

https://docs.microsoft.com/en-us/previous-versions/office/developer/officetalk2010/ff700513(v=office.11) https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2010/ee691831(v=office.14)

التموين للوحدات العسكرية.mdb

انتبه انت الان فى قسم الاكسس التابع لمنتديات اوفيسنا

افعل ما فى الخير يسدى

Private Sub Btn1_Click() Call Btn2_Click End Sub Private Sub Btn2_Click() DoCmd.Close DoCmd.OpenForm "نموذج2" End Sub Btn1 اسم الزر الاول Btn2 اسم الزر التانى

Public Function OpeneApp() On Error Resume Next If FileExist = True Then If countopen = 0 Then 'MsgBox ".. سوف يتم فتح البرنامج الان" 'هذه الرسائل فقط للتأكيد يمكنك حذفها OpeneApp = Shell(StrPath) countopen = 1 Dim StrSql As String StrSql = "DELETE tblprograms.* FROM tblprograms;" DoCmd.RunSQL StrSql ElseIf countopen <> 0 Then 'هذه الرسائل فقط للتأكيد يمكنك حذفها 'MsgBox "... تم فتح البرنامج من قبل ولن يفتح مرة اخرى الا بعد اغلاق القاعدة وفتحها" Exit Function End If Else 'هذه الرسائل فقط للتأكيد يمكنك حذفها 'MsgBox "لا يوجد ملفات او برامج لفتحها مع النموذج عند الفتح" Exit Function End If End Function

رائع

ممكن بس حضرتك تقول لى رقم الاصدار كام اللى عليه المنتدى الان لو تكرمت

طيب سيدى الفاضل هل بعد التقسيم يمكن اخفاء القسم الاخر ؟ بدون اى اضافات اخرى غير رسمية حتى لا اثقل عليكم باسئلتى التى قد تكون غبيه احيانا بسبب جهلى سوف اقوم بتحميل نسخة واعدادها على استضافة لادخل لوحة التحكم واتجول بها قليلا لاعرف كيف تعمل هذه المنتديات ياااااااااااااه هترجعنى لايام زمان تانى يا استاذ @محمد طاهر سأذهب لارى حتى استطيع ادارة الحوار والاسئلة المناسبة دون ان اثقل على كاهلكم

لا تعطنى سكمة ولكن علمنى كيف اصطاد السمك انت مصر على ان تطلب السمك فقط

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

يعنى لابد من الفصل؟ طيب هل بعد الفصل ممكن اخفاء القسم الاخر ويظل فقط قسم الاسئلة هو المرأى للاعضاء لعدم الوقوع فى ما اشار اليه الاستاذ @Khalf اعتذر انا اخر عهدى بلوحة تحكم المنتديات كان vBulletin 3 لا اعرف شيئا بعد ذلك فلم الج الى لوحة تحكم اخرى لا من الـ vBulletin او غيره لذلك اعتذر استاذ @محمد طاهر لاثقالى عليكم بالاسئلة

سؤال جديد سو له موضوع جديد لو تكرمت

هذه اخر محاولة لى واخر مشاركة فى هذا الموضوع ان اردت اخفاء الزر واظهار فى حدث الحالى If txtCount >= 2 Then Me.Com3.Visible = True Else Me.Com3.Visible = False End If والسلااااااااااااااااااااااااااااااااااااااااااااااااااام عليــــــــــــــــــــــــــــــــــــــــــــــــــــــكم

اتمنى شبح التكرار نكون انتهينا منه

وهذا تعديل على مرفق الاستاذ @مسفر 123 (1).accdb زر امر واحد نفس النتيجة كود ولا اروع

اتفضل New Microsoft Access قاعدة بيانات (2) (2).accdb