[Resolvido]run time error '94'

boas,
após o Grande Harysohn fazer a ligação de 2 Forms com palavra passe... tópico :

[Resolvido]Form c/ PW indexado a Funcionários

bem, acontece este erro : run time error '94',
isto ao clicar num Funcionário que após pesquisado e seleccionado,
e que não tenha palavra passe no Form DadosExtraFuncionarios... será que tenho que lançar primeiro a palavra passe no Form ?!? m
as isso não tinha ou não tem logica,
porque se é para proteger dados,
estes deviam ser lançados após chamar o Funcionário e puder colocar os Dados Extra e ai sim bloquea-los por palavra passe...
como resolver ( help estrutural )

Obrigado

ola, ja tens o problema resolvido?

Se ainda nao esta resolvido, posta ai parte da tua BD para vermos o que realmente tens feito para ver onde está o problema.

Assim é muito vago...

Já tentou o tratamento de erro? O mais provável é a existência de um valor Nulo. Não estou a ver a BD, mas tente no campo que dá erro colocar o If Not IsNull

If Not IsNull
Não apanhei . . . colocar onde ? sim o erro deve ser mesmo por falta desse parâmetro, pois no seguimento do erro aparece :
Invalid use off Null
Só não sei onde colocar esse parâmetro...Da o erro e eu clico em debug e aparece a seguinte linha :
Varusu = DLookup("Senha", "DadosExtraFuncionario", "NumeroFuncionario=" & Me.NumeroFuncionario & "")
var_senha = InputBoxDK("Informe a senha:", "Digite Senha de Acesso", "******")
Sendo que a primeira esta marcada a amarelo...
HELP
Obrigado

If Not IsNull (Me.NomedoCampo) Or NomedoCampo="" Then
instrução a executar
Else
Instrução a executar
End If

ou

If IsNull (Me.NomedoCampo) Or NomedoCampo="" Then
instrução a executar
Else
Instrução a executar
End If

Vieirão, não seria assim?

If Not IsNull(Me.NomedoCampo) Or NomedoCampo<>"" Then
Instrução para não vazio
Else
Instrução para vazio
End If

ou invertendo as posições:

If IsNull(Me.NomedoCampo) Or NomedoCampo="" Then
Instrução para vazio
Else
Instrução para não vazio
End If

Certo é isso

ui . . . não fui capaz !!!
o Codigo que tenho é este :

Private Sub Imagem9_Click()
Dim VarSenha As Double
Dim Varusu As String

Varusu = DLookup("Senha", "DadosExtraFuncionario", "NumeroFuncionario=" & Me.NumeroFuncionario & "")
var_senha = InputBoxDK("Informe a senha:", "Atenção!", "******")

If var_senha = Varusu Then
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = " DadosExtraFuncionarios"
stLinkCriteria = "[NumeroFuncionario]=" & Me![NumeroFuncionario]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Else
MsgBox "Senha incorreta"
Exit Sub

End Sub

onde coloco o vosso codigo ?

Private Sub Imagem9_Click()
Dim VarSenha As Double
Dim Varusu As String

Private Sub Imagem9_Click()
Dim VarSenha As Double
Dim Varusu As String

Varusu = DLookup("Senha", "DadosExtraFuncionario", "NumeroFuncionario=" & Me.NumeroFuncionario & "")
var_senha = InputBoxDK("Informe a senha:", "Atenção!", "******")

If var_senha = Varusu Then
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = " DadosExtraFuncionarios"
stLinkCriteria = "[NumeroFuncionario]=" & Me![NumeroFuncionario]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Else
MsgBox "Senha incorreta"
Exit Sub

End Sub

De onde vem a variavel var_senha? Nao está declarada aqui neste bloco.

É publica?

var_senha e VarSenha sao diferentes.
acrescenta o que esta a azul:

Private Sub Imagem9_Click()
Dim VarSenha As Double
Dim Varusu As String
Dim var_senha as String

agora testa e retorna

Compile error:
Block if without end if

após acrescentar o que se encontrava a azul deu o erro acima descrito.
Obrigado

If var_senha = Varusu Then
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = " DadosExtraFuncionarios"
stLinkCriteria = "[NumeroFuncionario]=" & Me![NumeroFuncionario]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Else
MsgBox "Senha incorreta"
Exit Sub

End If

End Sub

Private Sub Imagem9_Click()
Dim varsenha As Double
Dim Varusu As String
Dim var_senha As String

Varusu = DLookup("Senha", "DadosExtraFuncionario", "NumeroFuncionario=" & Me.NumeroFuncionario & "")
varsenha = InputBoxDK("Informe a Senha:", "Atenção!", "******")

If var_senha = Varusu Then
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = " DadosExtraFuncionarios"
stLinkCriteria = "[NumeroFuncionario]=" & Me![NumeroFuncionario]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Else
MsgBox "Senha Incorreta"
Exit Sub

End If

End Sub

_

Após o que o Sr. Vieira disse voltamos ao mesmo :

run time error '94':
Invalid use off null

Qual é a linha que é marcada?

a seguinte :

Varusu = DLookup("Senha", "DadosExtraFuncionario", "NumeroFuncionario=" & Me.NumeroFuncionario & "")

ola, estive a fazer um pequeno exemplo para perceber a razao porque te estava a dar esse erro e cheguei à conclusao que se trata de nao existir na tabela DadosExtraFuncionario o numeroFunionario igual à tabela Funcionario.

como é obvio, é suposto veres os DadosExtrasFuncionario de um funcionario já registado.
Ambas as tabelas tem de estar preenchidas.

No entanto, deixo-te o exemplo identico ao teu projecto que está a funcionar correctamente.

Para nao te dar esse erro novamente, tens de tratar o erro, tal como disse o mestre Vieira, mas isso tambem ja vai no exemplo.

versao 2003
http://dl.dropbox.com/u/10750210/inputbox_MarcoSousa_2003.mdb

versao 2007
http://dl.dropbox.com/u/10750210/inputbox_MarcoSousa_2007.accdb


P.S. esqueci-me de te dizer que a password da Inputbox nos dois funcionarios é 123, mas podes alterar directamente na bd para a que quizeres, claro

Obrigado a todos . . . Fico a dever um Café como diz o "Sr. D. João Mestre de Avis" ... Sr.º Vieira

Private Sub Form_Load()
DadosNomeEscola.Refresh
If DadosNomeEscola.Recordset.RecordCount < 0 Then
 DadosNomeEscola.Recordset.MoveFirst
End If
Label10 = DadosNomeEscola.Recordset.Fields("Nome")
Dim t, tl As Integer
t = 0
tl = 0
 DadosLivro.Refresh
 If DadosLivro.Recordset.RecordCount < 0 Then
  DadosLivro.Recordset.MoveFirst
 End If
Do While DadosLivro.Recordset.EOF = False
 cboNome.AddItem DadosLivro.Recordset.Fields("Nome")
 t = t + 1
 tl = tl + Val(DadosLivro.Recordset.Fields("QuantidadeEnt"))
 DadosLivro.Recordset.MoveNext
Loop
txtTitulo = t
txtTotalLivro = tl
 DadosAutor.Refresh
 If DadosAutor.Recordset.RecordCount < 0 Then
  DadosAutor.Recordset.MoveFirst
 End If
Do While DadosAutor.Recordset.EOF = False
 txtAutor.AddItem DadosAutor.Recordset.Fields("Autor")
 DadosAutor.Recordset.MoveNext
Loop

 DadosEditora.Refresh
 If DadosEditora.Recordset.RecordCount < 0 Then
  DadosEditora.Recordset.MoveFirst
 End If
Do While DadosEditora.Recordset.EOF = False
 txtEditora.AddItem DadosEditora.Recordset.Fields("Editora")
 DadosEditora.Recordset.MoveNext
Loop

 DadosAssunto.Refresh
 If DadosAssunto.Recordset.RecordCount < 0 Then
  DadosAssunto.Recordset.MoveFirst
 End If
Do While DadosAssunto.Recordset.EOF = False
 txtAssunto.AddItem DadosAssunto.Recordset.Fields("Assunto")
 DadosAssunto.Recordset.MoveNext
Loop
End Sub