Início![[Resolvido]Ajuda no codigo Pesquisa Empty](https://2img.net/i/empty.gif)
softigor 28/12/2010, 22:09Oi algo esta dando de errado nessa parte do codigo: "DoCmd.OpenForm stDocName, stLinkCriteria", o que esta acontecendo?
2 participantes
[Resolvido]Ajuda no codigo Pesquisa
softigor- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 34
Registrado : 23/12/2010
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
coloque aqui o código completo que você está usando
softigor- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 34
Registrado : 23/12/2010
e o seguinte tem cmpa Codigo ( chave primaria) e listBox (chamada Lista2)
eo codigo é:
Private Sub Lista2_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Receita"
stLinkCriteria = "[Codigo]=" & Me![Lista2]
DoCmd.OpenForm stDocName, stLinkCriteria
DoCmd.Close acForm, ("pesquisa"), acSavePrompt
End Sub
eo codigo é:
Private Sub Lista2_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Receita"
stLinkCriteria = "[Codigo]=" & Me![Lista2]
DoCmd.OpenForm stDocName, stLinkCriteria
DoCmd.Close acForm, ("pesquisa"), acSavePrompt
End Sub
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
A sua linha está mal amigão
DoCmd.OpenForm stDocName, stLinkCriteria
Coloque assim
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.OpenForm stDocName, stLinkCriteria
Coloque assim
DoCmd.OpenForm stDocName, , , stLinkCriteria
softigor- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 34
Registrado : 23/12/2010
Ok obrigado deu certo.
vieirasoft- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010
Abraço e obrigado pelo retorno