PCBat

بسم الله الرحمن الرحيم الأخ palstine إن أهم مشكلة في الكود الذي أوردته هي أنه لو أنشأنا سجلا جديدا و كان رقمه 95 مثلا ثم بعد ذلك و لسبب ما قمنا بحذف ستة سجلات مثلا فالسجل التالي الذي سوف يظهر هو السجل رقم 90 و هو أمر مربك و يرفضه أصحاب كل البرامج الجادة - الكب…

بسم الله الرحمن الرحيم تحية طيبة و بعد استخدم الكود التالي Private Sub Command1_Click() Dim A, b As Date VBA.Calendar = vbCalGreg A = CDate("10/10/1422") b = CDate("11/10/1422") If A > b Then MsgBox "a < b" ElseIf b > A Then MsgBox "b > a" Else MsgBox "a = b" …

بسم الله الرحمن الرحيم إن MSDN مخصوص على شان الفيجوال بيسك و باقي مكونات الفيجوال استديو من إصدار المايكروسوفت خصيصا للفيجوال بيسك و أشقائه

بسم الله الرحمن الرحيم تحية طيبة و بعد Private Sub Command1_Click() clipboard.clear Clipboard.SetText (Text1.Text) ' Or for selected text Clipboard.SetText (Text1.selText) End Sub و للصق Private sub command1_click Text1.Text = Clipboard.GetText end sub و الله …

بسم الله الرحمن الرحيم الأخ العزيز أشرف كل عام و أنت بخير بنظري أن أفضل طريقة هي التي تكون من خلالها أنت سيد الموقف و هي تتلخص بتسجيل رقم السيريال - ابتداءا من صفر - في منطقة خارج الجدول - كأن تعمل جدول أو ملف تسجل به كل متغيرات و ثوابت الجداول الأخرى - و عند …

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

بسم الله الرحمن الرحيم تحية طيبة و بعد الأخ أشرف يوجد لدي طريقة ممتازة لعمل السيرل ولكن قبل أن أشرحها أرجو منك أن تخبرني بماهية srl و ما نوع البيانات المخزنة به حتى تحصل على مثال يغطي طلبك تحديدا و الله الموفق

بسم الله الرحمن الرحيم حمل الملف التالي rnddatabase.zip

بسم الله الرحمن الرحيم تحية طيبة و بعد ربما يجدر بي التذكير بوجوب تعريف الدالة LoadKeyboardLayout قبل إمكانية استخدامها و ذلك على مستوى الوحدة على الأقل و التعريف هو Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pw…

بسم الله الرحمن الرحيم تحية طيبة و بعد يمكنك استخدام الشفرة التالية Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long Private…

بسم الله الرحمن الرحيم تحية طيبة و بعد لملفات msi استخدامات كثيرة لعل أشهرها صيانة الويندوز و مكوناته و تحميل مكونات جديدة و msi هي اختصار ل Microsoft Installer أو ما يعرف ب Windows Installer Pakage و الموضوع متشعب و له العديد من المواضيع الفرعية و لو جربت في …

بسم الله الرحمن الرحيم تحية طيبة إجابة سريعة على استفسارك بانسبة لجملة Select من جملSQL فالموضوع مدرج بشكل كامل مع help الفيجوال بيسك و لكن في عجاة يحتوي على where XXX$ = 'mmm' where xxx=150 ب يبدأ ب where XXX$ = 'm*' ينتهي ب where XXX$ = '*PC' أكبر من و أصغر …

بسم الله الرحمن الرحيم تحية طيبة و بعد أتوقع أن جملة شرط where في عبارة SQL ستفي بالغرض وعلى كل حال ان اختلف الموضوع سأرسل لك التعديل على برنامجك أو أدلك لوصلة سابقة حيث سبق أن أجيب على لموضوع موضوع مشابه عدة مرات في حال تطابقت الحالتين و ذلك بعد اطلاعي على مل…

بسم الله الرحمن الرحيم تحية طيبة و بعد الأخ العزيز لقد أجبت لتوي على سؤال قريب جدا من سؤالك و الحمد لله و يمكنك الاطلاع على العنوان من يكمل برنامج الربط بقاعدة البيانات المرفق و أتوقع أنك ستجد الإجابة على الكثير من أسئلتك عند تحميلك للملف المرفق المقدم من قبل …

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

بسم الله الرحمن الرحيم الإخوة الأعزاء إن شاء الله يصلكم الكود قربيا بعد تصليحي لجهازي الآخر حيث أن معظم الأكواد عليه و في هذا حل أيضا لمشكلة الأخ العزيز أبو زيد و اعذروني على التأخير و لكن النظام انهار في الجهاز الآخر و حتى الآن لم أجد وقتا كافيا لصيانته و انت…

بسم الله الرحمن الرحيم تحية طيبة و بعد النتائج تظهر و لكن يبدو أنك لم تنتبه أين فهي تظهر في Debug Window و إن كنت ترغب بإظهارها في رسائل فما عليك إلا تغيير الجملة debug.print في الكود إلى جملة msgbox مع عمل اللازم و الله الموفق

على الرحب و ال.....................................

بسم الله الرحمن الرحيم تحية طيبة و بعد جرب الكود التالي Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Sub Form_Load() Dim MmM As String Me.…

بسم الله الرحمن الرحيم تحية طيبة إجابة على السؤالين باستخدام Like و النجمة سواء باستخدام SQL Statment أو Find و مثالا على ذلك set gRS = gDB.openrecoredset("select * from tabname where name like 'mohammad *'") أو بأي بطريقة مشابهه و إن لم تتضحت الرؤيا لديك فاكت…