=>ចាប់ផ្តើម Click Create Blank Form
=>បន្ទាប់មក Click Design=>Views=>Design view ដើម្បីរៀបចំ Form មួយដែលមានទំរងដូចខាងក្រោម៖
- Theara Poipet Imformation=> គឺយក Label មកគូស រួចវាយអក្សរបញ្ចូលជាការស្រេច (Design=>Control=>Label)
-Name and Age=> គឺយក Textbox មកគូស រួចវាយអក្សរបញ្ចូលក្នុង Lable ជាការស្រេច (Design=>Control=>TextBox)
-OK and Close=>គឺយក Botton មកគូស រួចវាយអក្សរបញ្ចូលក្នុង Botton ជាការស្រេច (Design=>Control=>TextBox)
ចំណាំៈ
ត្រូវចុចប្តូរឈ្មោះ TextBox Name; TextBox Age; Botton OK; Boton Close
+Textbox Name=txtName
+Textbox Age=txtAge
+Botton OK=cmdOK
+Botton Close=cmdClose
=>បន្ទាប់មក Click Mouse Right=>Build Event=>Code Builder រួចសរសេរកូដដូចខាងក្រោម៖
Option Compare Database
_____________________________________________________________
Private Sub cmdClose_Click()
DoCmd.Close
End Sub
______________________________________________________________
Private Sub cmdOK_Click()
If IsNull(Me.txtName) Or IsNull(Me.txtAge) Then
MsgBox "Name or Age is Blank", vbInformation
Else
MsgBox "Your Name is " & Me.txtName & " And YOur Age is " & Me.txtAge
End If
End Sub
លទ្ធផល៖
សូមអោយសាកល្បងទៅទទួលបានជោកជ័យណា.....!
0 Comments:
Post a Comment