User Login Details!

[cap.zadi]

To add a message, then do something like this

Private Sub CmdLogOut_Click
   If MsgBox("This will log you out and close the application" & vbCrLf & _
        "Are you SURE you want to do this?, vbQuestion+vbYesNo+vbDefaultButton2,"Logout & Quit?")= vbNo Then Exit Sub
   Call CloseSession
   Call LogMeOff(lngLoginID)
   DoEvents 
   Application.Quit
End Sub

Thanks, its showing compile syntax error.

[isladogs]

Sorry. Missing " after this?

Private Sub CmdLogOut_Click
   If MsgBox("This will log you out and close the application" & vbCrLf & _
        "Are you SURE you want to do this?", vbQuestion+vbYesNo+vbDefaultButton2,"Logout & Quit?")= vbNo Then Exit Sub
   Call CloseSession
   Call LogMeOff(lngLoginID)
   DoEvents 
   Application.Quit
End Sub

[cap.zadi]

Hi

Its working fantastic now.

Thanks for efforts.