Access - Ayuda

Deje de programar por mucho tiempo, y ahora por temas laborales debo acerlo, estoy haciendo un sistemita muy pequeño para comenzar a realizar codigos. Tengo este inconveniente, me sale el error El valor que ha especificado no es valido para este campo. Anexo el codigo

Private Sub cmdbuscar_click()
Dim dni As Double
txtdoc.SetFocus
dni = txtdoc.Text
If Not IsNull(Me.txtdoc.Text) Then
Call recupera_informacion
End If
End Sub

Private Sub recupera_informacion()
Dim rst As dao.Recordset, SQL As String

SQL = "SELECT Padron.Titular, Padron.SexoCod, Padron.DOCUMENTO FROM Padron Where ((('&Padron.DOCUMENTO&') = '& dni&'))"
Set rst = CurrentDb.OpenRecordset(SQL, dbOpenForwardOnly)
With rst
Me.txtapeynom = !Titular en esta linea me marca el error
Me.lstsexo = !SexoCod
End With
rst.Close: Set srt = Nothing

End Sub

En base a esto:

Private Sub cmdbuscar_click()
Dim dni As Double
txtdoc.SetFocus
dni = txtdoc.Text
If Not IsNull(Me.txtdoc.Text) Then
Call recupera_informacion
End If
End Sub

La propiedad TEXT solo la puede tener (si la admite) el objeto activo
La propiedad por defecto es .Value (y no siempre es necesaria, es la de 'por defecto'

En Access (VBA) VALUE = En Visual Basic (1...6) TEST

No entiendo, el error esta en la otra linea de codigo, casi al final, cuando quiero mostrar el resultado de la busqueda en la cuadro de texto. probe poner .value, y me sigue saliendo el mismo error.

Lo primero:

El error era tan clamoroso que no le di importancia al resto (y como ese error salta en tiempo de ejecución ....)

Para verificar ese código he comentado en ese código esto: en esta linea me marca el error

Tras ello (y para no recrear un formulario) añadí estas variables: txtapeynom$, lstsexo$
A sus sosias en el código les quite el 'Me.'

Compilo y el error estaba en: st.Close: Set srt = Nothing

Ese objeto no existe el real es rst

Hola! ahi ya vi que escribi mal! ya lo cambio. Muchas gracias!

Hola.

Tu error esta en la consulta:

"SELECT Padron.Titular, Padron.SexoCod, Padron.DOCUMENTO FROM Padron Where ((('&Padron.DOCUMENTO&') = '& dni&'))"

Deberia ser la siguiente manera si el dni es numero:

"SELECT Padron.Titular, Padron.SexoCod, Padron.DOCUMENTO FROM Padron Where Padron.DOCUMENTO = " & dni

Deberia ser la siguiente manera si el dni es texto:

"SELECT Padron.Titular, Padron.SexoCod, Padron.DOCUMENTO FROM Padron Where Padron.DOCUMENTO = '" & dni & "'"

Te dejo mi canal de YouTube talvez algún video te sea útil.
https://www.youtube.com/c/VBAAccess?sub_confirmation=1

Si tienes alguna duda me puedes escribir al siguiente correo:
[email protected]

Saludos.

SSSSiiiii, tus videos ya los estoy mirando, con ellos comence para recordar todo. Ahora miro el que me pasaste. Le cambie la sentencia y me sale que falta operador. Estoy mirando. Cualquier cosa te escribo al mail!, Muchisimas gracias!

The TEXT property can only have it (if it supports ) the active object. Tetris