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


2 participantes

    [Resolvido]Combo em form divido

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1007
    Registrado : 23/08/2010

    [Resolvido]Combo em form divido Empty [Resolvido]Combo em form divido

    Mensagem  Mylton 28/6/2016, 00:21

    Boa noite a todos.
    Tenho 3 tabelas.
    2 relacionadas as combos existentes (cada uma de forma isolada).
    E possuo 3 forms.
    1- FrmTesteCid - modelo da interação das combo.
    2- Escolha1 e escolha2.
    Gostaria que nesse form dividido, a medida que fosse escolhendo as opções provenientes desta interação das combo, estas fossem acrescentadas a 3 tabela (cadastro) que armazenará essas escolhas.
    em relação ao form Escolha 2 substitui a 2 combo por uma caixa de listagem, mas não rodou 100%, mas gostaria que também acrescentasse do mesmo jeito descrito antes.
    Se alguém puder ajudar.....agradeço.
    Obrigado.


    Última edição por Mylton em 30/6/2016, 14:11, editado 1 vez(es)
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1007
    Registrado : 23/08/2010

    [Resolvido]Combo em form divido Empty Re: [Resolvido]Combo em form divido

    Mensagem  Mylton 30/6/2016, 14:06

    Bom dia a todos.
    A questão da listbox já consegui resolver com a juda dos amigos do forum.
    Precisaria que uma ideia/rotina para usar nesse form dividido, na medida que fosse escolhendo as opções provenientes desta interação das caixas, acrescentando na 3 tabela (cadastro) os dados escolhidos.
    obrigado
    Anexos
    [Resolvido]Combo em form divido Attachmentteste2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (419 Kb) Baixado 4 vez(es)
    avatar
    pcdesignerce
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 14/02/2014

    [Resolvido]Combo em form divido Empty Re: [Resolvido]Combo em form divido

    Mensagem  pcdesignerce 30/6/2016, 21:30

    coloquei sua LstCid10 no evento ao clicar, por considerá que seja a ultima informação escolhida,
    mas o ideal é colocar este evento em u botão se não cada vez que clicar vai inserindo um novo registro,
    ou coloca uma caixa de mensagem para confirma que não vai ser muito interessante tbm.
    o melhor mesmo um botão.

    veja se á isso que vc quer:
    Private Sub LstCid10_Click()
    Dim Linha As Integer, IdProcesso As Integer, LstCid10 As String

    'captura valor dos campos do seu interesse
    IdProcesso = Me.IdProcesso.Value
    Linha = Me.LstCid10.ListIndex
    LstCid10 = Me.LstCid10.Column(2, Linha)

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    'Vamos adicionar um novo registro na tabela cadastro.

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Tabela1")

    rs.AddNew
    rs.Fields("IdProcesso") = IdProcesso
    rs.Fields("NomeCidEscolhido") = LstCid10
    rs.Update
    rs.Clone
    Set db = Nothing

    End Sub
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1007
    Registrado : 23/08/2010

    [Resolvido]Combo em form divido Empty Re: [Resolvido]Combo em form divido

    Mensagem  Mylton 30/6/2016, 23:14

    Muito obrigado.
    Avelino e demais.
    Com ajuda de todos encontrou-se este caminho em um botão salvar....


    Private Sub Comando4_Click()
    Me!NomeCidEscolhido = Me!LstCid10.Column(2)
    Me!CodCid = Me!LstCid10.Column(1)
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec
    End Sub


    gde Abs

    Conteúdo patrocinado


    [Resolvido]Combo em form divido Empty Re: [Resolvido]Combo em form divido

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:21