003 MS Access VBA – Writing First 2 programs

-1-

-2-

Option Compare Database

Private Sub Command12_Click()

Dim x As Integer

Dim y As Integer

Dim r As Integer

x = Me.Text4.Value

y = Me.Text6.Value

r = x + y

Me.Text8.Value = r

End Sub

Private Sub Command13_Click()

Back Color = 65280

End Sub

Private Sub Command14_Click()

MsgBox "This is a message box in VBA."

End Sub

Private Sub Command15_Click()

Call Command14_Click

End Sub

Sub ShowMessage3(strMessage, strUserName)

MsgBox strUserName & ", your message is: " & strMessage

End Sub

Private Sub Command16_Click()

Call ShowMessage3("Keep on learning.", "John")

End Sub

Private Sub Command2_Click()

Dim stx As String

stx = "hello here in vba "

 Text12.Value = " hello "

Text0.Value = stx

MsgBox ("Hello World ....")

End Sub

vba محتوى كورس الاكسيس

مسلسل	اسم الملف	المدة ب الدقيقة	لينك
1	001 MS Access VBA Grouping Code , Variables And Data Types	18	https://youtu.be/iT1bFbliG5E
2	002 MS Access VBA – Writing First Code 2 programs in one form	16	https://youtu.be/h-jXH_kcE4c
3	003 MS Access VBA – Writing First 2 programs	14	https://youtu.be/Z36lpESNk8k
110	قائمة ملفات تعلم اكسيس المستوى الاول MS Access 380 min		https://www.youtube.com/playlist?list=PLMmy9Ec9B98wxI2RWVrjjtyV2knTFoR1t

-3-

-4-