Jump to content
rafaelsb2107

Erro: run-time error '94' invalid use of null

Recommended Posts

Bom dia!

tenho uma aplicação em visual basic que cadastra contratos vinculados a pastas. Porém, em alguns casos, ao tentar incluir o contrato em uma pasta(tabela) do sistema, mostra o erro Run_time error '94' invalid use of null. Por exemplo, ontem dia 02/10/2017, o meu usuário conseguiu incluir dois contratos e um não. O tamanho do CNPJ do contrato, o procedimento para cadastraro contrato no sistema não mudou. O erro ocorre em alguns casos e outros o sistema aceita.

 

Alguém poderia me auxiliar?

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By Robson Wenzel
      Olá, sou novo no VB
       
      Estou desenvolvendo um programa de atendimento médico onde tem vários textboxs e um deles é de Valor (R$).
       
      O meu problema é o seguinte...
      No meu banco de dados o campo valor é do tipo moeda e o banco é em access
      No meu programa no dataset configurei ele para double e por código consegui colocar automaticamente ponto e virgula.
      Até ai acho que tudo bem...
      Só que quando eu clico para salvar ele automaticamente esquece do ponto e virgula e salva no datagridview o valor sem ponto e virgula, e dai quando eu seleciono o registro ele esquece dos centavos
       
      Ex.:
      Eu digito na text box: R$ 1.250,00
      E quando eu salvo aparece na datagridview: 1250
      Quando seleciono o mesmo registro ele fica assim na textbox: R$ 12,50
      Só se os centavos não forem zerados ele salva mais se forem 00 ele não salva
       
      Por favor! me ajudem.
       
      Segue o código da formula para colocar os ponto e virgula para vocês darem uma olhada e ver se tem erros...
       
      --------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
      Public Shared Sub Moeda(ByRef txt As TextBox)         Dim n As String = String.Empty         Dim v As Double = 0         Try             n = txt.Text.Replace(",", "").Replace(".", "")             If n.Equals("") Then n = ""             n = n.PadLeft(3, "0")             If n.Length > 3 And n.Substring(0, 1) = "0" Then n = n.Substring(1, n.Length - 1)             v = Convert.ToString(n) / 100             txt.Text = String.Format("{0:C2}", v)             txt.SelectionStart = txt.Text.Length         Catch ex As Exception         End Try     End Sub     Private Sub valortxt_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles valortxt.KeyPress         Select Case (valortxt.TextLength)             Case 4                 valortxt.SelectionStart = 5         End Select     End Sub     Private Sub valortxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles valortxt.TextChanged         Atendimentos.Moeda(valortxt)     End Sub ------------------------------------------------------------------------------------------------------------------------------------------------------------
    • By Roberto Paes
      System.Diagnostics.Process process = new System.Diagnostics.Process(); System.Diagnostics.ProcessStartInfo startInfo = new System.Diagnostics.ProcessStartInfo(); startInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden; startInfo.FileName = "cmd.exe"; startInfo.Arguments = "/C start copy " + Application.StartupPath + @"\launcher\Sanchez.Patcher.exe " + Application.StartupPath; process.StartInfo = startInfo; process.Start(); Oi pessoal, Boa noite. Me chamo Roberto e estou tendo problemas em usar o cmd com o c#. O meu código funciona perfeitamente, mas eu não consigo ocultar a janela do cmd. Bom, apresentado o meu problema. Espero que possam me ajudar.
       
       
    • By felipegon02
      Gostaria da ajuda de vocês membros, estou fazendo um projeto que é pro meu TCC utilizando o MYSQL  e o Visual Basic, neste projeto queria fazer agendamento de clientes, mas para isso, queria comparar o horário selecionado pelo cliente com o banco de dados, para ver se o horário está disponível mas não sei com fazer isso. Obrigado 
    • By Everaldo Miceli d Avila
      Estou iniciando no Visual Studio (VB) estou usando um banco de dados Access interligado com vários DBF., porém não consegui que o VS montasse a edição e gravação desta o VS dá uma mensagem de que tem erro com a grafia
       "   Private Sub DBF_11ABindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles DBF_11ABindingNavigatorSaveItem.Click         Me.Validate()         Me.DBF_11ABindingSource.EndEdit()         Me.TableAdapterManager.UpdateAll(Me.DatabaseSisdespDataSet)     End Sub  "
      alguém pode me ajudar?
       
    • By Otacildo
      Estou desenvolvendo um sistema em vb.net 2010. A solução contém cinco projetos, um EXE (Principal) e quatro DLL (Cadastro, Financeiro, Jurídico e Biblioteca). A Biblioteca.dll contém uma classe Utils com funções para validar CPF, encriptar Senha e outras. Referenciei a Biblioteca.dll no projeto Principal.exe.  Quando chamo fValidaCPF(txtCPF.text) do Projeto Principal.exe é apresentado um erro “Expressão não é um método”.
       
      '----------------------------------------------------------------------
      'Projeto Principal.exe
      '----------------------------------------------------------------------
      Imports Biblioteca
      Imports Biblioteca.Utils
      Imports System.Windows.Forms
      Public Class Principal
          Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
              fValidaCPF(TextBox1.Text)
          End Sub
      End Class
       
       
       
      '----------------------------------------------------------------------
      'Projeto Biblioteca.dll
      'Valida CPF
      '----------------------------------------------------------------------
      Public Function FValidaCPF(ByVal CPF As String) As Boolean
          Dim i, x, n1, n2 As Integer
          CPF = CPF.Trim
          For i = 0 To dadosArray.Length - 1
              If CPF.Length <> 14 Or dadosArray(i).Equals(CPF) Then
                  Return False
              End If
          Next
          'remove a maskara
          'If Len(CPF) > 11 Then
          CPF = CPF.Substring(0, 3) + CPF.Substring(4, 3) + CPF.Substring(8, 3) + CPF.Substring(12)
          'End If
          For x = 0 To 1
              n1 = 0
              For i = 0 To 8 + x
                  n1 = n1 + Val(CPF.Substring(i, 1)) * (10 + x - i)
              Next
              n2 = 11 - (n1 - (Int(n1 / 11) * 11))
              If n2 = 10 Or n2 = 11 Then n2 = 0
              If n2 <> Val(CPF.Substring(9 + x, 1)) Then
                  MsgBox("O CPF informado não é válido. Verifique se digitou corretamente.", _
                         MsgBoxStyle.Information, "GA .Net Consultoria")
                  Return False
              End If
          Next
       
          MsgBox("O CPF informado é válido.", _
                 MsgBoxStyle.Information, "GA .Net Consultoria")
       
          Return True
      End Function
       
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.