Error Checking - Xtreme Visual Basic Talk

11-25-2003, 05:57 AM

scantor145 scantor145 is offline

Centurion

Join Date: Oct 2003

Posts: 196

Error Checking

Below is a portion of a macro that is to check to see if a value was entered into a text box called txtCalConc. If no value was entered then I have a warning message screen pop up. I then reset the focus on the text box.

Problem: The message appears with no trouble, however, when I the select OK button, although I saw that focus was set on the textbox, the form disappeared immediately and the macro proceeded as normal.

What statement do I need after

Code:

frmOptions.txtCalConc.SetFocus

to go back to the form and enter an appropriate value?

Code:

Private Sub cmdContinue_Click()

Dim Press As Single

    If frmOptions.chkCal = True And frmOptions.txtCalConc = "" Then
    
        Press = MsgBox("Enter a concentration for the Calibrator", vbCritical)
        frmOptions.txtCalConc.SetFocus
        
    End If
    
    frmOptions.Hide
    Call NewWork

End Sub

11-25-2003, 06:30 AM

Insomniac

Contributor

* Expert *

Join Date: Mar 2003

Location: Adelaide,Australia

Posts: 681

Only had a quick look, but I think you want something like this:

Code:

Private Sub cmdContinue_Click()

Dim Press As Single

    If frmOptions.chkCal = True And frmOptions.txtCalConc = "" Then
    
        Press = MsgBox("Enter a concentration for the Calibrator", vbCritical)
        frmOptions.txtCalConc.SetFocus
        
    Else
    
    frmOptions.Hide
    Call NewWork
    
    End If
    
End Sub

11-25-2003, 08:18 AM

mark007

Licensed to post

* Expert *

Join Date: Jul 2003

Location: York, Uk

Posts: 1,637

Code:

Private Sub cmdContinue_Click()

Dim Press As Single

    If frmOptions.chkCal = True And frmOptions.txtCalConc = "" Then
    
        Press = MsgBox("Enter a concentration for the Calibrator", vbCritical)
        frmOptions.txtCalConc.SetFocus
        Exit sub
    End If
    
    frmOptions.Hide
    Call NewWork

End Sub