[Resolvido]Dados de combo pra combo

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.

Bom dia.

Código:

docmd.openform"frmCadEquipamentos" abre para receber
Forms!frmCadEquipamentos!id_status_equip= Forms!frmCadManutencao!Status .Text

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.

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"


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

Essa aí N4

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.

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"

db.Execute sSQL

Erro de sintaxe na instrução INSERT INTO

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.

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

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.

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

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"

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

Que bim. Vle prelo retorno.
Sucesso