[Resolvido]liberar subform

Ola pessoal tem como liberar o subform para inserir dados ,somente apos escolher cliente ou seja obriga o usuario a escolher cliente no caixa listagem apos libera o subform como posso fazer isso?

Boa Tarde

Primeiro deve colocar o seu sub Locked=True

Após selecção do cliente, coloque o sub Locked=False

Amigo Vieira poderia me orientar ,nao sei usar esta funçao

Claro Amigo

Neste evento do seu formulário

Private Sub Form_Current()

Me.seusubformulário.Locked = True

No evento da sua combo

Private Sub suacombo_AfterUpdate()

Me.seusubformulário.Locked = False

Bom trabalho

nome do me subform é vendas como ficaria o comando


Me.vendas.Locked = False
me.subvendas.locked=false
qual é o certo

Agora estou confuso, você apresenta dois nomes???

Mas vamos supor que subvendas é o seu subformulário e Vendas o Formulário Principal

Então, no Formulário Principal (Vendas)
no evento FormCurrent() se o seu estiver em PT, será no actual na aba Acontecimento)

Me.subvendas.locked=True

Agora na combo

Private Sub suacombo_AfterUpdate()

Me.subvendas.locked=False

para especificar melhor
form venda
subvendas

Então amigão:

No evento actual do form venda

Vai aparecer assim:
Private FormCurrent()

Me.subvendas.Locked=True

No Evento da combo box
Private Sub suacombo_AfterUpdate()

Me.subvendas.Locked=False

Cole o código a partir daqui....Atenção abri o tópico novamente porque colei mal. agora está certo.

E retorne

amigo vieira fiz como me orientou mas nao funcionou.

minha combo Nomecliente
meu form princioal Vendas
meu sub form subvendas estes são os nomes do forms
fiz assim

Private Sub Form_Current()
Me.subvendas.Locked=True

end sub

Private Sub NomeCliente_AfterUpdate()
Me.subvendas.Locked=False
end sub

Bom Dia

Super estranho

Coloque aqui a sua BD para eu ver ou envie no formato RAR para o meu email. Depois coloco aqui.

sergiovieirasoft@gmail.com

ok vou enviar

Feito envie para seu email

Não chegou nada. Tente colocar aqui também


Enquanto não chega veja este exemplo como o código funciona:

Tente escrever algo no subform e vai verificar que não consegue porque está definido no evento current() como Locked=True

Na combo, seleccione um cliente. Volte ao subform e vai poder alterar o que entender, pois no evento da combo foi definido como Locked=False.

http://dl.dropbox.com/u/8157744/locked.rar

http://www.speedyshare.com/files/25756907/Vendas1.rar

Ok, logo que seja possível retorno.

Aí vai amigo. Fiz só para o subvendas, mas se pretender fazer para os outros é só ver como fiz para este.

Se precisar de mais alguma coisa, contacte e não esqueça de retornar
http://dl.dropbox.com/u/8157744/Vendas1.rar

beleza funcionou direitinho vou estudar o codigo Obrigado

Amigo:

Obrigado pelo retorno, mas se me permite um aparte. Estive a dar uma vista de olhos muito superficial á BD, mas uma coisa chamou atençaõ; Objecto OLE para fotos é errado. A base vai engordar e ficar lenta, cada vez mais lenta. Se pretender alterar esta situação, pode abrir um tópico do Gênero...inserir foto em form e eu trato-lhe disso.

Fecho então este

Obrigado