naveguito
11 de Diciembre del 2003

Tengo el siguiente problema:
Estoy haciendo un formulario en el cual tengo que añadir registros a una tabla de access,para ello tengo varios datas ya que los campos de las distintas tablas son comunes,el error me da cuando acepto guardar,tengo este codigo:

Private Sub CmdAceptar2_Click()
Dim j As Integer
For i = 0 To 4
If Data(i).Visible = True Then
T_encoder
'Falla este bucle
'For j = 0 To 21
' Txt(j).DataSource = Data(i)
'Next
With Data(i)
.Recordset.Update
.Recordset.MoveFirst
.Enabled = True
End With
End If
Next
marco_botones.Enabled = True
marco_opciones.Enabled = False
marco_datos.Enabled = False
End Sub

La propiedad DataField ya la pongo en las propiedades del las cajas de texto.

El ERROR es:No se encontró el método o el dato miembro (Error 461)

Espero que me podais ayudar,GRACIAS

rafa
11 de Diciembre del 2003

Hola.
Seria importante donde te da el error, en que linea se para el codigo.
Un saludo

naveguito
11 de Diciembre del 2003

Falla en txt(j).DataSource

Tengo una solucion pero es larga que es con el metodo;data(i).recordset.fields("campo")=txt(1)

Si tu tienes otra cojonudo,pero de todas formas muchas gracias