Error 3021?

[juancho24]

Iniciado por rahd_rr

hola..

veamos... no tiene por que marcar te el error si vas a insertar un registro nuevo (insert), sin importar si la tabla esta vacia o no....

es error es cuando tratas de pasar al siguiente registro y ya esta en el ultimo o esta vacía la tabla o bien pasar al anterior y estas en el principio o esta vacía la tabla .... estaría bien que pusieras tu código para examinarlo y ver el problema.....

saludos....

rahd....

Gracias por responderme, aqui esta el codigo y "Me marca el error en el codigo del calendar"

Private Sub Calendar1_Click()

rs("fecha") = Calendar1.Value

End Sub

'Connection Confirmation
Private Sub Form_Load()

'Set Skinner1.Forms = Forms
Set cnn = Nothing
Set rs = Nothing

' establece la cadena de conexión a utilizar en la propiedad ConnectionString
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Negocios.mdb" & ";Persist Security Info=False"

' abre la base de datos
cnn.Open

' abre el recordset enviando la consulta sql
rs.Open "Select * from OBSERVACIONESGENERALES", cnn, adOpenDynamic, adLockOptimistic

'txtAtendioVisita.Enabled = False
'txtHoraVisita.Enabled = False
'txtRelacion.Enabled = False
'Frame1.Enabled = False
'txtMontoCredito.Enabled = False
'txtPlazo.Enabled = False
'txtObjetivo.Enabled = False
'Frame2.Enabled = False
'txtAspectosPositivos.Enabled = False
'txtExpectativa.Enabled = False
'txtAspectosNegativos.Enabled = False
'txtConclusion.Enabled = False
'cmdSalir.Enabled = False

Static varMostrarMenu As Boolean
Dim Ya_Existe As Integer
Ya_Existe = App.PrevInstance
Call funcHookText(txtRutCliente)
Call funcHookText(txtdvcliente)
varMostrarMenu = True
If Ya_Existe <> 0 Then
End
End If

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call funcUnHookText
End Sub

Private Sub cmdSalir_Click()

rs.AddNew
Call Asignar_Datos
rs.Update

MsgBox "Registro Guardado", vbInformation

Unload Me

End Sub

' Sub que asigna los datos al recordset

Private Sub Asignar_Datos()

rs("NombrePersonaAtendio") = txtAtendioVisita.Text
rs("HoraVisita") = txtHoraVisita.Text
rs("RelacionconCliente") = txtRelacion.Text
rs("MontoCredito") = txtMontoCredito.Text
rs("PlazoCredito") = txtPlazo.Text
rs("ObjetivosCredito") = txtObjetivo.Text
rs("AspectosPositivos") = txtAspectosPositivos.Text
rs("AspectosNegativos") = txtAspectosNegativos.Text
rs("ExpectativasNegocio") = txtExpectativa.Text
rs("Conclusion") = txtConclusion.Text
rs("DisposiciondelCliente") = IIf(OptDisposicion(0).Value = True, "Favorable", IIf(OptDisposicion(1).Value = True, "Regular", IIf(OptDisposicion(2).Value = True, "Escasa", "UltimoValor")))
rs("ConocimientoActividad") = IIf(OptConocimiento(0).Value = True, "Favorable", IIf(OptConocimiento(1).Value = True, "Regular", IIf(OptConocimiento(2).Value = True, "Escasa", "UltimoValor")))
rs("RutVisitador") = lblRutVisitador.Caption
rs("RutCliente") = lblRutCliente.Caption
rs("fecha") = Calendar1.Value

End Sub