Cerrar formulario
Supongamos que el segundo formulario se llama Clientes, depende de la tabla Clientes que tiene los campos Cliente, dirección, etc.
En el evento donde pones lo de valor=...
escribe
Dim valor As String
valor = InputBox("Escribe un nombre")
If DCount("cliente", "clientes", "[cliente]='" & valor & "'") > 0 Then
DoCmd.OpenForm "clientes", , , "[cliente]='" & valor & "'"
docmd.close acxform"nombre del formulario1"
else
msgbox"No hay registros"
Docmd.cancelevent
End If
En el evento donde pones lo de valor=...
escribe
Dim valor As String
valor = InputBox("Escribe un nombre")
If DCount("cliente", "clientes", "[cliente]='" & valor & "'") > 0 Then
DoCmd.OpenForm "clientes", , , "[cliente]='" & valor & "'"
docmd.close acxform"nombre del formulario1"
else
msgbox"No hay registros"
Docmd.cancelevent
End If
1 Respuesta
Respuesta de Julián González Cabarcos
1
A eso me refería. Tu estás en un formulario llamado por ejemplo Busca, sin nada más que el botón y quieres(si hay algún jugador que se llame así) que te abra el formulario Jugadores(dependiente de la tabla Jugadores) en el registro en que el nombre del jugador sea igual al que has escrito en el inputbox. Ponle el código anterior en el evento Al hacer clic del botón. Lo que hace es buscar en la tabla si hay alguien igual, si lo hay te abre el formulario
Dim valor As String
valor = InputBox("Escribe un nombre")
If DCount("NombreJugador", "Jugadores", "[nombrejugador]='" & valor & "'") > 0 Then
DoCmd.OpenForm "jugadores", , , "[nombrejugador]='" & valor & "'"
docmd.close acform"Busca"
else
msgbox"No hay registros"
docmd.cancelevent
End If
Dim valor As String
valor = InputBox("Escribe un nombre")
If DCount("NombreJugador", "Jugadores", "[nombrejugador]='" & valor & "'") > 0 Then
DoCmd.OpenForm "jugadores", , , "[nombrejugador]='" & valor & "'"
docmd.close acform"Busca"
else
msgbox"No hay registros"
docmd.cancelevent
End If
