[Resolvido]OpenArgs retorna NULL

Olá Pessoal
Boa Tarde!

Venho encontrando uma dificuldade na utilização da propriedade OpenArgs. Quando tento acessar o valor da referida propriedade dentro da Sub Form_Open o único valor que obtenho é NULL. Quando acesso o conteudo de OpenArgs em outros eventos posteriores consigo encontrar a string passada como argumento, mas mesmo assim ocorrem falhas eventuais, onde o valor encontrado é NULL.
Não sei o que posso estar fazendo de errado.

Meu Office é 2007 e OS o Win7

O código utilizado é o que se segue:

Private Sub Pesquisa_Click()
Dim Arg As String
If Not Me.AllowEdits Then Exit Sub
If strUltimoFoco <> "Entrada" Then Exit Sub
Arg = "frmEntrada" & "+" & Me!txNomeFabricante
DoCmd.OpenForm "frmPesquisaProd", , , , , , Arg
strUltimoFoco = ""
End Sub


Private Sub Form_Open(Cancel As Integer)
strOpenArg = Me.OpenArgs
Call fncCarregalista("[Código do Produto] > 0")
End Sub


Grato pela Atenção

Marco Aurélio

Olá Marco

Arg = "frmEntrada" & "+" & Me!txNomeFabricante

Esse argumento é do controle txNomeFabricante que está no formulário frmEntrada?


Se sim, que tal fazer assim:

Arg = Forms!frmEntrada!txNomeFabricante

Agora se não for isso, por favor explique o "frmEntrada" e o Me!txNomeFabricante

Abraços

Olá Balem,

Obrigado pela resposta.
Respondendo suas dúvidas

O comando txNomeFornecedor realmente pertence ao Formulário frmEntrada.

Eu desejo receber as as informações no Fromulário frmPesquisaProd, e momento correto para eu receber a informação é durante o evento
onOpen ou onLoad

A solução que apontaste funciona. Aliás era assim que estava antes, e nem necessitava de passar via OpenArgs.
Entretanto, tive que fazer algumas alterações para que o Código ficasse genérico. Ou seja, seja independente das rotinas que o chamam. Por isso, utilizei uma forma de combinar strings utilizando o caracter "+" para que eu pudesse passar diversas informações usando a propriedade OpenArgs (esta propriedade, até onde sei, não aceita matrizes)

Como eu pretendo utilizar essa independência em outros formulários gostaria, de fato, entender o que está errado no uso da propriedade.

Att

Marco Aurélio

Marco

Andei pesquisando sobre o OpenArgs e pelo que vi teu código está correto até onde sei.
Também posso estar pecando.

OpenArgs também aceita SQL e creio que é ai que está o trunfo.
Por favor, dê uma pesquisada na net.
Sinto não poder ajudar melhor.

Abraços

Olá

Realmente estranho o OpenArgs não receber o valor! Bom, vai então uma alternativa para o seu caso:

1) Crie num módulo global uma variável do tipo Type para receber os diversos valores. Exemplo:

Option Compare Database
Public PesquisaProd As prod
Type prod
NomeForm AS String
Campo As String
End Type

2) No evento "Ao clicar da sub passe os valores para variável type

Private Sub Pesquisa_Click()
Dim Arg As String
If Not Me.AllowEdits Then Exit Sub
If strUltimoFoco <> "Entrada" Then Exit Sub
PesquisaProd.NomeForm = "frmEntrada"
PesquisaProd.Campo = Me!txNomeFabricante
DoCmd.OpenForm "frmPesquisaProd"
strUltimoFoco = ""
End Sub

3) Agora usa a variavel type no "evento Open"

Private Sub Form_Open(Cancel As Integer)
Msgbox "O nome do formulário é : " & PesquisaProd.NomeForm
Msgbox "O Valor da campo : " & PesquisaProd.campo
End Sub

Sucesso!

Avelino
Boa tarde

A sua sugestão resolveu o problema. O código não ficou tão portátil quanto eu imaginava, pois ficou dependendo de uma variável externa, mas está funcionando perfeitamente.
Fiz algumas pesquisas e identifiquei alguns relatos de funcionamento anômalo do OpenArgs.
Vou ficar com a sua dica que está atendendo plenamente.

Muito grato

Marco Aurélio

Balem e Avelino

Grato pela ajuda

Problema resolvido

Att

Marco Aurélio

Que bom que deu certo Marco

Valeu pelo retorno

Boa sorte

Um pouco tarde, mas achei o porquê de não aceitar o openArg. Na propriedade do formulário, em "tipo de conjunto de registro" deixe como Dynaset. No cmd.openForm, utilize a expressão acFormReadOnly.

Assim o Access entenderá que pode repassar o argumento.