none
alguém pode me ajudar erro no totalregistro = Worksheets RRS feed

  • Pergunta

  • Option Explicit

    Private Sub BOTAO_SALVAR_Click()

    totalregistro = Worksheets("planilha1").UsedRange.Rows.Count + 1

    Worksheets ("planilha1")

    'Cells(totalregistro, 15) = CX_DB
    Cells(totalregistro, 2) = CX_RRM
    Cells(totalregistro, 4) = CX_ENTRADA
    Cells(totalregistro, 10) = CX_CDD
    Cells(totalregistro, 3) = CX_CDD
    Cells(totalregistro, 11) = CX_MODELO
    Cells(totalregistro, 12) = CX_SERIAL1
    Cells(totalregistro, 13) = CX_SERIAL2
    Cells(totalregistro, 8) = CX_DATA


    Dim AdoConexao As New ADODB.Connection
        Dim rsIncluir As New ADODB.Recordset
        Dim Banco As String
        
       
         Banco = "bancocaminho"
        
        AdoConexao.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source =" & Banco & "; Persist Security Info=False;Jet Oledb:DataBase password=1234"
        AdoConexao.Open

        rsIncluir.Open "banco", AdoConexao, adOpenKeyset, adLockOptimistic

        rsIncluir.AddNew

            rsIncluir!RRM = CX_RRM
            'rsIncluir!Cliente = CX_CLIENTE
            rsIncluir!NFEntrada = CX_ENTRADA
            rsIncluir!Cliente = CX_CDD
            rsIncluir!mnemonico = CX_CDD
            rsIncluir!Modelo = CX_MODELO
            rsIncluir!DataEntrada = CX_DATA
            rsIncluir!Serial1 = CX_SERIAL1
            rsIncluir!Serial2 = CX_SERIAL2
        
        rsIncluir.Update
        rsIncluir.Close
        AdoConexao.Close


        CX_SERIAL1 = ""
        CX_SERIAL2 = ""

        CX_SERIAL1.SetFocus
        

    End Sub
    segunda-feira, 30 de março de 2020 18:52

Todas as Respostas

  • Leo,

    Qual o erro?

    Mas pelo trecho que você postou, ou você não tem uma aba chamada "planilha1" ou está faltando a declaração da variável totalregistro.

    Quando postar algo no fórum, tenha certeza que disponibilizou informações suficientes para a turma poder te ajudar.

    Abraço!


    Natan

    segunda-feira, 30 de março de 2020 20:24