Função Opções

[edinofelix]

Outra coisa,

O nome da sua função Forms é uma palavra de uso reservado do Access. Melhor mudar esse nome aí.

Obrigado no final deu tudo certo + valeu pela atenção no forum aeeeeee aq funciona

Function forms() As String

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "for_Pessoa Física"

Dim coluna As String
coluna = Form_formsloc.Lista6.Column(5)

If coluna = "PF" Then

stLinkCriteria = "[Inscrição]=" & Form_formsloc.Lista6.Value
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria

Else

stLinkCriteria = "[Inscrição]=" & Form_formsloc.Lista6.Value
DoCmd.Close
DoCmd.OpenForm "for_Pessoa Jurídica", , , stLinkCriteria

End If

End Function

[Nelson Sousa]

Outra coisa,

O nome da sua função Forms é uma palavra de uso reservado do Access. Melhor mudar esse nome aí.

[Nelson Sousa]

Olá,

Cole novamente o código aki e a descrição exata do erro.

[edinofelix]

Olá,

O erro é porque a listbox não possui a propriedade Value.
Você deve fazer referencia à culuna onde está o dada que lhe interessa:

If Lista6.Column(x) = "PF" Then ' onde x é o número da coluna que lhe interessa. (Começando do 0 zero)

olaobrigado mais ainda da oerro

[Nelson Sousa]

Olá,

O erro é porque a listbox não possui a propriedade Value.
Você deve fazer referencia à culuna onde está o dada que lhe interessa:

If Lista6.Column(x) = "PF" Then ' onde x é o número da coluna que lhe interessa. (Começando do 0 zero)

[edinofelix]

Ola!

Boa Tarde! atodos

tenhuumaformulario não acoplado com uma consuta fiz isto numa caixade listagem com 6 colunas e 1 coluna aclopada
ate ai tudo ok. o problema começa quando tenho que abrir os formulários tenho o formspf e o formspj, pois na mesma
consulta aparece tanto o cliente pj como pf tudos istopara facilitar a consulta e abrir o formulario especifico a função segue aseguir:

Coluna aclopada é soonumero 1 onde fica o codigo do cliente mais tenho acoluna 2 onde identifica se ele é PF ou PJ dependendo da documentação ai começa a função abaixo, que que abre deacordo com o codigo do cliente e o tipo de formulario se pf ou pj.

Desculpe o transtorno e deste jaagradeço a ajuda.


Function forms() As String

Dim PessoaF As String
Dim PessoaJ As String
Dim stLinkCriteria As String

PessoaF = "for_Pessoa Física"
PessoaJ = "for_Pessoa Jurídica"

If Lista6.Value = PF Then >NESTA LINHA DA O ERRO
stLinkCriteria = "[Inscrição]=" & Form_forms_loc.Lista6.Value
DoCmd.Close
DoCmd.OpenForm PessoaF, , , stLinkCriteria

Else
stLinkCriteria = "[Inscrição]=" & Form_forms_loc.Lista6.Value
DoCmd.Close
DoCmd.OpenForm PessoaJ, , , stLinkCriteria

End If

End Function