BUeno
Este es el codigo que interviene en el command (agregar) que es cuando se porduce el error
Cita: Private Sub Add()
Data1.Recordset.AddNew
ps = Text2
vel = Text3
ata = Text4
sata = Text5
def = Text6
sdef = Text7
link = Text9
No = Text10.Text
nombre = Text1.Text
Data1.Recordset.Update
End Sub
Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Or Text6 = "" Or Text7 = "" Or Text9 = "" Or Text10 = "" Then
MsgBox ("Datos incompletos."), vbInformation
Exit Sub
End If
If Combo1.Text = "Ninguno" Then
MsgBox ("Selecciona por lo menos un tipo."), vbInformation
Exit Sub
End If
c = 0
Do While c < Data1.Recordset.RecordCount
If Text1 = nombre Then
MsgBox ("Nombre ya existente."), vbCritical
Data1.Recordset.MoveLast
Exit Sub
End If
If Text10 = No Then
MsgBox ("Numero ya existente."), vbCritical
Data1.Recordset.MoveLast
Exit Sub
End If
Data1.Recordset.MoveNext
c = c + 1
Loop
Add
Unload Me
End Sub
el error no tengo mucha info porque como dije el problema no surge en mi computadora sino que varios amigos me lo han informado