[Resolvido]Botões em formulário não vinculado

Bom dia Amigos 

Estou precisando mais uma vez da ajuda de vocês em dois problemas.

1°  Estou seguindo um vídeo que achei na net para tentar fazer um formulário com os campos desvinculados com a finalidade de não pular sequencia de código de registro.  Agora preciso programa os botoes de navegação (primeiro registro, registro anterior, próximo registro é ultimo registro) no vídeo não ensina.   
 2° Estou tentando colocar as funções salvar e atualizar no botão "Cmd_Salva"r usando como criterio o botal "Editar"

Se o botão edita estiver desabilitado "false" atualizar caso não Salvar.

Tentei fazer assim mas não deu

If IsNull(Me.cmd_edita) Then

        Comando = "update tab_equipamento set IdEquipamento='" & txt_identificacao & "',DescrEquip='" & txt_Descri & "',DataMob ='" & txt_DataMob & "',DataDesmob='" & txt_Datadesmob & "',Empresa_fk=" & Txt_ProprietariA & ",CatecoEquip_fk=" & txt_categoria & " where Código=" & txt_CodEquip
    

    Else


        Comando = "insert into tab_equipamento(Código,DescrEquip,CatecoEquip_fk,DataDesmob,DataMob,Empresa_fk,IdEquipamento)values(" & NumCod & ",'" & txt_Descri & "','" & txt_categoria & "' , '" & txt_Datadesmob & "','" & txt_DataMob & "' , '" & Txt_ProprietariA & "' , '" & txt_identificacao & "')"
        banco.Execute (Comando) 


Desde já gradeço a ajudada de todos do fórum.

Bom dia Amigo


Pra responder as dúvidas de assuntos específicos, deve sempre anexar o sistema, para que possamos responder especificamente.


Att
José Machado

Bom dia 

Seque o banco 



https://www.dropbox.com/s/odi5m55uflcm4zx/DBTST.zip?dl=0

Amigo

Veja se o que fiz te ajuda.
*Obs: está orientado a objetos.


Att
José Machado

Bom dia José Machado 

Nem sei como agradecer a sua ajuda muito obrigado

Bom dia Amigo

Não esqueça de Marca essa questão como resolvida.


Att
José Machado

Bom dia 

Amigo o botão novo registro ficou sem código

Antes eu tinha criado variável  NunCod e uma sub GerarCodigo

Sub GerarCodigo()
Comando = "select*from tab_equipamento order by Código Desc" 'seliciona todos os campos em roeden decrescente
valida_selecao 'chama a função que criamos que irá executar o comando SQL
If dataset.BOF = True Then
    NumCod = 1
    Else
    NumCod = dataset("Código") + 1
    End If
    

End Sub 

Botão Novo 

Private Sub cmd_novo_Click()
GerarCodigo
Ativa_txt
Limpa_txt

End Sub 

Como faço agora ?

Bom dia Amigo

No código VBA que mandei, é só adicionar no evento do botao novo

Private Sub cmd_novo_Click()
    Limpar_txt
    Liberar_txt
End Sub

Ele limpa e libera os campos pra poder gerar um novo equipamento.
O novo código sera gerado a partir do último registro salvo na tabela referente.
Ex: se lá tiver 10 registros, o próximo a ser salvo será o 11 automaticamente, pois o código do equipamento é autonumeração, 
e o código VBA trata os dados antes de salvar na tabela evitando erros na gravação.


Att
José Machado

Boa tarde 

Ok muito obrigado