it is possible? if the user in the running time, click the close button or the X button that we can see in the top of the form and then if the user click the close or X button message box will appear "you cannot log out"? how can i do this? thanks. .
ryan311 -7 Posting Whiz in Training
cguan_77 8 Nearly a Posting Virtuoso
why not set the "borderstyle" properties of the form to "0-None" so the form will not display "X" the user will not be able to terminate your program unless user choose to close the program using "task manager"
vb5prgrmr 143 Posting Virtuoso
it is possible? if the user in the running time, click the close button or the X button that we can see in the top of the form and then if the user click the close or X button message box will appear "you cannot log out"? how can i do this? thanks. .
yes this is possible
Private Sub Form_Unload(Cancel As Integer)
Cancel = True 'set to any none zero number could be cancel=1
MsgBox "Running, cannot close form now!"
End Sub ryan311 -7 Posting Whiz in Training
hi thanks for your code but i have a problem
Set rs = New ADODB.Recordset
rs.Open "Select * from temp", cn, adOpenKeyset, adLockPessimistic
If Val(rs!quantity) = Null Then
calcel = False
Unload Me
Else
cancel = True
MsgBox "You Must Purchase it First, Before Log out", vbInformation
lvButtons_H3.SetFocus
End Ifeither bof or eof is true? that is the error. .
vb5prgrmr 143 Posting Virtuoso
Well that is an entirely different animal. Try adding an if statement to check for the existance of a valid recordset...
If rs.BOF = False AND rs.EOF = False AND rs.RowCount <> 0 Then
'we have a valid recordset with at least one record
End If Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.