[Resolvido]Impedir abertura de Formulario

Boa noite
Estou a tentar impedir a abertura de um Form e não estou a consegir.

Abre e não dá erro

Ao Abrir
If (DLookup("[data]", "questionário", "[data] ='" & Me.DataC & "'")) And ((DLookup("[códigodopaciente]", "questionário", "[códigodopaciente] ='" & Me.Paciente & "'"))) Then
MsgBox "Questionário já existe com esta Data .", vbQuestion, "Aviso"
DoCmd.CancelEvent

End If

Será por o Form a abrir ser de campos independentes?

Nesse código não tem nada que impeça a abertura do form. Tente assim:

If (DLookup("[data]", "questionário", "[data] ='" & Me.DataC & "'")) And ((DLookup("[códigodopaciente]", "questionário", "[códigodopaciente] ='" & Me.Paciente & "'"))) Then
MsgBox "Questionário já existe com esta Data .", vbQuestion, "Aviso"
DoCmd.Close acForm, Me.Name
End If

Boas Criquio

Se lhe tirar o campo data a função deteta o repetido.

Acredito que você clica em um botão de outro form para abrir esse. Se for, mude para o evento desse botão que abre esse form. Acredito que irá funfar melhor.

Bom dia Criquio


Este comando está num botão para abrir o "Form"

Assim funciona mas preciso de lhe adicionar a condição "Data".

If (DLookup("[códigodopaciente]", "questionário", "[códigodopaciente] =" & Me.Paciente & "")) Then
MsgBox "Questionário já existe com esta Data .", vbQuestion, "Aviso"
DoCmd.Close acForm, "Questionario"
Exit Sub
End If


Assim deixa abrir o "Form" e não devia deixar pois vai repetir o questionário na mesma data

If (DLookup("[códigodopaciente]", "questionário", "[códigodopaciente] =" & Me.Paciente & "") And (DLookup("[Data]", "questionário", "[Data] =" & Me.DataT & ""))) Then
MsgBox "Questionário já existe com esta Data .", vbQuestion, "Aviso"
DoCmd.Close acForm, "questionario"
Exit Sub
End If

teste;

If (DLookup("[códigodopaciente]", "questionario", "[códigodopaciente] =" & Me.Paciente & " And [Data] =#" & Me.DataT & "#")) Then
MsgBox "Questionário já existe com esta Data .", vbQuestion, "Aviso"
DoCmd.Close acForm, "Questionario"
Exit Sub
End If

Bom dia JPaulo

Contiua a deixar abrir o "Form"
Obrigado

Mostre-nos a instrução toda por favor.

Private Sub Comando17_Click()

If (DLookup("[códigodopaciente]", "Questionário", "[códigodopaciente] =" & Me.Paciente & " And [Data] =#" & Me.DataT & "#")) Then
MsgBox "O Paciente " & [Paciente] & "" & Chr(13) & " Já tem Um Questionário Nesta Data " & [DataT] & "? ", vbExclamation, "Aviso"
DoCmd.Close acForm, "Questionario"
Exit Sub
End If
End Sub

Assis voltei do almoço e já consigo pensar melhor, mas ainda não consigo perceber o que quer.

Vejamos;

Nesse seu código no evento VBA ao pressionar de um botão, onde está a instrução de abrir o 2º form ?

Ainda nesse contexto, você tem o 2º form desvinculado certo ? Como é que carrega os dados ?

Quer postar um pequeno exemplo aqui ?

Até aonde entendi, esse código, da forma que está, deveria ser colocado no evento "Ao carregar" do formulário a ser aberto. Para o botão, seria algo assim:

If (DLookup("[códigodopaciente]", "Questionário", "[códigodopaciente] =" & Me.Paciente & " And [Data] =#" & Me.DataT & "#")) Then
MsgBox "O Paciente " & [Paciente] & "" & Chr(13) & " Já tem Um Questionário Nesta Data " & [DataT] & "? ", vbExclamation, "Aviso"
Exit Sub
Else
DoCmd.OpenForm "Questionario"
End If

Boas

É dificil colocar aqui um exemplo pois é um bocado complexo em consultas e Formulários.

Tenho um Form Continuo "TratamentosMarcados", com dois campos. "DataT" e "CódigodoPaciente", e um Botão em cada

linha de registo que abre um "Form" simples "Questionário", que tem um campo "Data", outro "CódigodoPaciente" e

outros....

Quero com o botão abrir o form "questionário" que ao abrir carrega a DataT e o CódigodoPaciente do "Form"

"TratamentosMarcados", e se essa data e esse paciente já estiverem na tabela Questionário, não abre o Form

"Questionário"

Um paciente não pode ter dois registos no mesmo dia.

Se eu colocar na formula só o Códigodopaciente funciona, com os dois abre sempre

Vamos lá:

Então no botão apenas você vai colocar lá o DoCmd.OpenForm bla bla bla bla

No evento VBA ao Carregar do segundo form, você tem sempre de efectuar um DLookup à tabela ou consulta, e sempre referenciando o 1º form;

Private Sub Form_Load()
'instrução sempre no evento ao carregar, nunca no evento ao abrir
If (DLookup("[códigodopaciente]", "SuaTabela", "[códigodopaciente] =" & Forms![TratamentosMarcados]![CódigodoPaciente] & " And [Data] =#" & Forms![TratamentosMarcados]![DataT] & "#"))>0 Then
MsgBox "Questionário já existe com esta Data .", vbQuestion, "Aviso"
DoCmd.Close 'instrução suficiente para fechar o form
Exit Sub
End If
End Sub

Se preferir fazer logo no botão terá de fazer assim;

Private Sub SeuBotão_Click()
Dim strForm As String
strForm = "Questionário"
If (DLookup("[códigodopaciente]", "SuaTabela", "[códigodopaciente] =" & Forms![TratamentosMarcados]![CódigodoPaciente] & " And [Data] =#" & Forms![TratamentosMarcados]![DataT] & "#")) > 0 Then
MsgBox "Questionário já existe com esta Data .", vbQuestion, "Aviso"
DoCmd.CancelEvent
Else
DoCmd.OpenForm strForm, acNormal
End If
End Sub

Boas JPaulo

Foi duro mas funciona com o comando do botão ...Obrigado

Obrigado pelo retorno.

Ás vezes temos de parar e pensar um pouco, que tudo se resolve menos a morte.