MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Combo em form divido

    Compartilhe
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Combo em form divido

    Mensagem  Mylton em Ter 28 Jun 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 Qui 30 Jun 2016, 14:11, editado 1 vez(es)
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Combo em form divido

    Mensagem  Mylton em Qui 30 Jun 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
    teste2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (419 Kb) Baixado 4 vez(es)

    pcdesignerce
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Combo em form divido

    Mensagem  pcdesignerce em Qui 30 Jun 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
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Combo em form divido

    Mensagem  Mylton em Qui 30 Jun 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

      Data/hora atual: Sex 22 Set 2017, 14:27