Cerrar un formulario.
Estoy realizando un formulario en access y en el he incluido una pregunta, con la orden inputbox, algo así:
valor=inputbox("dime tu nombre")
Lo k kiero es k busque el dato "valor" en otro formulario y se lo encuentra cierre el formulario actual y se abra y se coloque en el segundo formulario en la posicion de "valor" para añadir datos en el.
No se si me explique bien
A ver si alguien me puede ayudar. Mil gracias
valor=inputbox("dime tu nombre")
Lo k kiero es k busque el dato "valor" en otro formulario y se lo encuentra cierre el formulario actual y se abra y se coloque en el segundo formulario en la posicion de "valor" para añadir datos en el.
No se si me explique bien
A ver si alguien me puede ayudar. Mil gracias
1 respuesta
Respuesta de retanadgo
1
AAAAAAAAAa,
Esa nueva pregunta te sale por que no le estas dando bien el parámetro, define bien el valor si es numérico, string, etc. pero básicamente es por que no esta reconociendo el valor que le das, dame un correo y te mando un ejemplo.
Esa nueva pregunta te sale por que no le estas dando bien el parámetro, define bien el valor si es numérico, string, etc. pero básicamente es por que no esta reconociendo el valor que le das, dame un correo y te mando un ejemplo.
Antes que nada te envío el código siguiente, ya lo calé y si funcionó:
Tienes que declarar la variable publica.
Y si no pues te mando el archivo para que lo veas.
Option Compare Database
Public strValor As String
Private Sub Comando0_Click()
strValor = InputBox("Ingrese nombre", "NOMBRE DE JUGADOR")
If strValor = "" Then
MsgBox "NEcesita teclear un nombre", vbInformation, "No hay nombre"
Exit Sub
Else
DoCmd.OpenForm "Jugadores", acNormal, , "[Nombre] ='" & strResp & " ' "
Me.FilterOn = True
End If
End Sub
Tienes que declarar la variable publica.
Y si no pues te mando el archivo para que lo veas.
Option Compare Database
Public strValor As String
Private Sub Comando0_Click()
strValor = InputBox("Ingrese nombre", "NOMBRE DE JUGADOR")
If strValor = "" Then
MsgBox "NEcesita teclear un nombre", vbInformation, "No hay nombre"
Exit Sub
Else
DoCmd.OpenForm "Jugadores", acNormal, , "[Nombre] ='" & strResp & " ' "
Me.FilterOn = True
End If
End Sub
mi correo es [email protected]
Gracias por ayudarme
Gracias por ayudarme
DoCmd.OpenForm "NombredelForm", acNormal, , "clavePrincipal=" & valor
Me.Visible = False
Avisame si funciona
Me.Visible = False
Avisame si funciona
