MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Executar uma macro a partir de uma caixa de combinação.

    avatar
    FabioCSilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 17/08/2021

    [Resolvido]Executar uma macro a partir de uma caixa de combinação. Empty [Resolvido]Executar uma macro a partir de uma caixa de combinação.

    Mensagem  FabioCSilva Ter 28 Set - 20:10

    Prezados Amigos, boa noite!
    Poderiam me ajudar mais uma vez, Estou quebrando a cabeça com uma situação.
    Tenho um formulário "Cadastro_01" no qual tenho uma caixa de combinação chamada "Turno", nesta caixa é possível carregar uma consulta "12_Fonte_Turno", que carrega as informações "Manhã", "Tarde" e "Noite".
    Quando eu selecionar uma destas opções, devo habilitar a caixa de combinação "OPdip_hc01" a receber a consulta "01_Operador_Clip_Manha", "02_Operador_Clip_Tarde" e ou "03_Operador_Clip_Noite". Desta forma facilito a seleção dos operadores diminuindo a quantidade que será visualizado.

    Criei uma macro para chamar a consulta, mas não estou conseguindo unir, e fazer a consulta carregar na caixa de combinação "OPdip_hc01".

    Obrigado e desculpe pela inexperiência.

    Private Sub OPdip_hc01_Change()

    If Me.Turno = "Manhã" Then

    Me.OPdip_hc01 = ? 01_Operador_Clip_Manha

    If Me.Turno = "Tarde" Then

    Me.OPdip_hc01 = ? 01_Operador_Clip_Tarde

    If Me.Turno = "Noite" Then

    Me.OPdip_hc01 = ? 01_Operador_Clip_Noite

    End If

    End Sub
    avatar
    FabioCSilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 17/08/2021

    [Resolvido]Executar uma macro a partir de uma caixa de combinação. Empty Re: [Resolvido]Executar uma macro a partir de uma caixa de combinação.

    Mensagem  FabioCSilva Qua 29 Set - 20:00

    Amigos, boa noite!
    Mudei a logica e fiz um Select, e está funcionando parcialmente, ele só leva para a caixa de combinação o primeiro nome da manha, tarde e noite.
    Acho que estou no caminho, talvez seja algo simples, carregar a caixa de combinação "Me.OPdip_hc01" com a relação dos nomes de cada turno?
    Obrigado

    Private Sub Turno_HC01_Change()

    On Error GoTo trata_erro

    Dim dbl As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String


    strSQL = "SELECT Nome FROM Operador_Clipping where Turno = '" & Me.Turno_HC01 & "' ORDER BY [Nome];"

    Set dbl = CurrentDb
    Set rs = dbl.OpenRecordset(strSQL)

    Me.OPdip_hc01 = rs("nome") <<<====****

    rs.Close
    Set rs = Nothing

    Exit Sub

    trata_erro:
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!"
    Exit Sub

    End Sub
    avatar
    FabioCSilva
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 17/08/2021

    [Resolvido]Executar uma macro a partir de uma caixa de combinação. Empty Re: [Resolvido]Executar uma macro a partir de uma caixa de combinação.

    Mensagem  FabioCSilva Qui 30 Set - 19:52

    Amigos, consegui resolver!
    cheers

      Data/hora atual: Sab 1 Out - 11:56