Access Access e VBA organização do codigo

[DavidsonGomes1998]

Boa tarde gente, estou aprendendo ainda usar o access como banco de dados.

 

Segui os tutoriais do diarioexcel.com.br para conexao e programar as funcões, gravar, alterar e excluir.

porém eu nao to conseguindo adicionar funções aos botões sem q interfira na conexão do banco de dados. alguem pode me dizer onde eu colocaria,

condições como se o campo ID ja existir no BD os demais campos ficarem vazios "", ou se o ID ja existir desabilitar o botao gravar e habilitar os outros e por ai vai

 

segue abaixo os codigos:

 

Spoiler

Tela Login

 

TXT_ID

Private Sub Txt_ID_Change()
On Error Resume Next
   CodRegistro = Txt_ID
   ConectDB
     rs.Open "Select * From tb_usuarios Where Codigo=" & CodRegistro, db, 3, 3
        Me.Txt_usuario = rs!Usuarios
        Me.Txt_senha = rs!Senha
             
        rs.MoveNext
    FechaDb
End Sub

 

SALVAR

Private Sub Btn_Salvar_Click()
 ConectDB
    
        rs.Open "Select * FROM tb_usuarios", db, 3, 3
            rs.AddNew
                rs!Codigo = Me.Txt_ID.Value
                rs!Usuarios = Me.Txt_usuario.Value
                rs!Senha = Me.Txt_senha.Value
                rs.Update
FechaDb
    MsgBox "Registrado Com Sucesso!", vbInformation, "REGISTRADO"
End Sub

EXCLUIR

Private Sub Btn_Excluir_Click()
CodRegistro = Me.Txt_ID
        
        ConectDB
            rs.Open "Select * From tb_usuarios Where Codigo=" & CodRegistro, db, 3, 3
                  rs.Delete
                  rs.Update
        FechaDb
        
        MsgBox "Excluido com Sucesso!"
End Sub

 

ALTERAR

Private Sub Btn_Alterar_Click()
CodRegistro = Me.Txt_ID
        
        ConectDB
            rs.Open "Select * From tb_usuarios Where Codigo=" & CodRegistro, db, 3, 3
                     rs!Usuarios = Me.Txt_usuario
                     rs!Senha = Me.Txt_senha
                     rs.Update
        FechaDb
        
        MsgBox "Alterado com Sucesso!"
End Sub

 

 

[Basole]

Veja o exemplo de pesquisa do registro, e caso já exista mostra a mensagem, e limpa os campos (TexttBox).

 

Private Sub Btn_Salvar_Click()
 ConectDB
    
        rs.Open "Select * FROM [tb_usuarios] WHERE [Codigo]=" & Me.Txt_ID.Value, db, 3, 3
                
          If rs.EOF Then
            rs.AddNew
                rs!Codigo = Me.Txt_ID.Value
                rs!Usuarios = Me.Txt_usuario.Value
                rs!Senha = Me.Txt_senha.Value
                rs.Update
                
                MsgBox "Registrado Com Sucesso!", vbInformation, "REGISTRADO"
          Else
          
          MsgBox "ID ja existir no BD", vbInformation, "Aviso"
          
                Me.Txt_ID.Value = ""
                Me.Txt_usuario.Value = ""
                Me.Txt_senha.Value = ""
          End If
  FechaDb
End Sub

 

[DavidsonGomes1998]

 

Em 13/11/2019 às 10:13, Basole disse:

Veja o exemplo de pesquisa do registro, e caso já exista mostra a mensagem, e limpa os campos (TexttBox).

 

Private Sub Btn_Salvar_Click()
 ConectDB
    
        rs.Open "Select * FROM [tb_usuarios] WHERE [Codigo]=" & Me.Txt_ID.Value, db, 3, 3
                
          If rs.EOF Then
            rs.AddNew
                rs!Codigo = Me.Txt_ID.Value
                rs!Usuarios = Me.Txt_usuario.Value
                rs!Senha = Me.Txt_senha.Value
                rs.Update
                
                MsgBox "Registrado Com Sucesso!", vbInformation, "REGISTRADO"
          Else
          
          MsgBox "ID ja existir no BD", vbInformation, "Aviso"
          
                Me.Txt_ID.Value = ""
                Me.Txt_usuario.Value = ""
                Me.Txt_senha.Value = ""
          End If
  FechaDb
End Sub

 

Eu fiz aqui esse processo ai, funcionou, porém os novos cadastros tambem ta indo pro else e nao cadastra, diz q ja existe

[Basole]

Sendo assim e pra não ficarmos nas suposicões, sugiro que anexe o seus arquivos ou um exemplo bem próximo dos originais, para que possamos encontrar o erro e atender a sua demanda

 

* O Fórum não aceita anexos com extensão: " *.xlsm ". Compacte ("zipe") seu arquivo, antes de anexar..