Bom dia!
Estou tentando mas não consegui achar nada a respeito.
Tenho uma planilha em Excel com Banco de dados em Access e preciso repetir os dados do formulário na linha de baixo do BD, alterando apenas uma textbox na linha de baixo.
Direto no Excel uso - ActiveCell.Offset(1, 0).Select - mas com a conexão com o access não consigo.
Estou postando aqui o código que estou usando pois a planilha é muito grande.
No caso mudaria o Me.txt_ NomeMotorista - para Me.txt_ NomeAjudante:
Private Sub btn_salvar_Click()
'Cria variável que armazena os comandos SQL
Dim ComandoSQL As String
Dim id As Integer
id = txt_codigo
'Armazena na variável o comando que fará a consulta SQL no BD Access
ComandoSQL = "select * from tabela_clientes"
'Chama a rotina que faz a conexão com o BD
Call Conecta
'Atribui a variável de Objeto de BD a execução dos comandos SQL
Set consulta = banco.OpenRecordset(ComandoSQL)
'Enquanto consulta (variável objeto do BD)...
With consulta
'Abre o Recordset do BD para inserção
.AddNew
'Armazena em cada um dos campos do BD os valores constantes nas caixas de texto e combo do formulário
.Fields("ID") = id
.Fields("NomeMotorista") = Me.txt_ NomeMotorista
.Fields("Equipe") = Me.txt_Equipe
.Fields("RE") = Me.txt_RE
.Fields("Quantidade1") = Me.txt_ Quantidade1
.Fields("Quantidade1") = Me.txt_ Quantidade3
.Fields("Quantidade1") = Me.txt_ Quantidade3
'Se houver erro de acesso aos dados id já cadastrado, desvia para o rótulo Sai
'On Error GoTo Sai:
'Efetiva a atualização do BD
.Update
End With
'Fecha o Recorset e a conexão com o BD
consulta.Close
banco.Close
'Chama a rotina que desconecta do BD (libera variáveis objeto de BD)
Call Desconecta
'Exibe mensagem de sucesso na inclusão do registro
MsgBox "Dados Inseridos com Sucesso!", vbDefaultButton1, "Novo Registro"
Call limpar_campos
Call carregar_dados
Call carrega_id
txt_RE.SetFocus
'Abandona a subrotina
Exit Sub
Sai: 'Se houver erro de acesso aos dados o processamento é desviado para cá
If Err.Number = 3022 Then
'Exibe mensagem de código já cadastrado
MsgBox "O código " & id & " já foi cadastrado! O registro será salvo com o id " & id + 1, vbCritical, "Novo Registro"
txt_codigo = id + 1
Call btn_salvar_Click
Exit Sub
Else 'Qualquer outro tipo de Erro
MsgBox "Ocorreu o erro De número " & Err.Number & " - " & Err.Description & ". Contate com o Desenvolvedor e informe essa ocorrência.", vbCritical, "INSERÇÃO"
Call limpar_campos
Call Desconecta
'Abandona a subrotina
Exit Sub
End If
Call limpar_campos
Call Desconecta
MsgBox "Digite um novo registro!"
txt_RE.SetFocus
End Sub
Obrigado a Todos!!!!
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
REPETIR DADOS DO FORMULÁRIO NA LINHA DE BAIXO
Moderador: joseA
-
- Colaborador
- Mensagens: 38
- Registrado em: Ter Abr 19, 2016 10:03 am
- Localização: Campinas, SP
- Contato:
Re: REPETIR DADOS DO FORMULÁRIO NA LINHA DE BAIXO
Bom dia,
Ficou um pouco confuso, mas deixa eu ver se entendi. O que você chama de REPETIR seria salvar os dados no banco de dados?
Aparece alguma mensagem de erro?
Como é feita a conexão ?
Ficou um pouco confuso, mas deixa eu ver se entendi. O que você chama de REPETIR seria salvar os dados no banco de dados?
Aparece alguma mensagem de erro?
Como é feita a conexão ?
-
- Colaborador
- Mensagens: 38
- Registrado em: Ter Abr 19, 2016 10:03 am
- Localização: Campinas, SP
- Contato:
Re: REPETIR DADOS DO FORMULÁRIO NA LINHA DE BAIXO
Boa noite Guilherme!
Primeiramente obrigado...
Achei a planilha original e estou mandando em anexo, pra vocês que entendem é mais fácil.
Os créditos são do Renan Ruthes, com quem não consigo contato.
Não consigo que os dados do formulário se repitam na linha de baixo do BD access. Repetir quatro vezes, então Ficariam quatro linhas com os dados iguais.
A intensão é não ficar digitando os dados várias vezes.
Primeiramente obrigado...
Achei a planilha original e estou mandando em anexo, pra vocês que entendem é mais fácil.
Os créditos são do Renan Ruthes, com quem não consigo contato.
Não consigo que os dados do formulário se repitam na linha de baixo do BD access. Repetir quatro vezes, então Ficariam quatro linhas com os dados iguais.
A intensão é não ficar digitando os dados várias vezes.
- Anexos
-
- 85-Filtro-multi-criterios-ACCESS-Entre-datas.rar
- (206.84 KiB) Baixado 370 vezes