السلام عليكم و رحمة الله
على موعدنا الأسبوعى تقريبا نلتقى
مع فيديو جديد احترافى من فيديوهات شروح أكسيس
فى فيديو اليوم نتعلم
كيفية عرض تقارير قاعدة البيانات بصورة منظمة
من خلال مربع تحرير و سرد و فتحها من نموذج واحد
و هذه بعض الأكواد التى ربما تحتاجون لنسخها فى حالة تطبيق ما جاء بالفيديو
====
كود إغلاق كافة التقارير المفتوحة بعد إغلاق النموذج
ضعه فى حدث عند الإغلاق
Private Sub Form_Close()
On Error GoTo 1
DoCmd.SetWarnings False
For i = 0 To Me.Combo96.ListCount - 1
Me.Combo96.SetFocus
Me.Combo96.ListIndex = i
DoCmd.Close acReport, Me.Combo96
Next i
DoCmd.SetWarnings True
1:
End Sub
كود فتح التقارير
فى حدث عند النقر بزر الأمر
Private Sub Command99_Click()
Dim MyMsg As String
MyMsg = "تم فتح التقرير "
On Error GoTo 1
Dim myrep As String
myrep = Me.Combo96
DoCmd.Close acReport, myrep
DoCmd.OpenReport myrep, acViewPreview
MsgBox MyMsg, vbInformation, "فتح تقرير"
1:
End Sub
===
أرجو منكم ألا تنسوا
الإعجاب بالفيديو
الاشتراك بالقناة بضغط مفتاح اشتراك أو subscribe
التعليق ولو بكلمات قليلة لمعرفة مدى التفاعل و مواطن النقص لنتداركها
إلى الفيديو بالمشاركة التالية
جارى رفعه
|