Ingreso con una clave a un formulario

... tengo un codigo que quiera ingresar mediante una clave a otro formulario

1.- Form frmAcceso
un cuatro de texto laclavetext

2.- FechaForm
el cual indica mediante el cuadro de texto de 2 opciones
valoracion = contraseña
valoracion = mi contraseña

Private Sub laclavetext_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
if KeyCode = 13 Then
FechaForm.valoracion = laclavetext.Text
Unload Me
End If
End Sub

hola, Cesar !

tu consulta parece ambigua y no deja ver si lo que pudiera entenderse es lo que querias consultar -?-
- cual es la intencion del codigo que expones ?
- algo en su ejecucion no funciona ?... que parte ?...
- algun mensaje de error ?... exactamente que dice (texto y numero) ?...

el punto 2 es totalmente confuso    -???-

saludos,
hector.

__ OP __



> ... tengo un codigo que quiera ingresar mediante unaclavea otroformulario

> 1.- Form frmAcceso
> un cuatro de texto laclavetext

> 2.- FechaForm
> el cual indica mediante el cuadro de texto de 2 opciones
> valoracion = contraseña
> valoracion = mi contraseña

> Private Sub laclavetext_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
>   if KeyCode = 13 Then
>     FechaForm.valoracion = laclavetext.Text
>     Unload Me
>   End If
> End Sub- Ocultar texto de la cita -

- Mostrar texto de la cita -

hola, Cesar !

tu consulta parece ambigua y no deja ver si lo que pudiera entenderse es lo que querias consultar -?-
- cual es la intencion del codigo que expones ?
- algo en su ejecucion no funciona ?... que parte ?...
- algun mensaje de error ?... exactamente que dice (texto y numero) ?...

el punto 2 es totalmente confuso    -???-

saludos,
hector.

__ OP __



> ... tengo un codigo que quiera ingresar mediante unaclavea otroformulario

> 1.- Form frmAcceso
> un cuatro de texto laclavetext

> 2.- FechaForm
> el cual indica mediante el cuadro de texto de 2 opciones
> valoracion = contraseña
> valoracion = mi contraseña

> Private Sub laclavetext_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
>   if KeyCode = 13 Then
>     FechaForm.valoracion = laclavetext.Text
>     Unload Me
>   End If
> End Sub- Ocultar texto de la cita -

- Mostrar texto de la cita -

el mensaje es error 424
se requiere objeto

tu consulta parece ambigua y no deja ver si lo que pudiera entenderse es lo que querias consultar -?-
- cual es la intencion del codigo que expones ?
- algo en su ejecucion no funciona ?... que parte ?...
- algun mensaje de error ?... exactamente que dice (texto y numero) ?...

el punto 2 es totalmente confuso -???-

saludos,
hector.

__ OP __
Mostrar la cita

... tengo un codigo que quiera ingresar mediante unaclavea otroformulario

Mostrar la cita

1.- Form frmAcceso
un cuatro de texto laclavetext

Mostrar la cita

2.- FechaForm
el cual indica mediante el cuadro de texto de 2 opciones
valoracion = contraseña
valoracion = mi contraseña

Mostrar la cita

Private Sub laclavetext_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
if KeyCode = 13 Then
FechaForm.valoracion = laclavetext.Text
Unload Me
End If
End Sub- Ocultar texto de la cita -