ابو جودي

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

ال♥️⁩لوب عند بعضها اخى

cmdDisplay_Exit: Set Rc = Nothing Set Db = Nothing Dim Rs As DAO.Recordset Dim X, ii, F, N As Integer Dim R As String R = "الأرقام المفقودة هي : " N = 10850 X = DMax("tran_no", "Lost_Serial") Set Rs = Me.Recordset For i = 10850 To X For F = N To X If Rs.Fields("tran_no") = 1 Then N = N + 1 Exit For Else R = R & " - " & N ii = ii + 1 N = N + 1 End If Next Rs.MoveNext Next RR = R Rs.Close Set Rs = Nothing مرفق الاستاذ @kanory هذه الاكواد لا حاجة لنا بها اذن بقصد هكذا يوسف (1).mdb

هذه الاكواد بها مشكله اصلا الرقم 10850 موجود الرقم 10905 موجود الرقم 10907 موجود هذا فقط على سبيل المثال وليس الحصـر كل هؤلاء موجودون بالرغم من انه اعتبرهم مفقودون هذه الاكواد بها خلل لذلك جلبت الرابط بالاعلى

اتفضل بخصوص اللون ممكن من الفوتوشوب تعمله زى ما انا عملته Smile.zip

بعنى انت عامل ثلاث مواد لو الثلاث مواد excellent انت عاوز بدل كلمة excellent الاسمايل فيس يعنى الاسمايل فيس كده تكون موجوده ثلاث مرات اسفل كل مادة واللا عاوزها على النسبة الكليه اللى هى باسم Pr-Total

انت عاوز الاسمايل فيس تظهر مع انهو تقدير وضح اكتر انا شايف لكل مادة تقدير انت عاوزه مع كل مادة

هات المرفق لنرى