awadiah

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

Right :وتعيد عدد معين من السلسلة من الجهة اليمنى Right(text1.text,2) المثال المرفق يضح العملية vba.zip

اسمع يا سيد : أولا اسمك غير مقبول ثانيا : بالنسبة لطلبك فهو موجود في كتاب للاخ تركي العسيري وسأقوم بإرفاق الكتاب لمن يريد برساله بريدية ولكن ابعث لي ايميلك. ولا يمكن ادراج الكتاب في النتدى لان حجم الكتاب 977kb

لقد قمت بحل المشكلة على الفورم اسمه main وارجو أن أكون قد قدمت الاجابة على الاسفسار الحل ضمن الملف المرفق db1.zip

بسم الله الرحمن الرحيم اذا كانت عندك قاعدة بيانات وتريد ان تضعها على جهاز رئيسي وتربطها مع اجهزة اخرى مرتبطة على الشبكة إعمل الاتي: 1- ضع قاعدة البيانات على الجهاز الرئيسي. 2- على أحد الاجهزة الفرعية قم بإنشاء قاعدة بيانات جديدة وفارغة. 3- على قاعدة البيانات ا…

تحيه للجميع وخاصة لمن طلب تعلم الاكسس بالكود ، ويود عندي كتاب لتعليم الاكسس بالكود سأقوم بأرساله لمن يريد على الايميل وسأقوم بادراجه في المنتدى أشرف الوادية awadiah@hotmail.com درس عن ال VBA.doc

يا أخي العزيز، في المراج يجب أن تعرف Microsoft DAO 3.6 وليس ADO

يا اخي العزيز كلمة DataBase عندك فيها غلط واكتبها كالتالي Dim DB As DataBase

اي ملف من نوع tmp فهو غير ضروري احذفه وأنت مطمئن . اما التعديل على البرنامج : قم بعمل التعديلات المناسبة وبعدها اعمل الملف التنفيذي كما اورد prof_1982

انتقل من تقنيةDAO الى تقنية ADO اليكم الرابط MigratingFromDAOtoADO.zip

اضغط على الرابط للحصول على الكتاب Crysta_Report.zip

If Combo1.Text = "نوع الجهاز" Then Dim s1 As String s1 = "select * from Table1 where typ ='" & Trim(txtSearch.Text) & "'" Set rs = db.OpenRecordset(s1) If rs.RecordCount > 0 Then rs.MoveFirst Do While Not rs.EOF Set MY = ListView1.ListItems.Add MY.SubItems(1) …

If Combo1.Text = "نوع الجهاز" Then Dim s1 As String s1 = "select * from Table1 where typ ='" & Trim(txtSearch.Text) & "'" Set rs = db.OpenRecordset(s1) If rs.RecordCount > 0 Then rs.MoveFirst Do While Not rs.EOF Set MY = ListView1.ListItems.Add MY.SubItems(1) …

'Where to place code: Moduleهذا في المديول 'Notes: Set strKey to the Registry Key you want to deleteأدخل المفتاح المراد حذفه ' '================================================= Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByV…

'Form Code Private Sub Command1_Click() Dim ac As Access.Application Set ac = New Access.Application ac.OpenCurrentDatabase ("c:\myDir\myDBFileName.mdb") ac.DoCmd.OpenReport "Catalog", acViewNormal ac.CloseCurrentDatabase End Sub

SetupFactory v.6.0 Serial# SF6-1139-6333-8984

قم بتحديد الحقول التي بها نص عربي وغير نوع الخط باختيار احد الانواع العربية

SetupFactory v.6.0 Serial# SF6-1139-6333-8984

اليك هذا العنوان وبه تعليم الـ ASP من الصفر وحتى الاحتراف لذا أرجو الاستفادة منه http://www.alnoor-world.com/asp/sections.a...asp?SectionID=1 (gift)

يمكنك عمل التقرير بناءاً على استعلام ، والاستعلام يكون بناءاً على مربع نص T في فورم F، في الاستعلام في الحقل المراد عمل عليه شرط في خانة معايير نكتب النص التالي: forms!f!t ارجو ان يكون واضح