بن ملعاط

لنفرض أن اسم المستخد مخزن في متغير اسمه مثلا UserName وText1 لإدخال الإسم IF Text1.Text="" Then MsgBox "يجب إدخال اسم المستخدم" Exit Sub End If IF Text1.Text<>UserName Then MsgBox "اسم مستخدم خاطئ" Exit sub End If وأتمنى الإيضاح أكثر لنتمكن من المساعدة أكثر

أضف 2 ليبل واكتب على واحد صفحة والثاني من ثم أدرج Current Page Number بعد ليبل الصفحة و Total Page number بعد من لاحظ ان كل واحد ليبل مختلف

على التقرير اضغط زر الماوس اليمين ثم اختر Insert Control ثم تجد في القائمة Current Page Number رقم الصفحة الحالية Total Number Of Pages مجموع أرقام صفحات التقرير نسيت أخي الكريم أن أقول تضع الحقول المطلوبة في قسم الـ Page Footer Section والله أجل وأعلم

شكري وتقديري للمجهود المبذول

لا تنسونا من دعوة في ظهر الغيب

بعد البحث وجدت هذا لاكود أتمنى أن يفي بطلبك Dim StDate As DateTime Dim DaysCount As Integer Dim oline As String Dim yr, mon, dy, hr, min As Integer DaysCount = 5000 StDate = Now.AddDays(-DaysCount) Dim n As DateTime = Now yr = Int(DateDiff(DateInterval.Year, S…

بكل أسف ان الكود غير موجود على قرص وقد قمت بمراسلة المؤلف و أنا في الانتظار

TreeView1.Nodes(0).NodeFont = New Font(TreeView1.Font, FontStyle.Bold)

لجعل خاصية label شفافة Label1.BackColor = Color.Transparent والله أجل وأعلم

للتسجيل خبرة لا بأس بها في VB

!!! أولا هل يعمل ActiveSkin مع دوت نت يجب أن تكون الصورة في الفورم من نوع WMF ليتم تكبيرها أو تصغيرها تيعا للفورم والله أجل وأعلم

يرجى من المشرفين حذف الموضوع Found virus VBS_REDLOF.C in file _____.rar /folder.htt (in /attachment/15216).The non-cleanable file is deleted.

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

وعليكم السلام ورحمة الله وبركاته أخي الكريم إذا عندك مثال تضعه هنا للتسهيل على الجميع

Dim DB as New ADODB.Connection DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\db1.mdb" + ";Persist Security Info=False;" و الله أجل وأعلم

أعتقد والله اعلم أن أكسس 2000 فما فوق يعمل مع ADO ولا يعمل مع DAO والله أجل وأعلم

أخي الكريم Jamalbootruba ( مستعجل ) لإضافة المرجع Reference إذهب إلى Project ==>> References ثم ابحث عن Microsoft ActiveX Data Objects 2.x Library و الـ x الصغيرة اللي بعد الفاصلة ممكن تكون 0 ،1،6 ، 7 أو 8 ضع علامة صع في المربع ثم اضغط موافق و بالتوفيق والله أ…

كل ما عليك عمله هو حذف % بعد Like MyMainRecordset.Open "Select * from Employee Where Name Like '" & LTrim(Text1.Text) & "%'", MyConnection, adOpenStatic, adLockOptimistic والله أجل و أعلم

شكرا على المجهود الرائع

الشكر موصول لك أخي الكريم عبدالله