[Resolvido]Abrir Formulario com filtro VBA

Boa tarde,

Venho mais uma vez pedir a vossa ajuda numa situação delicada.
Tenho um formulario onde tenho uma caixa de combinação com os seguintes dados (ADSl, Fibra, GSM)
O objectivo e carregar num desses dados duas vezes e ele abrir um formulário respectivo filtrando o mesmo com o NIF do cliente que foi indicado no form Inicial.

deixo o codigo que testei mas sem sucesso...

Código:

Private Sub Lista51_DblClick(Cancel As Integer)
If Me.Lista51.Value = "ADSL" Then
DoCmd.OpenForm "ADSL_Venda", acNormal, , "[Nif_Titular]=' Me.Nif'", acFormReadOnly
Else
MsgBox "Seleciona um Produto"
End If
End Sub

Obrigado

Testar por favor;

Código:

Private Sub Lista51_DblClick(Cancel As Integer)
Select Case Lista51
    Case Is = "ADSL"
        DoCmd.OpenForm "ADSL_Venda", _
        WhereCondition:="Nif_Titular='" & Me.Nif & "'"
    Case Else
        MsgBox "Seleciona um Produto...", vbCritical
Exit Sub
End Select
End Sub


Ola JPaulo,

realmente deu, mas tive de tirar o Exit Sub, que estaria a mais.
Queria so perguntar o que devo fazer para as outras opções.
É so acrescentar os "Case is = Fibra", por exemplo?

Obrihado

Olá JPaulo,

Verifiquei o que te perguntei acima e consegui fazer o que pretendia, mas estou com um problema importante.
Como faço para que o formulario abra em modo de leitura apenas?
Tenho estado a tentar das maneira que conheço e da sempre erro.. :S

Ola;

O Exit Sub a mais é que fiz o trecho de código sem access na mão....

Para abrir com filtro, não pode utilizar o acFormReadOnly, mas pode setar as proprieades;

Qualquer coisa assim;

Código:


Private Sub Lista51_DblClick(Cancel As Integer)
Select Case Lista51
    Case Is = "ADSL"
        DoCmd.OpenForm "ADSL_Venda", _
        WhereCondition:="Nif_Titular='" & Me.Nif & "'"
        Forms!ADSL_Venda.AllowEdits = False
    Case Else
        MsgBox "Seleciona um Produto...", vbCritical
Exit Sub
End Select
End Sub


Ola JPaulo,

Quere dizer que se precisar de abrir um formulario desta forma para criar um novo registo nao vou conseguir..certo? :S

Não entendi direito, pela seguinte razão;

Se o amigo vai abrir um form filtrado, penso que não vai abrir para novo registo, certo ?

Então onde e quando se aplica o novo registo ?

Mas se depois de aberto, pressionar um botão para novo registo, pode sempre antes fazer o "Me.AllowEdits = True"

Tens toda a razao JPaulo,

Confusao da minha parte

Topico encerrado. Thx

Obrigado pelo retorno o forum agradece.