عبدالجليل العقوري

السلام عليكم اولا لديك مشكلة في كتابة كود تعبئة COMBO 1 - اسم الحقل لايوضع بين علامات تنصيص ان كنت تستخدم هذه الطريقة 2 - عندما وضعت كود التعبئة Combo1.AddItem rs!Knowledge في حلقة FOR فان الحلقة ستنتهي بحسب عدد الحقول تمام .. ولكن اين الامر الذي يجعل المؤشر ي…

السلام عليكم اخوتي احتاج منكم كود تشفير لقاعدة بيانات access بحيث لا تظهر بامتدادها وشكلها المعروف ويمكني الاتصال بها من خلال جملة الاتصال

السلام عليكم تم التعديل المطلوب واسف لاي تجاوزات في الكود من طرفي تحياتي Exa.rar

السلام عليكم اعتقد ان حل الاخ حسام صحيح ولكن وفي اعتقدي يجب ان تتجنب ادخال فرغات في اسماء الجداول والحقول تقبل تحياتي

السلام عليكم وجدت هذا الكود في احدى المواقع الاجنبية والذي اعتقد ان الكثير منا في حاجة لهذا النوع من الاكواد وهو يختص بترتيب محتويات العمود للاداة MSHFlexGrid او MSFlexGrid الدعاء لنا بالتوفيق sort_flexgrid.rar

السلام عليكم نعم اخي العزيز تم التعديل في الكود الخاص بك وهو كالتالي lst.ListSubItems.Add , , Format(RS!data_start, "dd/MM/yyyy") lst.ListSubItems.Add , , Format(RS!data_end, "dd/MM/yyyy")

السلام عليكم بامكانك التعامل مع الدالة Format واستخدمها عند تعبئة Listview كالتالي Format(Field_name, "dd/MM/yyyy") تحياتي

السلام عليكم انا اعرف ذلك ولكن الرد كان على تحياتي

السلام عليكم اما بخصوص تحريك السكرول داخل بيئة الفيجول بيسك اليكم الرابط الرباط

السلام عليكم الكود شغال كويس ولتأكد ارفع المثال لنا بس ممكن تكون مش معرف ado_add تحياتي

السلام عليكم اخي فاضل اولا: قبل ان اكتب لك الكود قد تأكدت من انه يعمل بالشكل الصحيح ثانيا : لا ادري لماذا تخفي تكست البحث txtsearch.Text الموجوده على الفورم ثالثا : الكود Y = txtsearch.Text s = "Name like'*" & Y & "*'" وهذا يعنى انك تستخدم التكست txtsearch.Tex…

السلام عليكم اخي فاضل كود زر البحث بعد التعديل Y = txtsearch.Text s = "Name like'*" & Y & "*'" If Y = "" Then MsgBox "من فضلك أكتب في الحقل الاسم المراد البحث عنه ", vbMsgBoxRtlReading + vbInformation, "بحث" Else Data1.Recordset.FindFirst s If Data1.Recordset.…

السلام عليكم وضعت الافتراض انه عند البحث عن الاسم يستبدلة باسم ثاني فوضعت على الفورم text3 وهي التي يوجد بها الاسم المراد تسجيله بدل الاسم المراد البحث عنه Text2.Text = Replace(Text2.Text, Text1.Text, Text3.Text, 1)

السلام عليكم اخي محمد اتبع معي الخطوات التالية اذهب الى الطابعات والفاكسات انقر بزر الماوس الايمن واختار الخيار Server Properties يظهر لك صندوق حواري انقر على Forms ثم اشر على الخيار Create a new Forms في الخانه From name اختار اسم للورق الذي تستخدمه مثلا new_…

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

السلام عليكم Shell ("D:\ALARBIA_tr\Cement sales system tr.EXE"), vbNormalFocus هنا تم استخدام الداله shell لإستدعاء الملف التنفيذي فما الدالة التي استخدمها لأغلاق هذا الملف

السلام عليكم Private Sub Command1_Click() Set rstInfo = db.OpenRecordset("SELECT * FROM table1 WHERE Table1.SampleID ='" & (Trim(Text1.Text)) & "'") FillGrid msflxgrid End Sub

السلام عليكم من حظك انك تستخدم واجه انجليزية وبالتالي يجب ان تكون قراءة msflxgrid من اليسار الى اليمين اذا الامر يحتاج منك ان تغير الاداة msflxgrid من خلال الخاصية RightToLeft الى False والامور ستنجح معك ان شاء الله وبالتوفيق

السلام عليكم الرجاء ان ترسل الكود الذي به المشكلة وسنحاول معا حلها ان استطعنا وانت لم تحدد نوع الاداه هل هي MSFlexGrid1 او MSHFlexGrid1 وبالتوفيق ان شاء الله

السلام عليكم Set DB = OpenDatabase(App.Path & "\Data\data.mdb; jet oledb:database password=123456"