MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

4 participantes

    [Resolvido]run time error '94'

    avatar
    Convidado
    Convidado


    [Resolvido]run time error '94' Empty run time error '94'

    Mensagem  Convidado 29/8/2011, 16:34

    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
    bitabit
    bitabit
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 225
    Registrado : 14/07/2010

    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  bitabit 30/8/2011, 14:38

    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...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  vieirasoft 30/8/2011, 14:48

    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
    avatar
    Convidado
    Convidado


    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  Convidado 31/8/2011, 14:08

    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
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  vieirasoft 31/8/2011, 14:15

    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

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  criquio 31/8/2011, 14:19

    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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  vieirasoft 31/8/2011, 14:21

    Certo é isso
    avatar
    Convidado
    Convidado


    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  Convidado 31/8/2011, 16:07

    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 ?
    bitabit
    bitabit
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 225
    Registrado : 14/07/2010

    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  bitabit 31/8/2011, 16:24

    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
    avatar
    Convidado
    Convidado


    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  Convidado 1/9/2011, 12:57

    Compile error:
    Block if without end if

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  vieirasoft 2/9/2011, 10:34

    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
    avatar
    Convidado
    Convidado


    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  Convidado 2/9/2011, 13:52

    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
    bitabit
    bitabit
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 225
    Registrado : 14/07/2010

    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  bitabit 2/9/2011, 14:53

    Qual é a linha que é marcada?
    avatar
    Convidado
    Convidado


    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  Convidado 2/9/2011, 15:14

    a seguinte :

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 225
    Registrado : 14/07/2010

    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  bitabit 2/9/2011, 17:49

    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 Smile
    avatar
    Convidado
    Convidado


    [Resolvido]run time error '94' Empty Re: [Resolvido]run time error '94'

    Mensagem  Convidado 3/9/2011, 07:49

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 06/01/2012

    [Resolvido]run time error '94' Empty meu codigo esta bugando (run-time error '94') também, o erro esta nesta linha tl = tl + Val(DadosLivro.Recordset.Fields("QuantidadeEnt"))

    Mensagem  athanasio 11/9/2015, 05:37

    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

      Data/hora atual: 27/11/2022, 17:48