[Resolvido]Colocar Status em um formulário no Access 2007

Ola pessoal, sou novato no Access, e queria tirar algumas duvidas:

Eu criei um bando de dados para impressão de ordem de compra, no meu formulário eu coloquei um campo com o nome de Status, onde eu coloco se a ordem foi Emitida, Faturada ou Paga, a minha duvida é, tem como o Access colocar o status de emitida automaticamente toda vem que eu criar uma nova ordem de compra.

Eu criei também outro formulário onde eu lanço os dados da nota fiscal quando ela é emitida, e nesse formulário eu criei nele um sub formulário onde eu lanço os dados da ordem de compra automaticamente através de uma caixa de combinação como o seguinte evento: Me.DATA = NºOC.Column(1) e assim por diante, esse esta funcionando corretamente, a minha duvida é, eu queria que quando eu seleciona-se a ordem de compra ele mude o status automaticamente da ordem de compra de emitida para fatura.

Automaticamente quando cria novo, é só você colocar nesse campo o valor por defeito "Emitida"

JPaulo no campo Status eu criei esse evento, só que eu tenho que clicar nele para poder aparecer o nome, é assim mesmo.

Private Sub STATUS_Click()
STATUS = "EMITIDA"
End Sub

Messias, o que o JPaulo quis dizer é definir o valor padrão do campo com o termo desejado. No caso do campo do formulário essa linha está na aba Dados das propriedades do campo. Pode fazê-lo tambem na tabela, aonde acho ainda mais funcional.

Agora deu certo obrigado,

Agora no segunda caso como eu faço, são duas tabelas e formularios diferente:

1ª Ordem de Compra - Resolvido
2ª Despesas - queria que quando eu laça-se o ordem de compra confome descrito na 1ª mensagem ela altera-se o status da primeira de EMITIDA para FATURADA automaticamente, tem como fazer isso.

Os campos estão no mesmo formulário? Se for, basta colocar no evento "Após atualizar" do primeiro para atualizar o outro:

Me.NomeDoOutro = "Valor que quer inserir"

Oi amigo, desculpa a demora estava viajando, são formulários diferente, vou explicar melhor, quando eu digito o NºOC ele preenche automaticamento todos dados da quela OC inclusive o Status que ela está. no campo Status tem uma caixa de combinação onde eu altero o Status da Ordem, só que eu queria que quando eu alterace esse status eu queria que ele automaticamento auterasse o status no outro formulário também que se chama Ordem de Compa, cada formuário tem sua tabela e não foi criado nenhum relacionamentos entre elas.

Coloquei o Modelo do meu formulário, agradeço muito se alguem poder mim ajudar.

Você quer alterar apenas no momento ou toda vez que abrir esse segundo formulário deve estar alterado? Se for apenas no momento, o segundo formulário precisa estar aberto tambem e você pode fazer assim:

Forms!NomeOutroForm!NomeCampoOutroForm = Me.NomeCampoFormAtual

Se for para o segundo form abrir alterado todas as vezes, você pode colocar algo assim no evento "Ao carregar" desse segundo form:

Me.NomeCampo = DLookup("NomeCampo", "NomeTabela", "Código=" & Me.Código)

Deves tentar adaptar o DLookup à sua situação. Se for o caso, talvez usando um If.

Eu quero que alterar apenas quando eu trotar o status no sub formuário de despesas, eu tentei as duas função ele fica dando uma mensagem de erro: O Fichas de Reclusos não pode localizar o formulário 'CADASTRO_ORDEM_DE_COMPRA' referido em uma expressão de macro ou no código de Visual Basic

Eu colequei no campo Status no Sub Formulario de Despesas desta forma:

Private Sub STATUS_Click()
Forms!CADASTRO_ORDEM_DE_COMPRA!STATUS = Me.STATUS
End Sub

na segunda opção eu colei desta forma:

Private Sub STATUS_Click()
Me.STATUS = DLookup("STATUS", "CADASTRO_ORDEM_DE_COMPRA", "Código=" & Me.Código)
End Sub

aparece a mesma mesagem dizendo que a tabela não foi localizada.

No caso do formulário, ele precisa estar aberto para funcionar. Verifique se colocou o nome correto do formulário ou da tabela no segundo caso.

Amigo no primeiro casa funcionou só tive que trocar o nome do meu formulário, ficou assim:

Private Sub STATUS_Click()
Forms!CADASTROORDEMDECOMPRA!STATUS = Me.STATUS
End Sub

só tem um problema eu não queria ter que abrir os dois formulários para essa função funcionar, eu só queria abrir o formulário despesas.

no segunda caso fiz a mesma coisa troquei o nome do formulário, só que quando eu vou tracar o status ele não funciona e não aceita a minha opção só fica aparecendo o nome emitida e não aceita alteração.

Private Sub STATUS_Click()
Me.STATUS = DLookup("STATUS", "CADASTROORDEMDECOMPRA", "Código=" & Me.Código)
End Sub

Bom dia, para facilitar o meu problema eu criei uma consulta (DESPESASFINANCEIRA)e coloquie no campo STATUS em critérios "EMITIDA" para ele mim mostrar só as ordem emitidas, depois no meu sub formulario de DESPESAS coloquei os seguintes eventos:

Antes de Atualizar:
Private Sub STATUS_BeforeUpdate(Cancel As Integer)
DoCmd.OpenForm "DESPESASFINANCEIRA"
End Sub

Ao clicar:
Private Sub STATUS_Click()
Forms!DESPESASFINANCEIRA!STATUS = Me.STATUS
End Sub

até ai tudo bem, ele esta abrindo automaticamento sem eu precisar de abrir os dois formularios ao mesmo tempo.

No formulário DESPESASFINANCEIRA eu coloquei os segintes eventos:

No Time:
Private Sub Form_Timer()
DoCmd.Close
End Sub

Intervalo do Cornômetro:
3000 que equivaler a 3 segundos

até aqui tudo perfeito

Só que tem um problema, quando eu clico no número da ordem que eu quero na minha lista de combinação no NºOC eu escolho uma OC Exemplo: a 10, e altero o status dela para FATURADA, só que no meu formulário de DESPESASFINANCEIRA ele esta alterando a nº 1 e não a 10 (ele esta alterando a primeira ordem que abri no meu formulário DESPESASFINANCEIRA)como eu fasso para corrigir esse erro.

Ok Pessoal, meu problema já foi resolvido, muito obrigado pela ajuda.

Grato pelo retorno. O fórum agradece.