[Resolvido]Erro Script Troca de senha.

Bom dia Senhores.

Bom dia JPaulo se estiver online..
No tópico anterior referente ao mesmo titulo, estava trabalhando em outro sistema que graças a DEUS esta pronto, só revisando detalhes, neste sistema o erro é diferente mas o código é o mesmo, segue em anexo o Print Screen dos dois erros, para analises de vocês.
Desde já agradeço.
Não esta tendo como anexar os arquivos em extensão nenhuma, já tentei em doc, docx, zip, rar etc. e da este erro:

Os seguintes erros foram encontrados
O arquivo adicionado não é valido.

http://maximoaccess.forumeiros.com/t14629-problemas-ao-anexar-ficheiros-nos-topicos

JPaulo. Posso mandar no seu e-mail?

Força...

O erro acusa a falta da função "verificaLogin", falta ae um modulo com essa função.

bom dia.

Hoje que consegui resolver este erro, veja a função que estava faltando:

Código:

Option Compare Database

Option Explicit

Private strUsuarioAtual As String

Function verificaLogin(argnomeUsuario As String, argsenhaUsuario As String) As Boolean

    Dim criterio As String
   
    criterio = "nomeUsuario='" & argnomeUsuario & "' And usuarioSenha='" & argsenhaUsuario & "'"
   
    If Nz(DCount("nomeUsuario", "tblUsuario", criterio), 0) > 0 Then
        verificaLogin = True
        setUsuarioAtual argnomeUsuario
    Else
        verificaLogin = False
    End If

End Function

Sub setUsuarioAtual(argUsuario As String)
    strUsuarioAtual = argUsuario
End Sub

Function getUsuarioAtual() As String
    getUsuarioAtual = strUsuarioAtual
End Function

Obrigado