kkhalifa1960

مشاركة مع استاذ @ابوخليل تفضل استاذ @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 الشرح .

لابد من وجود قاعدة تاريخ صلاحية البرنامج بجوار البرنامج الرئيسي علشان يأخذ منها التاريخ أما ماتحتاجه لأي برنامج آخر الجداول الاستعلامات والنماذج والموديلات التي باللون الباهت في آخر مشاركة وانت عندك 12 زر ركب عليهم إلى 12 نموذج🌷🌷🌹🌹ونكمل باكر انشاء الله

استاذ @ra7yl2006 افتح الفورم في وضع التصميم ثم علم على كل محتويات الفورم ثم كليك يمين عليهم بيفتح لك ديالوج انزل الى (Anchoring) ثم اول اختيار (Top left) ووافني بالرد . اليك الشرح .

ممكن المرفق .

اذا أردت الناتج في استعلام (Expr1: "RV." & "0000" & [ID]) واذا اردته في حقل محسوب (اسم الحقل المحسوب مثلاً KK) .. ضع هذا الكود بفورمات الحقل (KK)........ ("RV." & "0000" & [ID])

ممكن توضح الحقل (total_arabic_nesf1) رقم أم نص ؟؟؟ ......... اذا الحقل رقمي كما قلت لك سابقاً مايصير تضع (غ) ...... ضع بالجدول رقم مميز مكان (غ) وليكن (555) فتصبح المعادلة .... caler_arabic: IIf([total_arabic_nesf1]>=85;"أزرق";IIf([total_arabic_nesf1]>=65;"أخضر";IIf([total_arabic_nesf1]>=50;"أصفر";IIf([total_arabic_nesf1]>=1;"أحمر";IIf([total_arabic_nesf1]=555;"غ";"")))))