Ir ao conteúdo
  • Cadastre-se

Excel Cadastrar opption button em Access via excel vba


Ir à solução Resolvido por Basole,

Posts recomendados

Bom dia! Como cadastrar opptionbutton no Access via formulário excel vba e depois carregar os dados na consulta?

 

Os códigos referentes ao cadastro e pesquisa já se encontram no arquivo e que foram elaborados por @Basole (crédito)

 

Segue em anexo o modelo da planilha e o banco de dados. Obrigado!

 

 

 

Cadastrar optbutton e carregar.rar

Link para o post
Compartilhar em outros sites
  • Membro VIP

@josequali Boas,

Veja se isto lhe ajuda.
 

Painel teste.zip

Link para o post
Compartilhar em outros sites
  • Membro VIP

@josequali Em qual linha ?

Link para o post
Compartilhar em outros sites
  • Solução

@josequali segue abaixo o código com as alterações,

 

Veja se é isso: 

 

Private Sub BtnCadastro_Click()
  Dim vl    As Boolean
  Dim Ctrl  As Control
 
 ' VERIFICA SE TODOS OS CAMPOS FORAM PREENCHIDOS:
   If CadNome.Text = "" Or _
      CadSenha.Text = "" Or _
      CadUsuario.Text = "" Then
         MsgBox "Preencha todos os campos para proseguir! ", vbCritical, "Aviso"
      Exit Sub
   End If
 
 ' VERIFICA SE OS OPTIONBUTTON FORAM SELECIONADOS:
    For Each Ctrl In Me.Frame1.Controls
        If TypeName(Ctrl) = "OptionButton" Then
           If Ctrl = True Then vl = True
        End If
    Next Ctrl
    
    If vl = False Then MsgBox "Escolha uma opção em " & _
                               Me.Frame1.Caption, vbCritical, "Aviso": Exit Sub
    vl = False
  
    For Each Ctrl In Me.Frame2.Controls
        If TypeName(Ctrl) = "OptionButton" Then
           If Ctrl = True Then vl = True
        End If
    Next Ctrl
    
    If vl = False Then MsgBox "Escolha uma opção em " & _
                               Me.Frame2.Caption, vbCritical, "Aviso": Exit Sub
     
   Conectdb
        
        Rs.Open "Select * from TabLogin", DB, 3, 3
         
         If Not Rs.EOF Then
         
            With Rs
            .AddNew
             !Nome = Login.CadNome.Text
              !Usuario = Login.CadUsuario.Text
               !Senha = Login.CadSenha.Text
                
                If opt1 = True Then
                 !Cadastrar = opt1.Caption
                Else
                 !Cadastrar = opt2.Caption
                End If
                   
                    If opt3 = True Then
                     !Imprimir = opt3.Caption
                    Else
                     !Imprimir = opt4.Caption
                    End If
                
                .Update
              End With
         End If
         
   FechaDb
   MsgBox "Cadastrado com Sucesso!", vbInformation, "SALVO"
          
   End Sub

 

  • Curtir 1
  • Amei 1
Link para o post
Compartilhar em outros sites

@Basole Muito obrigado pela ajuda! 😁Mas consegui resolver colocando apenas o seguint e código:

 

Rs! Cadastrar = Frame1.opt1.caption

Rs! Cadastrar = Frame1.opt2.caption

 

Rs! Imprimir = Frame2.opt3.caption

Rs! Imprimir = Frame2.opt4.caption

 

@Basole @Basole Estou tentando agora ver como usar a textbox (txtnome) no painel de PESQUISAR  como procurar a informação no banco de dados access e retornar para opption Button de acordo com a informação que foi cadastrada, mas ainda não obtive sucesso 😅

 

 

Tentei esses dois códigos para buscas, mas não deu certo.

 

 

If frame4.controls = true then

Rs! cadastrar= opt5.caption

Else

Rs! cadastrar= opt6.caption

End if

 

 

E o outro

 

Login.frame4.opt5.caption =rs (Cadastrar)

 

 

Mas nenhum deu certo 😅😔😭

 

 

 

Link para o post
Compartilhar em outros sites

@Basole Conseguir carregar os opption button com esse código rs :D . Vou deixar aqui disponível para quem precisar

 

 

Dim opt5, opt6 As Object


For Each opt5 In Frame4.Controls
If opt5.Caption = Rs!Cadastrar Then
opt5.Value = True
End If
Next opt5

For Each opt6 In Frame4.Controls
If opt6.Caption = Rs!Cadastrar Then
opt6.Value = True
End If
Next opt6

Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Redes-Wi-Fi-capa-3d-newsletter.png

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!