计算机二级access vb部分(国外英文资料).docVIP

计算机二级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, vbYesNo + vbQuestion, confirmation) = vbYes Th