Visitor_OM

السلام عليكم أخي المسعودي وببساطة شديد لتعرف المقصود بي Data1 توجه إلى Toolbox طبعا الموجودة في الVB ابحث عن الأداة Data . وData هو المقصود بي Data1 . أتمنى انك فهمت ! وإذا عندي لبس في شئ حبذا لو تعلمني به . بالنسبة للسؤال الثاني يمكنك البحث باستخدام ذلك الكود…

تفضل اخي المثال المرفق : vsearch.zip

السلام عليكم اخي الكريم تحية لك ولأهل فلسطين والله ينصركم على الأعداء . أخي لو تحط برنامجك في المرفقات وتحدد الطلوب في البرنامج بيكون اسهل للرد على استفساراتك ، طبعا كل اسئلتك يمكن عملها باستخدم VB .

تفضل عزيزي الكود / Data1.RecordSource = "select * from Table where Field like 'Data'" الجدول هو : Table الحقل : Field نص البحث : Data الكود السابق يتعامل مع الكائن Data1 أي استفسار انا بالخدمة . تحياتي

تفضل اخي اتمنى أن يكون المطلوب بس ناقص كود إعادة التشغيل shutdown.zip

السلام عليكم أخي تفضل البرنامج : على فكرة البرنامج يتعامل مع قاعدة بيانات اكسس 97 اسم قاعدة البيانات Staff اسم الجدول ايضا Staff الحقول كالتالي : Id التسلسل Name اسم الموظف RNumber رقم السجل Date التاريخ Active الحالة الاجمتماعية . العفوا لإني نسيت اضيف مكان ا…

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

السلام عليكم تأمر أمر أخي وهذا مثال : ' If Not IsNull(t!EmployeeName) then Text1.Text = t!EmployeeName وطبق المثال اعلاه على الكل إن شاء الله ينجح .

السلام عليكم ادري شوي متأخرة لكني قمت بإجراء بعض التعديلات على برنامجك رغم إن الأخ الكريم ابن الشمال ما قصر على كلا تفضل البرنامج : asd2.zip

السلام عليكم استخدم IsNull مثال : على عتبار Field1 حقل ، تسطيع وضعها في حملة شرطيه . IsNull(xxxxx!Field)

العفو اخي العزيز ولا شكر على واجب

ابشر وما يكون خاطرك إلا طيب . تفضل المثال أدناه : على فكرة هذا المثال يقوم بحفظ نفس البيانات في ثلاث جداول مختلفة وهي table2,table3,table4 على اعتبار الجدول table1 هو الجدول الرئيسي وفي كل جدول ثلاث حقول وهي FirstName , LastName , Address اتمنى ان تستفيد من ال…

السلام عليكم أخي العزيز تحية لك. بالنسبة للسؤال الاول : الكود يعمل مع access 97 مافيه اي مشكلة إن شاء الله . الكود لزر الحفظ : ' db.Execute "INSERT INTO Table1 (Field1,Field2) VALUES ('YourData1','YourData2');" db.Execute "INSERT INTO Table2 (Field1,Field2) VA…

السلام عليكم طبعا يمكن فعل ذلك بعددة طرق منها الطريقه التالية : 'في قسم التصاريح العامة ضع الكود التالي Dim db As ADODB.Connection Private Sub Form_Load() ' Dim db As ADODB.Connection Set db = New ADODB.Connection db.CursorLocation = adUseClient db.Provider = …

السلام عليكم أخي راجع هذا الرابط http://vb4arab.com/modules.php?name=News&f...=article&sid=25

السلام عليكم تفضل الاكواد المطلوبه : محاذاة لليسار Text1.Alignment = 0 'Left لليمين Text1.Alignment = 1 'Right في الوسط Text1.Alignment = 2 'Center وهذا اكواد للقطع والنسخ واللصق والمسح . ' Cut If TypeOf Screen.ActiveControl Is TextBox Or ComboBox Or RichTextB…

عفوا نسيت ارفق الملف تفضل : project02.zip

السلام عليكم اخي العزيز mu7afez العفو ولا داعي للشكر فهذا واجب . بخصوص المشكلة الاولى اتوقع الحين نحلت إن شاء الله . واما البحث فهو ايضا يعمل بنسبة 90%. اما بالنسبة للطباعة في الForm1 قد وضعت سابقا command تحت db grid يحمل اسم طباعة قم بتجربته وإذا كان ذلك قصد…

تحية لك اخ mu7afez ولإعضاء المنتدى الرائع. قمت بإجراء بعض التعديلات على برنامجك اتمنى ان توفي هذه التعديلات بالغرض او تعطيك فكرة على الاقل تواصل من خلالها كتابة البرنامج . وانا في إنتظار إي تعليق . تفضل البرنامج المعدل : project01.zip

تفضل : WinDir$ = Environ$("windir") MsgBox Left(WinDir$, 3)