أمثلة بسيطة للمبتدئين لا غنى عنها في VBA ACCASS

[أبو امين]

01/ فتح نموذج في طريقة العرض : 

' لفتح نموذج في طريقة العرض 
Private Sub Commande1_Click()
DoCmd.OpenForm "fram2 ", acNormal
End Sub
' acNormal   هو اداة لعرض طريقة الفتح و هنا الفتح عادي 

02/ فتح نموذج في طريقة التصميم : 

' لفتح نموذج في طريقة التصميم 
Private Sub Commande1_Click()
DoCmd.OpenForm "fram2 ", acDesign
End Sub

' acDesign  هو اداة لفتح النموذج في طريقة التصميم

03  لفتح النموذج في طرقة المعاينة للطباعة مثل التقرير : 

' لفتح النموذج في طريقة المعاينة  كالتقرير للطباعة 
Private Sub Commande13_Click()
DoCmd.OpenForm "fram2", acPreview

End Sub

' acPreview  هذه الاداة هي المسؤولة على فتح النموذج في طريقة المعاينة كالتقرير 

04 / لفتح النموذج في طريقة الشارت للرسوم البيانية : 

' لفتح النموذج في طريقة الشارت لعرض الرسوم البيانية 
Private Sub Commande10_Click()
DoCmd.OpenForm "fram2", acFormPivotChart

End Sub

'acFormPivotChart    هذه الاداة هي المسؤولة عن طريقة  عرض النموذج كواجهة للرسوم البيانية