[Resolvido]Botao de Comando que fecha o formulario e Abra outro formulario automaticamente

Boa Tarde

Tenho um formulario Paciente que alimenta a tabela paciente, coloquei neste formulario um botao de comando, e gostaria que ao clicar neste botao aparecesse uma mensagem para salvar as informacoes, caso ainda nao estejam, salvas. E apos isso ele abrisse outro formulario(Boletim de Atendimento) para que fosse aliementado outra tabela de Atendimento. Talvez fosse interessante que ao clicar neste botao e ele abrisse o formulario Atendimento, os dados do Paciente (Codigo e Nome) ja alimentassem os dados do formulario Atendimento,restando apenas que o usuario digitassse data, hora e clinica. Como sou novato, nao sei se ha a necessidade que se feche o formulario Paciente, antes de abrir o formulario Atendimento. Se alguem conseguir entender o que coloquei, e puder me dar uma luz, agradeco

Boa noite, natalison

Procure aqui no fórum, pois já vi algo do género.
Cumprimentos,

Para não sair sem guardar:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "Foram efectuadas alterações"
strMsg = strMsg & "...Deseja gravar as alterações?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then

Else
DoCmd.RunCommand acCmdUndo

End If
End Sub

Se houver ligação por chave primária o próprio assistente do access ajuda a construir o código no botão para os forms.

Eu ja procurei por toda parte e nao encontrei nada que fosse parecido

???? não entendi? procurar o quê?

O Amigo Alexandre solicitou que eu procurasse q havia algo parecido ja. Porem nada encontrei

Ah, não tinha reparado que o Grande Alexandre tinha postado acima e por isso não entendi, desculpe.

Então é assim:

Se as tabelas estiverem ligadas por uma chave primária, o assistente do access ajuda-o com o botão de comando

Boa noite amigo.. vamos primeiro ao botao certo?

Crie um botao no seu for no evento ao clicar coloque

DoCmd.OpenForm "NomeDoFormAtendimento"

Crie o botao....

Para o Form de atendimento.. voce tem que abrir ele, para que ele abra com dados do form Paciente certo..

Entao...
Veja os nomes de suas caixa texto...
Exemplo
Onde e armazenado o nome do paciente (txtpaciente)

Coloque no evento ao abrir do form de atendimento:

Me.CampoOndevaiPaciente.value = Forms!FormularioPaciente!txtpaciente.value

Assim quando abrir o form de atendimento ele pega o nome do paciente no formPaciente e envia para o campo no Form de atendimento...

Eu acho que consegui. Fiz dois botoes um pra sair e gravar, conforme o amigo me orientou. E outro pra acessar o formulario. Se puderem dar uma olhada se tem algum erro. Por enaquanto funcionou.

Private Sub Ir_Boletim_Click()
On Error GoTo Err_Ir_Boletim_Click
If IsNull(Me![Codigo_Paciente]) Then
MsgBox "Insira as informações do Paciente antes de gerar um Atendimento."
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "Boletim de Atendimento Medico"
DoCmd.GoToRecord , , acNewRec
Forms![Boletim de Atendimento Medico]![Cod_Paciente] = Me![Codigo_Paciente]
End If

Exit_Ir_Boletim_Click:
Exit Sub

Err_Ir_Boletim_Click:
MsgBox Err.Description
Resume Exit_Ir_Boletim_Click
End Sub

O unico problema que estou tendo e que o Boletim de Atendimento, o paciente e selecionado por uma caixa de selecao. Entao o usuario so vai ter que ir na caixa e selecionar o paciente que esta sendo o primeiro nome da lista. Ta funionando assim, nao sei se da pra melhorar.

Nao entendi a ultima colocacao.. poderia explicar melhor?

Posso sim. Eu tenho um formulario Boletim de Atendimento que o usuario acessa pelo menu para registrar um atendimento de um paciente ja cadastrado. Ele seleciona o paciente por uma caixa de selecao. Vai digitando e filtra ate ele encontrar o paciente desejado.

Porem eu quis implementar o seguinte, apos ele cadastrar um paciente novo, ele nao precisasse sair do cadastro de paciente e acessar o Boletim. Fiz um botao que apos ele cadastrar o paciente ele acesse o Boletim, conforme eu mostrei acima. Ta funcionando, a unica colocacao que fiz, foi que como e uma caixa de selecao que ele escolhe o paciente(no boletim de Atendimento), o usuario tem que selecionar o paciente por la, mais isso nao e problema por que, com o que implantei agora, o paciente e o primeiro da lista, pois ele vem do cadastro de paciente. Sera que deu pra entender. Esta funcionado, so nao sei se cometi algum erro no que apresentei acima.

Veja este exemplo do grande JP.. voce pode implementa-lo em seu form.. e uma lstbox...
Ao clicar no nome ja abre o form filtrado...
pode inclusive substituir a combox do form principal e usa-lo alem de encontrar pacientes no cadastro, tambem para que ao clique da ltsbox ja abra automaticamente o formulario boletim..

creio que vai te servir

http://maximoaccess.forumeiros.com/t220-lisbox-abre-formulario-filtrado

Agora se nao quiser implementar o exemplo acima..
este codigo ja abre o form boletim filtrado.. sem precisar usar a combox ainda para aceder ao registro...

Private Sub Seu_Botão_Click()
Dim Filtro As String
Dim msg


Filtro = "[ID] = " & Str(Me.ID)


If Not IsNull(Me.Num_OR) Then

msg = MsgBox("SUA MENSAGEM", vbOKOnly + vbCritical, "AVISO")

DoCmd.OpenForm "SeuForm", acViewNormal, , Filtro, , acDialog

Esqueceste este topico amigão???

Enviado por mensagem Privada exemplo...

Evitem de enviar exemplos por mensagem privada. Os exemplos devem ser postados nos tópicos respectivos. Se existirem dados privados na BD que não queiram que fiquem acessíveis, devem contactar o Administrador ou os Moderadores.

Obrigado pela vossa compreensão.