计算机二级access vb部分(国外英文资料)
计算机二级access vb部分(国外英文资料)
The 1. command button makes another command button work: CmdSave.Enabled =true
2. click the button to display; Private, Sub, bt1_Click ()
'*****Add*****
BTitle.Caption = tTest
'*****Add*****
End Sub
3, Private, Sub, Form_Load ()
Set the form header to the current date
'*****Add*****
Form.Caption = Date
'*****Add*****
End Sub
4 [10]'*****Add1*****
If rs.RecordCount = 0 Then
'*****Add1*****
MsgBox age data for non party employees"
Sage = 0
Exit Sub
Else
Sage = rs.Fields (0)
End If
'*****Add2*****
TAge = sage
'*****Add2*****
Rs.Close
Cn.Close
Set rs = Nothing
Set CN = Nothing
11 sets are difficult, 18 sets are difficult, 25 are difficult
K=inputbox ("," MSG ") / opens... Show,,,
DOCMD. openFORM/openREPORT "TEMP" opens the table / Report
Case is>=3 CASE 2 CASE 1
17] Private, Sub, btnP_Click ()
Dim I As Integer
Dim s As Integer
'*****Add1*****
Dim f (19) As Integer
'*****Add1*****
F (1) = 1:, f (2) = 1
For I = 3, To 19
'*****Add2*****
F (I) = f (I - 1) + F (I - 2)
'*****Add2*****
Next I
'data output to text box
'*****Add3*****
TData = f (19)
'*****Add3*****
18] Private, Sub, bt1_Click ()
'dynamically setting forms to record source properties
'*****Add1*****
Form.RecordSource = "qEmp""
'*****Add1*****
Refresh the form
Me.Requery
End Sub
Private, Sub, bt2_Click ()
Close window
'*****Add2*****
DoCmd.Close
'*****Add2*****
End Sub
19] Private, Sub, Form_Load ()
Set the bTitle tab to red text display
'*****Add1*****"
BTitle.ForeColor = vbRed
'*****Add1*****"
End Sub
Preview output
Private, Sub, bt1_Click ()
'*****Add2*****"
MdPnt (acViewPreview)
'*****Add2*****"
End Sub
Print output
Private, Sub, bt2_Click ()
MdPnt acViewNormal
End Sub
Output process
Private, Sub, mdPnt (flag, As, Integer)
'output in parameter condition
DoCmd.OpenReport "rEmp", flag
End Sub
20) click the output button for preview
Private, Sub, bt1_Click ()
'the message box prompts the report output (looks, style, see questions, dry legend)
'*****Add*****
If MsgBox (report preview, vbY