[Resolvido]Ordem de serviço Preenchimento automático e finalização

Tenho um banco de "Ordem de Serviço" é o seguinte,preciso de duas funções

1°=quando no formulário "Ordem" eu selecionar o "Cliente que estão na Tabela "Cadastro de Cliente" que os campos Endereço e Telefone seja preenchido automaticamente e lançado na tabela Ordem.
_____________________________________ \\ _______________________________________

2°=Algumas ordens de serviço já entregues preciso finalizar e que seu registro fique bloqueado
e as ordens pendentes fiquem em modo edição.

desde já agradeço.

Item 1:
Bom na sua Caixa de seleção, na propriedade apos atualizar vc coloca esse código: (adapta pros seus campos)

Código:

Private Sub CbCli_AfterUpdate()
Me.Cliente = Me.CbCli.Column(1)
Me.End_Cli = Me.CbCli.Column(2)
End Sub

CbCli é a minha caixa de seleção, que busca o Código e Nome do cliente.
Cliente É o campo que receberá automaticamente o Nome do Cliente (Me.Cliente)
CbCli É a Caixa de pesquisa , Column(1) É a coluna onde esta o nome dos clientes da minha caixa de seleção (Me.CbCli.Column(1).

End_Cli É o campo onde receberá automaticamente o Endereço do cliente.

Para saber em qual coluna estão os dados na sua caixa de pesquisa, ou ate incluir novos campo, clique na propriedade da Caixa de Seleção, va ate a guia "Dados", no Item "Origem da Linha" (tem algo parecido com isso "Select ...), La você clica nos três pontinhos e abrir no design da consulta....


Item2: Da pra fazer assim:


Coloque esse codigo no seu Formulario na Propriedade " No Atual"

Código:

'Ao navegar entre os registros ele mostrar os campos bloqueados caso o Status esteja como "FECHADA"
Private Sub Form_Current()
If Me.Status = "Fechada" Then
Me.Cod.Enabled = False
Me.Status.Enabled = False
    Else
    Me.Cod.Enabled = True
    Me.Status.Enabled = True

End If
End Sub

Satatus É um campo em que eu seleciono tres Opçoes ABERTA, FECHADA e EM PROCESSAMENTO.
Cod e Status São os campos que serão Desabilitados se o valor do campo " Status" for = Fechada. Se nao for eles continuam Habilitados.

Pra atualizar automaticamente quando você Mudar o STATUS, coloque o mesmo Codigo na propriedade do campo "Status" na guia "Apos atualizar":

Código:

''Para Bloquear todos os campos automaticamente ao mudar para Fechada
Private Sub Status_AfterUpdate()
If Me.Status = "FeChada" Then
Me.Cod.Enabled = False
Me.Status.Enabled = False
    Else
    Me.Cod.Enabled = True
    Me.Status.Enabled = True

End If
End Sub

Alem disso ha a necessidade de vc criar um botao 'Alterar" caso digamos que vc precise mudar algo em uma Ordem ja Fechada.

Crie o Botao e coloque o codigo a baixo no Evendo ao Clicar:

Código:

'Liberar os campos Cod e Status para que sejam alterados
Private Sub BtAlterar_Click()
Me.Cod.Enabled = True
Me.Status.Enabled = True
End Sub

BtAlterar è o nome do meu Botão que liberar a edição dos dados no campo Cod e Status que foi bloqueado nas instruções a cima.
Pronto.

So lembrando que nesse Exemplo eu Bloqueei apenas dois campos, dessa forma ha a necessidade de vc incluir todos os campos que desejar bloquear.

Provavelmente ha outras formas...

é fabio tentei de todas as maneiras mas sempre retorna com erro
talvez se eu postar banco de dados fica mais fácil ai você pode me ajudar nos erros.
eu já tenho um formulario "Ordem onde tem um botão finalizar que bloqueia todo formulario
e outro editar que libera todas as funções mas quando navego nos registros
estão todos bloqueados ou todos liberados e é justamente isso que preciso.

e em relação ao preenchimento automático o problema é buscar os dados numa tabela
é inserir em outra.

obrigado pela atenção.

Posta seu BD pra eu Olhar...
Ele nao foi anexado na mensagem a cima.
Quando for carregar nao esquecer de apos procurar o arquivo, clicar em enviar.

Olha como fica colocando o codigo que passei na mensagem anterior.

E ai Fábio to enviando o arquivo desculpe a simplicidade mas é porque não tenho
não muita pratica mas sou persistente,só não consegui deixar uma Ordem de serviço aberta e outra
fechada individualmente.      
Mas com sua ajuda consegui resolver o preenchimento automático dos campos desejados.

Se não conseguir posta aqui no forum, manda no Dropbox.
Porque nao apareceu ainda nao o anexo.

E ai Fábio tudo bem eu ainda não consegui fazer aquela função de quando eu finalizar uma ordem
ela fique fechada enquanto as outras abertas e em andamento desde já agradeço pela ajuda .

Segue corrigido.

Obs: para que funcione corretamente os comandos você tem que armazenar o valor do campo Status na sua tabela.

Add novo campo na sua tabela, e melhorei os comandos. Basta criar o campo na sua tabela e copiar os códigos.

Como vi que você tem muitos campos, para evitar ter que digitar uma a um... Mudei um pouco os comandos
Da forma que está, Qualquer campo que você adicionar nesse Formulário ele irá aparecer desabilitado caso a OS esteja FECHADA.
Nao havendo a necessidade de você colocar campo a campo nos códigos. Basta jogar o campo no Formulário e ele obedecerá como os demais.

Postar os código, caso alguém precise desabilitar muitos campos de um formulário. Essa dica já tem aqui no Fórum.

No evento Atual do formulário

Código:


'Desabilita TODOS os campos do formulario se Status estiver como "Fechada"
If Me.STATUS = "FeChada" Then
Dim ctl As Control
Dim StrName As String

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = ctl.Name
Me(StrName).Enabled = False
End Select
Next ctl
    Else
'SE NÃO TIVER ELE HABILITA TODOS OS CAMPOS

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = ctl.Name
Me(StrName).Enabled = True
End Select
Next ctl
End If
End Sub

No botão editar, no evento ao Clicar coloquei esse:

Código:


Dim ctl As Control
Dim StrName As String

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = ctl.Name
Me(StrName).Enabled = True
End Select
Next ctl
'FIM
End Sub

No campo Status, evento apos atualizar:

Código:

If Me.STATUS = "FeChada" Then
Dim ctl As Control
Dim StrName As String

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = ctl.Name
Me(StrName).Enabled = False
End Select
Next ctl
    Else
'SE NÃO TIVER ELE HABILITA TODOS OS CAMPOS

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = ctl.Name
Me(StrName).Enabled = True
End Select
Next ctl

End If
End Sub

como vai Fábio ficou muito bom mesmo agradeço demais sua ajuda ,mas quando eu seleciono status fechada
ele me retorna o "erro em tempo de axecução '2164', você não poderá desabilia um controle enquanto ele
estiver em foco.
Quando tento mudar alinha " Me(StrName).Enabled = False " , para " Me(StrName).Enabled = True " ai ele não
atua mais.

Muito estranho, pois aqui no meu Office 2013 funciona normalmente... testei todas as condições, novo registro, alteração para todas as opções...

Qual office você esta usando?
Outra coisa, você esta testando com o Banco que eu te mandei? ou em outro BD?

o Fábio me desculpe não te retornar rápido , mas estou usando o office 2007

Bom como deu erro e nao sei se é no BD que te mandei ou se é em outro... Testa dessa forma:

Especificando Campo a Campo.
É o mesmo BD, Porem especifiquei campo a campo que desejo bloquear.... Teste dessa forma.

E posta essa versão que ta dando erro pra eu ver onde esta o problema...

Deu o mesmo erro será que pode se o office que está com zebra

Provavelmente amigo, pois ambos funcionam perfeitamente aqui comigo...

Baixa office 2010 ou 2013 e testa. faça teste em outra maquina se não quiser mudar da sua.

Opte pela versão que bloqueia tudo, sem precisar digitar campo a campo. vai lhe poupar trabalho...

Testei aqui e realme e coisa do office 2007.
Caso nao queira mudar de Office facaa asim:
Pegue essa ultima versao que postei, no modo Designer no campo Status, evento apos atualizar...

Comenta a linha: Me.Satatus.Enabled = False


Somente nesse local. Mudara pouca coisa...

Ficou  dez eu agradeço desde já pela força e compreensão esse forum é ACCESSelente só fera

valeu Fábio muio obrigado.

Está no ponto

Esta resolvido