Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Botão de Opção exce...
 
Notifications
Clear all

Botão de Opção excel acess

 
2024 - VBA & Macros
Post Recente por Nelson S 8 anos atrás
11 Posts
2 Usuários
0 Reactions
2,357 Visualizações
RSS
 felmback
(@felmback)
Posts: 13
Active Member
Topic starter
 

galera boa noite, poderiam me da um help?

tenho um form pequeno com 2btn opção para marcar a entrada e saída e estou integrando ao BD do Acess.

a dúvida de a seguinte para salvar as opções na planilha do excel já fiz agora em vez de salvar na planilha quero salvar direto no acess ..

If Me.optEntrada = "" Or Me.optSaida = "" Then

Rs.AddNew
If optEntrada.Value = True Then
Rs.Fields("Entrada") = optEntrada.Value
ElseIf optSaida.Value = True Then
Rs.Fields("Saida") = optSaida.Value

End If

como faço para carregar os dados selecionados pelo botão opção no BD acess, com esse código acima não esta dando muito certo , salva ele executa mais não difere entre "entrada e saída"

 
Postado : 25/09/2016 4:18 pm
 Nelson S
(@nelson-s)
Posts: 96
Trusted Member
 

Poste o arquivo de exemplo.

 
Postado : 26/09/2016 7:17 pm
 felmback
(@felmback)
Posts: 13
Active Member
Topic starter
 

segue as planilhas excel/access , se poder me ajudar fico grato , a principio e so o modelo tenho outra igual so que ela salva direto no excel funfa 100% mais como está aumentando os usuarios começa a travar e ficar lento .
a ideia e a seguinte :

o usuario seleciona a entrada ou a saida clica em marcar e aparece ele na caixa de listagem com a hora do sistema que vai executado a marcação .

 
Postado : 27/09/2016 7:26 am
 felmback
(@felmback)
Posts: 13
Active Member
Topic starter
 

segue o BD

 
Postado : 27/09/2016 7:27 am
 Nelson S
(@nelson-s)
Posts: 96
Trusted Member
 

segue o BD

Onde?

 
Postado : 27/09/2016 12:02 pm
 felmback
(@felmback)
Posts: 13
Active Member
Topic starter
 

não estou conseguindo enviar o arquivo a extensão não e permitida, mais se me der uma luz como salvar os itens selecionados pelo bt opção direto no bd fico muito agradecido .

 
Postado : 27/09/2016 12:13 pm
 Nelson S
(@nelson-s)
Posts: 96
Trusted Member
 

Compacta o arquivo como *.zip ou *.rar.

 
Postado : 27/09/2016 12:27 pm
 Nelson S
(@nelson-s)
Posts: 96
Trusted Member
 

01. Atribua o mesmo nome - por exemplo, grpOpcoes - à propriedade "GroupName" dos dois botões. Isso fará com que os botões fiquem vinculados. Se um deles for marcado, o outro automaticamente será desmarcado.

02. Alterar o código dos eventos:

Private Sub UserForm_Initialize()

    Call conecta

    Set Rs = New ADODB.Recordset
    Rs.Open "SELECT *FROM Afonso_Corsino", MiConexao, adOpenKeyset, adLockOptimistic, adCmdText

   
    Me.optEntrada = True    '* <-- adicionar linha. O form abre com a opção "Entrada" marcada como padrão.

End Sub

Private Sub btnMarcar_Click()

    Rs.AddNew
    
    Rs.Fields("Entrada") = optEntrada.Value
    Rs.Fields("Saida") = optSaida.Value
        
    Rs.Update
    
End Sub
 
Postado : 27/09/2016 12:59 pm
 felmback
(@felmback)
Posts: 13
Active Member
Topic starter
 

fiz o que me falou deu certo , so que agora ele salva nas duas caixas como se os 2 tivessem selecionados , não entendi bem o que vc citou no 1 item , e não consegui alterar , teria um exemplo de como fazer
""
01. Atribua o mesmo nome - por exemplo, grpOpcoes - à propriedade "GroupName" dos dois botões. Isso fará com que os botões fiquem vinculados. Se um deles for marcado, o outro automaticamente será desmarcado.

 
Postado : 28/09/2016 9:00 am
 felmback
(@felmback)
Posts: 13
Active Member
Topic starter
 

segue o projeto como havia informado

 
Postado : 28/09/2016 9:13 am
 Nelson S
(@nelson-s)
Posts: 96
Trusted Member
 

fiz o que me falou deu certo , so que agora ele salva nas duas caixas como se os 2 tivessem selecionados , não entendi bem o que vc citou no 1 item , e não consegui alterar , teria um exemplo de como fazer
""
01. Atribua o mesmo nome - por exemplo, grpOpcoes - à propriedade "GroupName" dos dois botões. Isso fará com que os botões fiquem vinculados. Se um deles for marcado, o outro automaticamente será desmarcado.

01.Abra a janela do projeto VBA (Alt+F11);
02.Abra o formulário "Home";
03.Selecione o botão de opção "optEntrada";
04.Abra a janela "Propriedades" (botão direito, "Propriedades");
05.Na propriedade "GroupName" digite "grpOpcao";
06.Repita a operação com o botão de opção "optSaida";
07.Salve o projeto;
08.Teste.

 
Postado : 28/09/2016 10:24 am
Forum Jump:
  Tópico Anterior
Próximo Tópico