Im getting a compile error (method or data member not found) when I click on the command button with the follwing codings.
Private Sub cmdTransfer_Click()
Dim SQL As String
Dim RecordsAffected As Long
If Me.txtTempBal < 0 Then
MsgBox "The amount you wish to transfer is larger than the balance"
Else
SQL = "UPDATE tbl_BudMaster SET " & _
"balan = " & Me.txtTempBal & ", " & _
"voupa = voupa + " & Me.txtAmount & " " & _
"WHERE [BFSIX] = '" & Me.lstCbfsix.Column(5) & "'"
CurrentProject.Connection.Execute SQL, RecordsAffected
Debug.Print SQL
Debug.Print RecordsAffected
MsgBox "Your transaction has been completed"
End If
Me.lstCbfsix.Requery
DoCmd.OpenForm "frm_MainMenu", , "qry_UpdateBudMaster_Balance"
exit_cmdOK_Click:
DoCmd.Close acForm, Me.Name
Exit Sub
End Sub
can anyone pin point what's giong on?
Private Sub cmdTransfer_Click()
Dim SQL As String
Dim RecordsAffected As Long
If Me.txtTempBal < 0 Then
MsgBox "The amount you wish to transfer is larger than the balance"
Else
SQL = "UPDATE tbl_BudMaster SET " & _
"balan = " & Me.txtTempBal & ", " & _
"voupa = voupa + " & Me.txtAmount & " " & _
"WHERE [BFSIX] = '" & Me.lstCbfsix.Column(5) & "'"
CurrentProject.Connection.Execute SQL, RecordsAffected
Debug.Print SQL
Debug.Print RecordsAffected
MsgBox "Your transaction has been completed"
End If
Me.lstCbfsix.Requery
DoCmd.OpenForm "frm_MainMenu", , "qry_UpdateBudMaster_Balance"
exit_cmdOK_Click:
DoCmd.Close acForm, Me.Name
Exit Sub
End Sub
can anyone pin point what's giong on?