Excel Cadastrar opption button em Access via excel vba

[josequali]

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

[AfonsoMira]

@josequali Boas,

Veja se isto lhe ajuda.
 

Painel teste.zip

[josequali]

@AfonsoMira Não funcionou aqui, está dando erro  

Aparece a seguinte mensagem

 

[AfonsoMira]

@josequali Em qual linha ?

[josequali]

@AfonsoMira Rs!Cadastrar = opption_button.Caption

 

[Basole]

@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

 

[josequali]

@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

 

 

 

[josequali]

@Basole Conseguir carregar os opption button com esse código rs  . 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