abohamed

تفضل أخي الكريم هذا الكود Private Sub Form_Load() For i = 0 To 4 Text1(i).MaxLength = 1 Next End Sub Private Sub Text1_Change(Index As Integer) On Error Resume Next If Text1(Index).Text <> "" Then Text1(Index + 1).SetFocus End Sub

تفضل أخي الكريم حاول تجربة هذا الكود Private Sub Computers_Name_List() On Error Resume Next 'Clear List Box Computers_List.Clear 'Create file with list of network computers Shell "cmd /c net view >C:\comName.txt", vbHide Dim FileSystemObject, TextStream As Obj…

تمت الاجابة عليك في منتديات المحيط العربي

تفضل أخي الكريم If rs.State = adStateOpen Then rs.Close rs.Open "select * FROM [gen] WHERE LIKE '%" & Trim(Text8) & "%' or [num] LIKE '%" & Trim(Text8) & "%' Or [kind] LIKE '%" & Trim(Text8) & "%' Or [source] LIKE '%" & Trim(Text8) & "%' Or [tex] LIKE '%" & Tr…

بارك الله فيك أخي الكريم انا اريد الطريقة بأية لغة سواء c++ أو VbNet أو C أو php java script أو أية لغة أخرى واكون شاكراً لك ومقدر وتقبل تحياتي

كل ذلك ممكن لا يوجد شيء مستحيل في البرمجة إلا المستحيل على العقل البشري

أخي الكريم هذا سهل 1- اضف أداة CommonDialog على الفورم 2- أضف زر أمر Command 3- أضف مربع نص TextBox وضع هذا الكود Private Sub Command1_Click() CommonDialog1.Filter = "PowerPoint |*.ppt|PowerPoint Show |*.pps| " CommonDialog1.DialogTitle = "Open" CommonDialog1.…

ارفق مثال ليتم التعديل علية

السلام عليكم ورحمة الله وبركاته أقدم لكم بذه تعريفية عن النظام الشامل للعقارات وهو من تصميمي وبرمجتي هو عبارة عن نظاماً شاملاً لإدارة جميع أنشطة المكاتب العقارية من بيع واستثمار وإدارة الأملاك لجميع العروض العقارية ، وقدر روعي فيه البساطة والدقة والشمولية دون …

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

وين المحترفين والخبراء ارجو المساعدة

لنفرض أن أسم اللإدارة في Text1 وأن بداية التاريخ في Text2 ونهاية التاريخ في Text3 سيصبح الكود هكذا "select * from data_emp where mang='" & text1.text & "' and date>=#" & text2.text & "# and date<=#" & text3.text & "#"

للرفع والمساعدة العاجله

أخواني الأعزاء ... مشرفي واعضاء منتدانا الغالي . السلام عليكم ورحمة الله وبركاته لدي صورة من نوع (JPEG او JPG ) تحتوي على أربعة أرقام فهل يمكنني سحب هذه أرقام من هذه الصورة ووضعها داخل مربع Text . علما بأن خلفية الصور باللون الأسود والأرقام باللون الأبيض ولا ت…

سلمت يداك وبارك الله فيك أخي العقدة

آسف لتأخري بالرد عليك اول شي : جزاك الله الجنه ونفع الله بك وبعلمك . الكود شغال وتمام 100 % . ولكن مشكلته أنه يبحث فقط في المجلدات الرئيسية . فما هي الطريقة للبحث عن المجلدات الفرعية والمخفية أيضاً . وسترك الله فوق الأرض ويوم العرض .

السلام عليكم ورحمة الله وبركاته استخدم دالة Format وهذا هو الكود قم بتغيير ColNumber إلى رقم العمود المحتوي على التاريخ For i = 1 To MSFlexGrid1.Rows + 1 MSFlexGrid1.TextMatrix(i, ColNumber) = Format(MSFlexGrid1.TextMatrix(i, ColNumber), "yyyy/mm/dd") Next وال…

سلمت يداك وبارك الله فيك وجعله الله في ميزان حسناتك

بارك الله فيك أخي العماني

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