mostafazidani

جرب الكود التالي على فكرة بصراحة كتبتو من دون مااجربو sql = "select * from students where s_no='123456' " Adodc1.RecordSource = sql Adodc1.Refresh End Sub Private Sub Command2_Click() sql="select * from students" Adodc1.RecordSource = sql do until adodc1.recor…

عزيزي هذا كود على السريع اتمنى انو يفيدك طبعا باختصار انا قرأت اخر رقم موجود بالجدول وعملتلو فورمات اتمنى يكون مفهوم الشي التاني هذا الكود لازم تكتبو بعد ما تسوي عملية استعلام ا و ممكن تخزن الرقم مثلا 1 في ملف نصي وتقوم بقراءة الملف النصي وعمل الفورمات عليه وه…

شو ف هالرابط ان شالله يفيدك فيما تريد اضغط هنا

زي ماقال الاخ محمد انت لازم تظهر كل الطابعات المتوفرة في الجهاز عشنا المستخدم يختار وحدة منها هاد الكود راح يظهر كل الطابعات Dim P As Printer For Each P In Printers Combo1.AddItem P.DeviceName Next

اخي الكريم لو بحثت في المنتدى عن هالموضوع راح تلاقي مش موضوع بس. بل مواضيع وأكواد وحلول للي تبحث عنو لانو الطلب هذا مكرر بشكل كبير في المنتدى

الله يعطيك العافية اخ محمد

هذا المثال عملتو إلك للتوضيح واتمنى يكون واضح ان شالله sections.zip

تقريبا نفس كود ااخ محمد سيد مع اضافة بسيطة فقط Dim arr(3) arr(0) = "mostafa" arr(1) = "goon" arr(2) = "loooon" For i = 0 To UBound(arr) - 1 If arr(i) = "goon" Then arr(i) = "Not Goon" End If Next

عزيزي يمكن من خلال قاعدة البيانات عمل ذلك يعني عشان تسهل على حالك مثلا سوي جدول يحتوي على الاتي 1-اسم الادارة ورقم القطاع الخاص بها يعني بمعنى مجموعات كل مجموعة ادارات لها نفس رقم القطاع 2-سوي جدل يحتوي على الاتي كمان 1-اسم القسم ورقم الادارة التايعة لها وكمان…

بكل بساطة عزيزي ضع الكود التالي للتكست رقم واحد Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyDown Then Text2.SetFocus End If End Sub واستخدم vbkeyup للتنقل بواسطة الزر الاتجاه الاعلى

اخي الكريم اداة ال Richtextbox تسمح لك بذلك جرب الكود التالي قم باضافتها من project>>components>>microsoft rich text box ضع التالي في اعلى الفورم Private Const WM_PASTE = &H302 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd …

زي ماقلك الاخ محمد سيد متحملها في بكشر بوكس وتخليه مخفي واول ماتحط الصورة في البكشر بوكس يطبع على طول من دون ضغط اي زر تاني طبعا كل ها د باستخدام اداة ال commondialog عشان يفتحلك مسار الصورة اللي انت بدك ياها

اخي الكريم ضع زر واكتب الكود التالي فيه For fr = 1 To FG.Rows - 1 FG.Row = fr FG.Col = 4 هذا هو رقم العمود الذي يحتوي على التواريخ المراد ترتيبها تصاعديا FG.Sort =flexSortStringAscending Next

عزيزي يمكنك عن طريق استخدام الدالة filecopy filecopy old data path ,New Datapath مثلا filecopy app.path & "\" & "db.mdb","d:\mydb.mdb" وبصراحة هذه الدالة اللي استخدمها في برنامجي المحاسبي طبعا تغير المسار d:\mydb.mdb الى المسار الذي انت تريد وضع الباك اب فيه ا…

بارك الله فيك اخي عبد العزيز على التواصل وماقصرت الحمد لله المشكلة انحلت If lv1.ListItems.Count = 0 Then Exit Sub End If On Error GoTo err Me.MousePointer = vbHourglass ind = lv1.SelectedItem.Index For Each m In mdiPOSI.Controls If TypeOf m Is Menu Then S = m.…

شكرا لك اخ عبدلعزيز الشي الثاني الكود هذا ممكن يكون لقائمة وحدة ولكن انا عندي اكثر من 100 قائمة فرعية معقولة اعمل نفس الكود هذا .عشان هيك انا سألت السؤال ولاا الكود هذا معروف لدي وشكرا لك اخ عبد العزيز واتمنى التواصل معي ومن بقية الاخوة حتى اجد الحل حتى ولو بف…

up up up

عزيزي ممكن تعرف متغيرات من نوع Public حتى يكون مدى الوصول الى تلك المتغيرات سهل من اي فروم ...وطبعا لازم تعرف المتغيرات في موديول

اولا شكرا على مرورك اخي عبد العزيز ...انا هلا حطيت الملف للتوضيح اكثر اكثر مع الصورة كمان اتممى من كل اللي بيبعرفو انهم يساعدوني بالتعديل على الكود ....طبعا هذا الكود من api Guide Menu.zip

up