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]Dados de combo pra combo

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2992
    Registrado : 09/04/2012

    [Resolvido]Dados de combo pra combo Empty [Resolvido]Dados de combo pra combo

    Mensagem  Kaynan 21/4/2023, 03:10

    Ola amigos,quero copiar o dado selecionado em uma ComboBox Status que esta no formulário "frmCadManutencao" para outra ComboBox id_status_equip que esta em outro formulario "frmCadEquipamentos".
    Como eu faria.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2752
    Registrado : 23/01/2018

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  crysostomo 21/4/2023, 14:32

    Bom dia.
    Código:
    docmd.openform"frmCadEquipamentos" abre para receber
    Forms!frmCadEquipamentos!id_status_equip= Forms!frmCadManutencao!Status .Text


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2992
    Registrado : 09/04/2012

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  Kaynan 21/4/2023, 14:55

    Ola Crys obrigado pela dica,não deu certo.coloquei o código em um botão.

    DoCmd.OpenForm "frmCadEquipamentos" 'abre para receber
    Forms!frmCadEquipamentos!id_status_equip = Forms!frmCadManutencao!status

    Diz que o valor não é valido pra esse campo,
    Quero que o frmCadEquipamentos não abra,só inclua na combo o mesmo dado que selecionar na combo do frmCadManutencao.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2752
    Registrado : 23/01/2018

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  crysostomo 21/4/2023, 15:09

    Quero que o frmCadEquipamentos não abra,só inclua na combo o mesmo dado que selecionar na combo do frmCadManutencao. escreveu:
    Então sua situação não é repassar e sim cadastrar na tabela da outra combo.

    Código:
    Dim db As DAO.Database
    Dim sSQL As String

    Set db = CurrentDb
            sSQL = "INSERT INTO Tabela"
            'CAMPOS----------------------------------------
            sSQL = sSQL & "("
            sSQL = sSQL & "  Nome do campo"
     sSQL = sSQL & ")"
            'VALORES -------------------------------------
            sSQL = sSQL & " VALUES"
            sSQL = sSQL & "("
            sSQL = sSQL & "  '" & Trim(me.nome do campo do formulario & "'"
            sSQL = sSQL & ")"
    db.Execute sSQL
    msgbox"cadastrado"


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2992
    Registrado : 09/04/2012

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  Kaynan 21/4/2023, 15:25

    Quero que quando essa primeira combo estiver com o status por ex.Concluido a outra combo esteja também.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2752
    Registrado : 23/01/2018

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  crysostomo 21/4/2023, 15:27

    Essa aí N4


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2992
    Registrado : 09/04/2012

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  Kaynan 21/4/2023, 16:00

    Dim db As DAO.Database
    Dim sSQL As String
    sSQL = "INSERT INTO TB_ORDSERV_EQUIP"
    'CAMPOS----------------------------------------
    sSQL = sSQL & "id_status_equip"
    sSQL = sSQL & " Status"
    sSQL = sSQL & ")"
    'VALORES -------------------------------------
    sSQL = sSQL & " VALUES"
    sSQL = sSQL & "id_status_equip"
    sSQL = sSQL & " '" & Trim(Me.status & "'")
    sSQL = sSQL & ")"
    db.Execute sSQL
    MsgBox "cadastrado"

    Variavel do bloco wiht não definida.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2752
    Registrado : 23/01/2018

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  crysostomo 21/4/2023, 16:15

    Dim db As DAO.Database
    Dim sSQL As String

    Set db = CurrentDb você não indicou o banco
    sSQL = "INSERT INTO TB_ORDSERV_EQUIP"
    'CAMPOS----------------------------------------
    sSQL = sSQL & "id_status_equip"
    sSQL = sSQL & " Status"
    sSQL = sSQL & ")"
    'VALORES -------------------------------------
    sSQL = sSQL & " VALUES"
    sSQL = sSQL & "id_status_equip"
    sSQL = sSQL & " '" & Trim(Me.status & "'")
    sSQL = sSQL & ")"
    db.Execute sSQL
    MsgBox "cadastrado"


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2992
    Registrado : 09/04/2012

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  Kaynan 21/4/2023, 17:14

    db.Execute sSQL

    Erro de sintaxe na instrução INSERT INTO
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2752
    Registrado : 23/01/2018

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  crysostomo 21/4/2023, 19:30

    Dim db As DAO.Database
    Dim sSQL As String
    Set db = CurrentDb
    sSQL = "INSERT INTO TB_ORDSERV_EQUIP"
    'CAMPOS----------------------------------------
    sSQL = sSQL & "("
    sSQL = sSQL & "id_status_equip"
    sSQL = sSQL & " Status"
    sSQL = sSQL & ")"
    'VALORES -------------------------------------
    sSQL = sSQL & " VALUES"
    sSQL = sSQL & "id_status_equip"
    sSQL = sSQL & " '" & Trim(Me.status & "'")
    sSQL = sSQL & ")"
    db.Execute sSQL
    MsgBox "cadastrado"

    ref. msg N4
    Se der errado aí deixe seu anexo.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2992
    Registrado : 09/04/2012

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  Kaynan 21/4/2023, 21:03

    Veja ai Crys,parece que o campo da combo equipamento e tipo numero,mas mesmo colocando numero na tabela não vai.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2752
    Registrado : 23/01/2018

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  crysostomo 21/4/2023, 21:14

    Isso porque já está relacionadas.
    os tipos do campos tem quue ser iguais
    Número para número texto para texto.
    Sua combo é texto então o campo que vai receber tem que ser tipo texto.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2992
    Registrado : 09/04/2012

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  Kaynan 21/4/2023, 21:54

    Neste exemplo ai,coloquei como texto as duas tabelas e deixei igual as chave primarias mas não vai,esperimente fazer nesse exemplo aí.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2752
    Registrado : 23/01/2018

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  crysostomo 22/4/2023, 01:53

    Boa noite.
    Colega, meio estranho, mas vou ficar acompanhando seu projeto.
    Mas o código para ele é

    Dim db As DAO.Database
    Dim sSQL As String
    Set db = CurrentDb
    sSQL = "INSERT INTO TB_ORDSERV_EQUIP"
    'CAMPOS----------------------------------------
    sSQL = sSQL & "("
    sSQL = sSQL & " id_status_equip "
    sSQL = sSQL & ")"
    'VALORES -------------------------------------
    sSQL = sSQL & " VALUES"
    sSQL = sSQL & "("
    sSQL = sSQL & "'" & Trim(Me.Status.Column(0)) & "'"
    sSQL = sSQL & ")"
    db.Execute sSQL
    Me.Requery
    MsgBox "cadastrado"


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2992
    Registrado : 09/04/2012

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  Kaynan 22/4/2023, 03:18

    Valeu Crys,vou modificar algumas coisas aqui,e esse teu código vai servir pra outra lida,ja esta servindo.
    Muito obrigado.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2752
    Registrado : 23/01/2018

    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  crysostomo 22/4/2023, 13:22

    Que bim. Vle prelo retorno.
    Sucesso


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]Dados de combo pra combo Empty Re: [Resolvido]Dados de combo pra combo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 05:42