ERROR 3426 Y NO AVANZO
Publicado por LORUGA (2 intervenciones) el 30/09/2009 16:10:56
Buenas; estoy empezando con esto del VB6 y estoy atascado con el error 3426, me he leido todas las notas, y no hay nada que me pueda ayudar.
estoy usando un control data, este mismo código lo uso en otra consulta, y me funciona los campos son long text 50. y no tengo problemas. en esta tabla.
en la otra tengo index double y el que tengo q actualizar text 25 requerido.
el código es:
Private Sub cmdAñadir_Click()
'Buscar si existe en tblEquipos el Equipo
With datEquipos
.Recordset.FindFirst "CodEquipos= '" & txtCodEquipo.Text & "' "
If .Recordset.NoMatch Then
' Añado los datos del Equipo nuevo a tblEquipo
.Recordset.AddNew
.Recordset("CodEquipos") = txtCodEquipo.Text
'.Recordset("CodCliente") = txtCodCliente.Text
'.Recordset("Descripcion") = txtDescripcion.Text
End If
End With
End Sub
me podriais ayudar????
estoy usando un control data, este mismo código lo uso en otra consulta, y me funciona los campos son long text 50. y no tengo problemas. en esta tabla.
en la otra tengo index double y el que tengo q actualizar text 25 requerido.
el código es:
Private Sub cmdAñadir_Click()
'Buscar si existe en tblEquipos el Equipo
With datEquipos
.Recordset.FindFirst "CodEquipos= '" & txtCodEquipo.Text & "' "
If .Recordset.NoMatch Then
' Añado los datos del Equipo nuevo a tblEquipo
.Recordset.AddNew
.Recordset("CodEquipos") = txtCodEquipo.Text
'.Recordset("CodCliente") = txtCodCliente.Text
'.Recordset("Descripcion") = txtDescripcion.Text
End If
End With
End Sub
me podriais ayudar????
Valora esta pregunta


0