Uso formulário no excel e as combobox usava os dados que estavam em uma planilha.
Coloquei os dados da planilha em uma tabela do acess. Não tem chave primaria ou numeração para cada linha.
Como tenho que ficar alterando e incluindo dados criei um formulário para alterar/incluir dados. O alterar já consegui o @raygsson me ajudou no outro post.
Agora preciso o botao de INCLUIR um novo dado. Já tentei algumas opcões que até deu mas em vez de ir para uma linha abaixo do ultimo item já existente está criando uma nova linha.
Meio confunso, vou postar uma foto. Caso não conseguirem me ajudar subo o arquivo.
Exemplo: Quero incluir um novo banco, "BB", no "Campo BANCO". Em vez de ir para baixo do Caixa, cria uma nova linha por ultimo na tabela.
Esse script abaixo eu uso em outros formularios para incluir quando se tem chave primaria. Mas não da porque ele usa o codigo da chave primaria.
Call conecta_financas
Set rs = New ADODB.Recordset
rs.Open "select * from base_despesas", MiConexao, adopenkeyser, adLockOptimistic, adCmdText
While Not rs.EOF
id = rs(0)
rs.MoveNext
Wend
Me.c_despesasdb_num = id + 1
id = Me.c_despesasdb_num
With rs
.AddNew
.Fields("Cod_despesas") = id
.Fields("Mes") = Me.c_despesasdb_mes
End With
Call desconecta_financas
>>>>> Tentei esse, mas cria uma nova linha.
campo_bd = "Despesa_Fixa_Desp"
Call conecta_financas
Set rs = New ADODB.Recordset
rs.Open "select " & campo_bd & " from Dados_Source", MiConexao, 3, 3
Do Until rs.EOF
With rs
'AddNew
.Fields(campo_bd) = c_despesasdb_item_alterar
.Update
End With
rs.MoveNext
Loop
Call desconecta_financas
Editado pela Moderação. Motivo: Novamente pedimos que utilize o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.
Postado : 13/01/2021 10:52 am