[Resolvido]Abrir formulário em registro específico através do botão de comando

Boa tarde amigos, preciso de ajuda.

Tenho um formulário chamado "CadReserva", nesse mesmo formulário tenho uma caixa de texto chamada "Apto_Numero", onde tenho todos os aptos disponíveis.

Criei um outro formulário chamado de "frmConsulta", onde tenho uma caixa de combinação chamada "Apartamentos_Livres" e um botão de comando chamado "btIR".

Enfim o que quero é que ao informar na cx de combinação o numero do apartamento e depois ao clicar no botão de comando, e abra o formulário de reserva com o apartamento informado.

Existe esse código????
Obrigado Amigos

Coloque este código no botão "btIR".

DoCmd.OpenForm "CadReserva", , , "[IdReserva]=" & [Apartamentos_Livres].Column(1)

Onde (1) é o número da coluna onde encontra-se o id do Registro e IdReserva é o campo Autonumeração.
Modifique conforme o seu banco.

Bom dia Claudio,
Em primeiro lugar muito obrigado pela ajuda. Bom inseri o código que passou, ele abre o formulário reserva, mas gostaria que abrisse com o número do apartamento digitado na cx de combinação apartamentos_livres.

att
Henry Airlie

Bom dia.
Amigo é só adaptar o código, o que eu te passei é só para ter uma ideia, não há como eu fazer aqui sem saber nomes de campos.
O próprio Wizard para criar o botão faz isso pra você, sem usar uma linha de programação.

Valeu.

Ok amigo,
Vou tentar fazer as adaptações.
Mais uma vez obrigado

Henry Airlie

Bom dia amigo,
Já tentei de várias formas mas não consegui o formulário reserva sempre abre em branco. Vou tentar ser mais claro.
Seguinte:

Tenho um formulário chamado de cadreserva, nesse formulário tem algumas combox de outras tabelas que estão relacionadas.

Exemplo: Tenho a tbl cadreserva, tbl cadApartamentos.

Na tbl cadapartamentos tenho cadastrados 36 apartamentos.

No formulário cadreserva tem uma caixa de texto chamada nº do apto que é alimentada pela tbl cadapartamentos.

Bom, o que quero é que ao abrir um novo cadreserva ele abra com o apto que eu solicitei ex: apto 05

Espero ter sido mais claro..Desculpas por alguma coisa..

Henry Airlie

Bem sem conhecer os nomes dos campos, vamos lá.
São dois forms ou um só?
Tá difícil sem ver o sistema hein.

Coloque no código deste botão:

DoCmd.OpenForm "cadreserva", , , , acFormAdd, acDialog, NewData

Forms!cadreserva.SeuCampoApartamento = Apartamento

Veja se consegue postar esta parte do seu sistema, fica mais fácil de ajudar.

Não estou conseguindo anexar o bd da a seguinte mensagem,

Os seguintes erros foram encontrados
Não é possível enviar o arquivo : o espaço total de armazenamento foi ultrapassado. (Espaço restante : 0 Kb)

Reduzi o bd o máximo ele só está com zipado 81KB


Como posso fazer

Grato

Ola amigo,tem que enviar por um servidor externo como,dropbox,mega e outros...
se nã conseguir envie pro email rachidsilva@yahoo.com.br que compartilho aqui.
abç;

Ok Enviado..

Segue bd.

Obs: Para que funcione o frmConsulta, abra uma pasta com o nome Exemplo dentro do C: e salve o bd dentro dela.



Entra no frmConsulta
Digite qualquer data
Clique na lupa "Consultar"
Vai dar a mensagem de quantos apartamentos nesta data estão disponíveis
Disponível sera habilitado, ao clicar na seta ira aparecer os aptos disponíveis.
Clica em qualquer apartamento
Clica em Reservar

Ao abrir o CadReserva gostaria que abrisse com o nº do apartamento que selecionei anteriormente.

https://dl.dropboxusercontent.com/u/90217826/PointdaPesca.rar

Ola amigos,
Mandei o banco de dados, alguém tem alguma sugestão..
Obrigado

Tai  teu aplicativo modificado.

Atente para os código do botão Reservar do frmConsulta.


[ ]'s

Download do arquivo

Ola Noobezinho,
Não estou conseguindo abrir...

Como assim?

Não abriu o arquivo.rar
ou o aplicativo em si?

É pq abre essa página

https://meocloud.pt/link/2c017cd8-f55f-4b96-a3a8-53d08a43686f/PointdaPescaMod.rar/

e o gerenciador deve bloquear..

É só clicar no arquivo rar amigo.

Como disse o Kaynan

Esse link que postei é para você entrar na página do MEO

E clicar onde está escrito DOWNLOAD para baixar o teu aplicativo

Consegui abrir e funcionou perfeitamente.

Muitissimo obrigado vc não sabe o quanto ajudou..
Vlw Grande Abraço.
Att
Henry Airlie

Otimo

Valeu por retornar

Boa sorte !!