none
ERRO EM TEMPO DE EXECUÇÃO 91 - VARIAVEL DO OBJETO OU A VARIAVEL DO BLOCO "WITH" NAO FOI DEFINIDA RRS feed

  • Pergunta

  • Ola .. Sou novo e estou começando agora e gostaria de saber sobre este erro que aparece  , onde fica este problema ? E o que causa ele ? Gostaria também se a conexão está correta =)

    Private Sub CommandButton2_Click()
    
        Dim cn As Database
        Dim dt As Recordset
        
        Set bd = OpenDatabase(ActiveWorkbook.Path & "\ecolixo.mdb")
        Set rs = cn.OpenRecordset("ordemdeservico")
        
        If TextBox4 = "" Then
          MsgBox "Insira um cliente!"
          TextBox4.SetFocus
          Exit Sub
        End If       
        
        'CONECTAR AO BANCO DE DADOS
    
        rs.AddNew   'adicione os  ítens a ser criados aqui!!!!!!!
        rs!cliente = Me.TextBox3
        rs!Endereço = Me.TextBox14
        rs!Bairro = Me.TextBox15
        rs!Cidade = Me.TextBox16
        rs!Valor = Me.TextBox17
        rs!Motorista = Me.TextBox6
        rs!Caminhao = Me.TextBox8
        rs!Vendedor = Me.TextBox10
        rs!Fossa = Me.TextBox12
        rs!Hidro = Me.TextBox13
        rs!Observacao = Me.TextBox18
        
        rs.Update
        rs.Close
        bd.Close
        
        MsgBox ("Dados inseridos no Banco de Dados Access com Sucesso!"), vbInformation, "Saberexcel - site das macros"
        'Me.nome_cliente = Null
        'Me.txtCidade = Null
        'Me.txtSalario = Null
        Me.TextBox2.SetFocus
        
    End Sub

    segunda-feira, 14 de janeiro de 2019 12:29