kkhalifa1960

استاذ @gavan هذا طلب السائل . أم.. هل انت تريد التطبيق على السجلات الجديدة ؟. هنا الكود سيتغير . واذا كان الامر كذلك . حتى لا أركب على عمل استاذ @Foksh نترك له ذلك بعد تحديد طلبك . تحياتي وعيدكم مبارك .

اقدم لكم برنامج مطعم كلاسيكي مفتوح المصدر. به بعض الكودات من أعمال بعض المنتسبين بمنتدانا (أفسينا)..... (به 33 طاولة طعام + دليفري + تيك أواي) ....والمهتم سيكتشف مابه ....... وأي استفسار أنا حاضر . اليكم لينك المرفق . https://www.mediafire.com/file/j0qasl6mlv1ju3x/CoffeShop.rar/file

استاذ @محمد سعيد رشاد اذا كان طلبك مهم ارسل القاعدة . لدي البرنامج مفعل .

اساتذتي بعد اذنكم لمسة بسيطة على مرفق أستاذنا @عبد اللطيف سلوم . test24-1.rar

عودا حميدا استاذ جعفر @jjafferr رمضان مبارك وكل عام وانت بخير

مشاركة مع استاذ @ابوخليل تفضل استاذ @aliwindows محاولتي حسب مافهمت . اليك الشرح والمرفق .ووافني بالرد . DD500.rar

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

.

تفضل استاذ @kams3008 محاولتي حسب ما فهمت (اضغط استيراد الطابعات . البرنامج بيستبدل الموجود بالطابعات لديك ) اليك الشرح والمرفق . واذا كان هذا طلبك لاتنسى الضغط على أفضل اجابة . Add Printers.rar

مشاركة مع استاذ @Foksh .......... تفضل استاذ @بلال اليامين محاولتي حسب مافهمت (البحث برمجياً بجميع الحقول) . واضافة من عندي برمجة الزر تحديد الكل (ليصبح تحديد/عدم تحديد) جربه بيفيدك . 19 (2).rar

تفضل استاذنا . Private Sub CmdAccepted_Click() Me.y1 = "مقبول" Me.y1.ForeColor = RGB(0, 155, 0) End Sub Private Sub CmdRejected_Click() Me.y1 = "مرفوض" Me.y1.ForeColor = vbRed End Sub Private Sub CmdAcceptedRejected_Click() If Me.y1 = "مقبول" Or Me.y1 = "" Then Me.y1 = "مرفوض" Me.y1.ForeColor = vbRed Me.CmdAcceptedRejected.Caption = "مقبول" Me.CmdAcceptedRejected.BackColor = RGB(0, 155, 0) Else Me.y1 = "مقبول" Me.y1.ForeColor = RGB(0, 155, 0) Me.CmdAcceptedRejected.Caption = "مرفوض" Me.CmdAcceptedRejected.BackColor = vbRed End If End Sub

مشاركةً مع استاذنا @AlwaZeeR تفضل أخي مرفق حصلته بمكتبتي . All extensions in web browser.rar

تفضل استاذ @rachedi طلبك بالمرفق والشرح بطريقتان . زر واحد أو زران . ووافني بالرد . DDTest113.rar

تفضل استاذ @العبيدي رعد المرفق بعد التعديل حسب مافهمت . ووافني بالرد . تسديدات الافراد-1.rar

جزاك الله كل الخير والى الأمام والتقدم دائماً . ولي لمسة بسيطة كي ينتفع بها الكل وهي تحريك النموذج بكتابة القيم بــ (Left,Top) بالسنتيمتر . waadcenterform-1.rar

تفضل أستاذ @العبيدي رعد محاولتي حسب ما فهمت . ووافني بالرد . اليك الشرح (مرة قبل تحديث حقل التاريخ - ومرة بواسطة زر أمر) والمرفق . DDTestDate.rar

تفضل أخي حلك هنا واليك الشرح والمرفق بطريقتان بزر أمر أو كما طلبت . Private Sub Form_Current() If Len(Me.Text1 & "") = 0 Then MsgBox "أدخل المبيعات", vbCritical Else MsgBox "OK", vbInformation End If End Sub DDTest112-2.rar

يا أخي الفاضل مجرد ملاحظة على كودك then (("اسم الجدول","اسم الحقل")Dlookup)if isnull .أنت عاكسهم !! ,وبين (isnull) و (والقوس) لايوجد مسافة .

يعمل عندي بشكل جيد ولا يوجد مشاكل أوفيس 2010 32 بت

حاضرين أخي وفي أي وقت . رمضان كريم .

تفضل استاذ @tiger wanted الكود والشرح . Private Sub Command0_Click() If IsNull(DLookup("Salary", "Table1")) Then MsgBox "أدخل المبيعات" End If End Sub

تفضل استاذنا @abouelhassan طلبك بالمرفق . ولا تنسى الضغط على أفضل اجابة حتى نغلق هذا الموضوع . MahdiPermissionsTemp.rar

هذا البرنامج معمول اليه صلاحيات وفورم دخول وانا ما أريد أعبث به بل اريد برنامج عادي ( جداول - استعلامات - نماذج - تقارير .......... ) .

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

تفضل استاذ @rachedi الشرح .