Ajuda com código

Olá srs,

Tenho um formulário que capta informações e grava em tabela através de código vba.
Ocorre que quero que ele abra preenchido, caso informações referentes já tenham sido inseridas.
Aí eu coloquei esse código:

Código:


Private Sub bt_produtividade_Click()

If DCount("codserv", "produtividade", "codserv= '" & Me.txtCodDia & "'") & DCount("codposto", "produtividade", "codposto= '" & Me.cbPostoServico & "'") = 0 Then
MsgBox "Ainda não existe dados de produtividade. Favor inserir."
DoCmd.OpenForm "produtividade", acNormal, , , acFormAdd
Else
DoCmd.OpenForm "produtividade", acNormal, acNormal, , "[codposto] = '" & Me.cbPostoServico & "'"

End If


Mas não está funcionando. Onde está o erro?

Detalhe: se codserv e codposto não existem, ele roda, executa a msg e abre o form, mas se codserv e codposto existem, dá erro em tempo de execução 3464.

Agradeço a atenção.

Olá, pelo que pesquisei a respeito do erro é incompatibilidade de dados. Tente tira os apostos com  no exemplo a baixo:

Código:


dim filtro as string
filtro =  "[codposto] = " & Me.cbPostoServico
DoCmd.OpenForm "produtividade", acNormal, acNormal, , filtro


Bom dia, algo assim...

If DCount("codserv", "produtividade", "codserv= '" & Me.txtCodDia & "'") & DCount("codposto", "produtividade", "codposto= '" & Me.cbPostoServico & "'") = 0 Then
MsgBox "Ainda não existe dados de produtividade. Favor inserir."
DoCmd.OpenForm "produtividade", acNormal, , , acFormAdd
exit sub
Else
DoCmd.OpenForm "produtividade", acNormal, acNormal, , "[codposto] = '" & Me.cbPostoServico & "'"

End If