Access Form with some VB 6.0 code

[mrsgwen90]

ok. I have a form that I have created in Access and I am using a bit of VB 6.0 code behind the scenes.
On the form I have a combo box called "Payment Method" and in the combo box the choices are: check, cash, free. Then I have a textbox called "CheckNum" for the user to enter a check number when "check" is chosen. What I'm wanting to do is - when the user chooses "check" from the combo box I want it to prompt the user to enter a check number if they have by passed that field. Here is the code that I have and it is not working. Please help!

Private Sub PrintRec_Click()
On Error GoTo Err_PrintRec_Click
 
Dim rstTrans As New ADODB.Recordset
Dim fld As ADODB.Field
Dim strField As String
Dim curCount As Currency
 
 /////// Here is the code in question
 If Me.cboPaymentMethod = "Check" And CheckNum.Text = "" Then 'Check number not entered
         MsgBox "You must enter a check no."
    CheckNum.SetFocus
 
End If
 
 
rstTrans.Open "dbo_tbl_Transactions", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
    If IsNull(Me.TempTransNumID.value) Then
    'this is new record
    rstTrans.AddNew
    Else
    'to stay on the record that was just inserted for editing
    rstTrans.Find ("TransNumID=" + Str$(Me.TempTransNumID))
    End If
 
 
rstTrans!TransDate = Me.TransDate
rstTrans!CustomerName = Me.CustomerName
rstTrans!VehType = Me.VehType
rstTrans!TktType = Me.TktType
rstTrans!Auth_By = Me.AuthBy
rstTrans!Quantity = Me.Quantity
rstTrans!SHtkt1 = Me.SHtkt1
rstTrans!SHtkt2 = Me.SHtkt2
rstTrans!HRtkt1 = Me.HRtkt1
rstTrans!HRtkt2 = Me.HRtkt2
rstTrans!TransPayAmt = Me.TransPayAmt
rstTrans!PaymentType = Me.txtPaymentType
rstTrans!PaymentMethod = Me.cboPaymentMethod
rstTrans!CheckNum = Me.CheckNum
rstTrans!TransReceiptMemo = Me.TransReceiptMemo
rstTrans!TransEntryTime = Now()
rstTrans!TransEntryUserID = appUser
 
 
 
 
rstTrans.Update
'this was a new record so update the form value of TransNumID for edit
If IsNull(rstTrans!TransNumID.value) <> True Then
    Me.TempTransNumID = rstTrans!TransNumID.value
End If
 
 
whereClause = "NewQryShuttleHandiRideReceipt.TransNumID" & " = " & rstTrans!TransNumID
 
'DoCmd.OpenReport "RptShuttle HandiRide Receipt", acViewNormal, , whereClause
 
rstTrans.Close
 
Set rstTrans = Nothing
Me.cmdAddRec.Enabled = True
 
Exit_PrintRec_Click:
    MsgBox "Record Successfully Saved! Printing Receipt."
    Exit Sub
 
Err_PrintRec_Click:
    MsgBox Err.Description
    Resume Exit_PrintRec_Click
 
End Sub

[nico5038]

The best approach is to have two buttons on the form:
[Cancel] and [Save]
Your test for the Check text to be filled should be performed when the [Save] button is pressed and the combo equals "Check". This way the user can enter the Checktext and the "Check" value in the combo in any sequence.

Getting the idea ?

Nic;o)

[missinglinq]

And just to clarify things, if your code is behind an Access form, it is VBA (Visual Basic for Applications) not VB6! While VBA was developed from standard Visual Basic, there are differences which, at times, are substantial. All functions available in one are not available in the other, and some identically named functions behave differently, depending on which of the two languages you're referring to and even which version of Access you're using.

Be sure to always post Access code questions here as you did, rather than in the Visual Basic forum.

Welcome to TheScripts!

Linq ;0)>