برامج

يا اهل البيسك انا عارف اني مثقلها عليكه بس الله يعينكم [الأرشيف] - برامج نت

المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : يا اهل البيسك انا عارف اني مثقلها عليكه بس الله يعينكم


moh_edress
03-21-2007, 09:11 PM
السلام عليكم
بارك الله فيكم بالمنتدى الروعه ..
عند طلبين الاول سخيف شويه لاني انا مو محترف ..:smailes41:
عملت برنامج من فورمين مورم ا و فورم 2 ولما بدي ارجع بزر رجوع من فورم 2 ل فورم 1 ما يغلق الفورم 2 و يظهر 1 يعني الاثنين يبقوا شغالين كيف ممكن اتنقل من فورم لفورم بحيث الفورم الي انتقل منه يغلق وما يظهر هذا الامر الي استعملته انا وين الخطئ فيه
Private Sub Command5_Click()
Form0.Show
MsgBox "شكرا على الاستخدام"
End Sub

---------------------
الطلب الثاني كيف ممكن اعمل تقارير شخصيه انا عملت برنامج عباره لطلاب مدرسه واريد اعمل تقرير عباره عن شهاده تقدير لكل طالب او شهاده علامات او ما شابه اذا ممكن ساعدوني لانهي برنامجي

الفرعون المحترف
03-21-2007, 09:17 PM
ينقل الى مكانه الصحيح
شكرا

Ahmed_ghanam
03-21-2007, 10:30 PM
باضافه امر بسيط وهو
Private Sub Command5_Click()
Form0.Show
unload form2 او form2.hide
MsgBox "شكرا على الاستخدام"
End Sub

ام ليث
03-22-2007, 09:51 AM
ممكن كمان تزيد عليه الكود التالي في حالة حبيت تخرج من البرنامج وانت في الفورم الثاني Private Sub Form_Unload(Cancel As Integer)
End
End Sub
ملاحظة: هذا الكود عشان اذا ضغطت زر x وانت في الفورم الثاني وبدونه إذا ضغط زر x سيبقى البرنامج شغال لأن hide تعمل على إخفاءه فقط

بالنسبة للسؤال الثاني في أكثر من طريقة لعمل تقرير وبما أنك مو محترف في طريقة كتير سهلة
لكن أنا ما فهمت إذا كان برنامجك مع مربوط بالأكسس أما لا على كل حال إذا كنت عامل ربط بالأكسس فإليك الطريقة التالية:
صمم التقرير في الأكسس ثم اضغط على زر أمر في vb واكتب الكود التالي:
Private Sub Command1_Click()
Dim ac As Access.Application
Set ac = New Access.Application
ac.OpenCurrentDatabase ("مسار واسم قاعدة البيانات")

ac.DoCmd.OpenReport "اسم التقرير", acViewNormal

ac.CloseCurrentDatabase

End Sub