MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Combo em form divido

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    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)

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    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

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    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: Sab 10 Dez 2016, 12:37