Best Logic to solve this

[barianto]

Hi,

I have little logic problem here
It's like this.
I have 4 textbox :Text1, Text2, Text3, Text4
At start Text1 enabled is true, other are false.
When user fill data to Text1 and the data entry get validate is true, Text2 enabled set to true and so on with Text3 and Text4.

When user corrected data entry on Text2 and the data entry get validate is false, Text3, Text4 enabled property set to false but the value remain.

When user corrected data entry on Text1 and the data entry get validate is false, Text2, Text3, Text4 enabled property set to false but the value remain.

And so on.

Hope you all got my message.

[Simply Me]

where do you get the validation value?

[Bruce Fox]

I would suggest useing the Lost_Focus() Event of each TextBox to validate the data. IE. Initiating as a result of pressing a CommandButton.

If the Text1_LostFocus() event validates the data, then disable, and enable TextBox2 etc....

And.... use a Control Array of TextBox's too

[Simply Me]

i agree

[jcis]

Seems like you are correctly disabling the textboxes but you are not removing its contents, so each time you disable a textbox empty its .Text property: text2.text = VbNullString

[Bruce Fox]

Eg:

Option Explicit
 
Private Sub Text1_LostFocus(Index As Integer)
 
    If IsNumeric(Text1(Index).Text) Then
        'Do something
        Text1(Index).Enabled = False
        If Index < Text1.Count - 1 Then Text1(Index + 1).Enabled = True
    Else
        'Data entry error
        Text1(Index).SetFocus
        MsgBox "Please enter xxxxxx.", vbOKOnly + vbInformation, "Data Entry Error!"
    End If
 
End Sub

[Bruce Fox]

Seems like you are correctly disabling the textboxes but you are not removing its contents, so each time you disable a textbox empty its .Text property: text2.text = VbNullString

I take care of that in my example above, by re focusing until the data is correct.

[Bruce Fox]

Option Explicit
 
Dim intTBCount As Integer
 
Private Sub Form_Load()
Dim intIdx As Integer
 
    intTBCount = Text1.Count - 1
 
    For intIdx = 1 To intTBCount  'Skip the first TextBox
        Text1(intIdx).Enabled = False
    Next
    
End Sub
 
Private Sub Text1_LostFocus(Index As Integer)
 
    If IsNumeric(Text1(Index).Text) Then
        'Do something
        Text1(Index).Enabled = False
        If Index < intTBCount Then Text1(Index + 1).Enabled = True
    Else
        'Data entry error
        Text1(Index).SetFocus
        Text1(Index).SelStart = 0
        Text1(Index).SelLength = Len(Text1(Index).Text)
        MsgBox "Please enter xxxxxx.", vbOKOnly + vbInformation, "Data Entry Error!"
    End If
 
End Sub

Or alternatly, using the Validate Event:

Option Explicit
 
Dim intTBCount As Integer
 
Private Sub Form_Load()
Dim intIdx As Integer
 
    intTBCount = Text1.Count - 1
 
    For intIdx = 1 To intTBCount  'Skip the first TextBox
        Text1(intIdx).Enabled = False
    Next
    
End Sub
 
Private Sub Text1_Validate(Index As Integer, Cancel As Boolean)
 
    If IsNumeric(Text1(Index).Text) Then
        'Do something
        Text1(Index).Enabled = False
        If Index < intTBCount Then Text1(Index + 1).Enabled = True
    Else
        'Data entry error
        Cancel = True
        MsgBox "Please enter xxxxxx.", vbOKOnly + vbInformation, "Data Entry Error!"
    End If
    
End Sub

[barianto]

is there any generic solution other than using array textbox when another control frame of combobox?

[Bruce Fox]

is there any generic solution other than using array textbox when another control frame of combobox?

And how does that relate to your subject post??????

[barianto]

sorry,
I just found out that i need using frame

[Bruce Fox]

And ComboBoxs or TextBox's......????

Also, for what it's worth, I added similar code (above) to validate using the TextBox Validate() Event - setting Cancel = True.