Eng.Qassim

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

السلام عليكم... شاهد هذا الفيديو ..قد تجد فيه ما ينفعك

فيديو جميل .....شكرا لمجهودك وجزاك الله خيرا

نعم استاذ ..في تلك الحالة سوف لن يتم ادخال الرقم الى الجدول المرتبط Private Sub genu_BeforeUpdate(Cancel As Integer) If Left(Me.genu.Value, 2) = "17" Then MsgBox "غير مسموح ادخال الرقم 17", vbExclamation, "ادخال خاطيء" Cancel = True Me.genu.Undo End If End Sub

الكود الذي اشار اليه استاذنا محمد عصام @ابو جودي يعمل على النواة 32 بت اما اذا اردت تحويله الى نظام يعمل على 64 بت ..في رأيي تعمل نسخة ثانية ..فتصبح الدالة كما يلي : Private Declare ptrsafe Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long 'طبعا هناك برامج متقدمة تستطيع فيها ان يعمل نفس البرنامج على 32 بت او 64 بت ..مثل #If VBA7 And Win64 Then 'x64 Declarations Private Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long #Else 'x32 Declaration Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long #End If تحتاج منك الاطلاع والقراءة ..وهناك الكثير في المنتدى مما تطيب لها نفسك تحياتي دكتور

استاذي العزيز @ابو البشر الفكرة جديدة علي ... وهو ابداع من حضرتك ...كيف ل abo1 ان يعد من جديد وهو غير مرتبط بأي شيء ؟ ممكن توضيح الفكرة لو سمحت

وعليكم السلام.. استخدم هذه الشفرة للزر المزدوج Private Sub cmd3_Click() If Me.cmd3.Caption = "مقبول" Then Me.cmd3.Caption = "مرفوض" Me.txt1.SetFocus Me.txt1.Text = "مقبول" ElseIf Me.cmd3.Caption = "مرفوض" Then Me.cmd3.Caption = "مقبول" Me.txt1.SetFocus Me.txt1.Text = "مرفوض" End If End Sub نسيت شغلة..قم بتسمية الزر cmd3 ..والتسمية التوضيحية "مقبول"

ماعندك الا العافية استاذ فادي

مرحبا بك استاذ @jo_2010 بالنسبة للمطلب الثاني ليست لدي فكرة عنه LAB_GOOD.rar

حول ملفك الى نسخة 2013 او اقل

حتى ينتقل المؤشر على نفس الحقل عند الضغط على انتر تجعل ال stop tab=yes والبقية تجعلها NO

استعلام التوحيد لايمكن الاستغناء عنه في بعض مشاريعي اقوم بعمل الاستعلامات التي احتاج لاخراجها بشكل موحد ثم انسخ ال sql لها لكي اوحدها في استعلام واحد ثم امسح الاستعلامات طبعا تلك الطريقة غير احترافية ...المحترف يقوم بأنشاء استعلام توحيد مباشرة

كل عام وانت بخير استاذ @عبد اللطيف سلوم صحيح ان ال chat GPT قفزة نوعية في عالم التكنولوجيا ..لكنه سينهي حب التعلم والابداع والبحث عن المعرفة نعم استخدمته في بعض الاحيان ...لكنني فكرت بأني سأصبح عبارة عن جماد لايفكر ... شخصيا ...افضل شي عندي تعلم البرمجة من اساتذتي في موقع اوفيسنا ...و طبعا من بعض المواقع الاجنبية الرائعة

بالتوفيق يارب

الاداة شغالة تمام ناجح.rar