Computer Programming Concepts and Visual Basic David I. Schneider

Dim message As String
‘If one of the four required pieces of information
‘is missing, assign its name to message
message = “”
If txtDate.Text = “” Then
message = “Date”
txtDate.SetFocus
ElseIf txtToFrom.Text = “” Then
If transType = “Check” Then
message = “Pay To”
Else
message = “Source”
End If
txtToFrom.SetFocus
ElseIf txtAmount.Text = “” Then
message = “Amount”
txtAmount.SetFocus
ElseIf txtNum.Text = “” Then
If transType = “Check” Then
message = “Check Number”
Else
message = “Deposit Number”
End If
txtNum.SetFocus
End If
If message = “” Then
‘All required data fields have been filled; recording can proceed
AllDataGiven = True
Else
‘Advise user of required data that are missing
MsgBox “The ‘” & message & “ ‘field must be filled”, , “Error”
AllDataGiven = False
End If
End Function
Private Sub cmdMode_Click()
‘Toggle from Check to/from Deposit Slip
If transType = “Check” Then
Call SetupDeposit
Else ‘transType = “Deposit”
Call SetupCheck
End If
Call InitializeFields
txtToFrom.SetFocus
End Sub
A Case Study: Recording Checks and Deposits 233
Private Sub cmdPrint_Click()
Dim temp As String, lineNo As Integer
Dim nameOnChk As String, balance As Single, ck As Integer, dp As Integer
Dim toFrom As String, amount As String, memo As String, theDate As String
‘Print out a detailed list of all transactions.
temp = frmCheckbook.Caption ‘Save the current form caption
frmCheckbook.Caption = “Printing...” ‘Set form caption to indicate printing
lineNo = 1 ‘Line number being printed
Open fileName For Input As #1 ‘Open the file
Input #1, nameOnChk, balance, ck, dp ‘Read in the file header