Alguien me puede corregir esta consulta
Publicado por Alejandro limon (28 intervenciones) el 19/05/2005 02:56:46
Public Sub BuscarArt()
Data1.Recordset.MoveFirst
Do While Data1.Recordset.Fields(0) <> Text1.Text
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then
Data1.Recordset.MoveLast
Exit Do
End If
Loop
Campo = Data1.Recordset.Fields(0)
If Campo = Text1.Text Then
MsgBox ("Nº de Articulo Repetido")
Text1.SetFocus
End If
End Sub
Data1.Recordset.MoveFirst
Do While Data1.Recordset.Fields(0) <> Text1.Text
Data1.Recordset.MoveNext
If Data1.Recordset.EOF = True Then
Data1.Recordset.MoveLast
Exit Do
End If
Loop
Campo = Data1.Recordset.Fields(0)
If Campo = Text1.Text Then
MsgBox ("Nº de Articulo Repetido")
Text1.SetFocus
End If
End Sub
Valora esta pregunta
0