[SRC] Projeto tabela inacabado [VB6].
Alguien tiene la solución para completar este proyecto, tengo dificultad en el control y la eliminación de los elementos repetidos en la matriz.
This is a small table to enter data.
Someone please implement this code can not to allow repeated data are informed.
'array textbox
Private Sub Command1_Click()
Dim o, f As Integer
On Error Resume Next
For o = 0 To 27
If Len(Data(o)) < 7 Then
Data(o).Text = ""
Data(o).SetFocus
ERRO1.Caption = "Field invalid."
ERRO1.Visible = True
Exit Sub
End If
Next o
'Objective check the fields and repeated and clear that the encounter.
End Sub
[SRC] http://www.sendspace.com/file/psdd54
Thanks!!!
This is a small table to enter data.
Someone please implement this code can not to allow repeated data are informed.
'array textbox
Private Sub Command1_Click()
Dim o, f As Integer
On Error Resume Next
For o = 0 To 27
If Len(Data(o)) < 7 Then
Data(o).Text = ""
Data(o).SetFocus
ERRO1.Caption = "Field invalid."
ERRO1.Visible = True
Exit Sub
End If
Next o
'Objective check the fields and repeated and clear that the encounter.
End Sub
[SRC] http://www.sendspace.com/file/psdd54
Thanks!!!
Respuesta de javier_007
1
Private Sub Command1_Click()
Dim o, f As Integer
On Error Resume Next
ERRO1.Caption = ""
ERRO1.Visible = False
ERRO1.ForeColor = vbRed
For f = 0 To 26
For o = f + 1 To 27
If Data(o).Text = Data(f).Text Then
Data(o).Text = ""
Data(o).SetFocus
ERRO1.Caption = "Field invalid."
ERRO1.Visible = True
Exit Sub
End If
Next
Next
ERRO1.Caption = "correct"
ERRO1.ForeColor = vbBlue
ERRO1.Visible = True
'Objective check the fields and repeated and clear that the encounter.
End Sub
Reemplaza tu Command1_Click() por este
Dim o, f As Integer
On Error Resume Next
ERRO1.Caption = ""
ERRO1.Visible = False
ERRO1.ForeColor = vbRed
For f = 0 To 26
For o = f + 1 To 27
If Data(o).Text = Data(f).Text Then
Data(o).Text = ""
Data(o).SetFocus
ERRO1.Caption = "Field invalid."
ERRO1.Visible = True
Exit Sub
End If
Next
Next
ERRO1.Caption = "correct"
ERRO1.ForeColor = vbBlue
ERRO1.Visible = True
'Objective check the fields and repeated and clear that the encounter.
End Sub
Reemplaza tu Command1_Click() por este
Si te funciona o te da algún error postealo y lo solucionaremos..
