Klaus,
This is calling sub
Sub trxTypeCard_Click
CreditCardOk=False
trxType=1
Credit.Show
End Sub
this is the called form
Sub Credit_Show
Password=""
txtPassword.Text =""
txtCardNo.Text=""
End Sub
Sub btnCreditCancel_Click
Credit.Close
End Sub
Sub Credit_Close
If CreditCardOk=False Then
Msgbox("Credit Denied")
trxType=0
trxTypeCash.Checked=True
end If
End Sub
trxTypeCash is a radio button on the calling form
Hope this helps
Thanks
Joe
|