[Resolvido]Modificar um campo para colocar cambobox (forma de pagamento)

Boa Tarde amigos

Estou tentando modificar o meu form de vendas

para adicionar uma combobox para chamar as formas de pagamentos

quero remover a atual que eu caixa de texto (Onde digito a forma de pagamento)
e adcionar a nova!!

Essa parte eu coseguie!!!

Mas meu outros form relacionados noa coseguie colocar a nova estrutura
sao eles

relatorio
vendas
vendas colsulta

formularios
frm1

Entao fiquei perdido para fazer as modificaçoes

Não entendi bem a questão. Poderia explicar em outras palavras?

Pelo que entendi ele colocou uma comBox com lista de valores (pre-definidos)
assim nao precisando digitar a forma de pagto... escolhendo de uma lista da com box...

e pelo que vo não consegue faze o mesmo nos damais forms..

Coloque o form para que os colegas vejam amigo...

Tentarei aqui, pois tenho o seu exemplo..
Ate

Sim tinha um sistema de venda

a forama de pagamento era em campo texto( ou seja tinha que digitar a forma de pagamento)

Então queira modificar essa forma para cambobox (seria mas pratico so escolher e pronto)

Mas vai aterar os outras coisas que antes eram por (campo texto)do form de pagamento

Leam

é simples

Faça uma tabela com os modos de pagamento todos que pretende. DEpois vá na tabela que pretende, por exemplo, Vendas e no campo forma de pagamento aceda à opção "Assistente de Pesquisa". Com a ajuda do assistente copie as formas de pagamento e pronto, estão disponíveis.

sim amigo vieira essa parte eu cosigo fazer

mas tem que subtitui a outra

forma de pagamento (que digito a forma)

o Problema que está relacionados a outras coisas

como relatorios de vendas
relatorios de contas a receber

e isso tentei alterar mas nao da certo

vc s lebra que minha forma de pagamento era campo de texto

Sim, mas se substituir pela combo ligado a uma tabela independente não vejo nenhum problema. Uma tabela independente permite que acrescente mais formas de opagamento se o desejar.

Nas outras tabela em que utilize o mesmo campo, basta fazer uma combo da mesma forma que na tabela vendas.

Ao colocar a combo nos relatórios, clique com o botão direito do mouse sobre a combo e seleccione......alterar para....escolha caixa de texto, pois no relatório é melhor assim.

VAMOS LA LEAM...

Retirei a Forma de Pagamento da Tabela Detalhe Venda...
Coloquei na Tabela Vendas...

ou seja.. A forma de pagamento é por Venda e não por ítem...

No campo da Tabela Venda (FormaPgto) coloquei em propriedades de pesquisa a tbl_Forma Pagamento...

No Form coloquei a ComBox com `Fonte de origem o Campo FormaPagto na Tabela Vendas...
E na Origem da linha a Tabela Forma Pagamento..

Assim quando clicar na COmBox ela mostra o campo na Tabela Forma de Pagamento e os Grava na Tebala Vendas (Da venda Ativa do Form)


Fiz alteracoes no Subformulario1

1 - Coloquei como continuo
2 - Coloquei um Botao para ecluir por item, caso queira apagar algum item...
3 - na COMBOX do Codigo do Produto.. coloquei Fundo amarelo e reajustei os tamnos das colunas..

Fiz demais alteracoes que pediu..

No botão Fechar no form esta sem o codigo, o coloquei.. DoCmd.Close

Veja e de o retorno para o Forum

LINK: http://dl.dropbox.com/u/26441349/BD_Diego%28Leam%29.zip

Caro Leam... no DetalheVenda Subformulario1...
No envento Após Atualizar da COMBO "CodProduto.." faça a seguinte alteração..

Private Sub CodProduto_AfterUpdate()
On Error GoTo Err_CodProduto_AfterUpdate
Me.CodProduto.Requery
Me.DescriçãodoProduto = Me.CodProduto.Column(2)
Me.PreçoVenda = Me.CodProduto.Column(3)
Me.Quant = 1
Me.Quant.Enabled = True
Me.Quant.SetFocus
Me.Refresh
Exit_CodProduto_AfterUpdate:
Exit Sub
Err_CodProduto_AfterUpdate:
MsgBox Err.Description, vbCritical, "Erro Indeterminado"
Resume Exit_CodProduto_AfterUpdate
End Sub


Acrescente essa linha que está de Azul..

Assim quando atualizar a linha ela atualiza o valor total da venda...

Saudações

Muito bom amigo!!!

Conferie aqui as cambobox tudo certo

So tem algumas coisas devidos as mudanças nao abrem

Esses
Os relatorios
vendas
vendas colsulta 4

os demais todo certinho cara

resolvido

verei sobre os relatorios

Ate mais

Novamente LEAM

Com os relatorios corrigidos..
Fiz a Logo novamente... Apenas o texo da satisfação esta com a fonte um pouco diferente, pois nao tinha no momento essa fonte instalada... tenho em CD outra hora procuro e refaço com a fonte certa..

Fiz uma barra com a logo para que possa aplicar onde desejar...
coloquei essa barra nos relatorios veja se gosta...

NOVO LINK: http://dl.dropbox.com/u/26441349/BD_Diego.zip

Caro LEAM

Substitua o código do Botão EXCLUIR no DetalheVenda Subformulario 1
por este:

Private Sub Excluir_Click()
Dim apaga As Integer
Dim msg
On Error GoTo Err_Excluir_Click
DoCmd.SetWarnings False

apaga = MsgBox("Deseja excluir este ítem? Depois de excluir não será possível desfazer a ação !!!", vbYesNo + vbQuestion, "Excluir")
Select Case apaga
Case vbYes
DoCmd.RunCommand acCmdDeleteRecord
Case vbNo
End Select
Me.Refresh

Exit_Err_Excluir_Click:
Exit Sub
Err_Excluir_Click:
msg = MsgBox("Não se pode excluir um registro ainda inexistente !!!", vbOKOnly + vbQuestion, "Atencão")
Resume Exit_Err_Excluir_Click

End Sub


Fiz essa alteração para que se inadivertidamente o usuario for excluir um registro inexistente (o último botao no subformulario), o sistema não de erro de execução...

Teste ai.. tente clicar no ultimo botao.. onde nao há item ainda..

Saudações

vou olhar agora

Analizei bem aqui

ficou bom d+ (diferente)

vendas ta dando certinho

Eu quero que voçe confira um coisa para mim ai

no Form1

coloca a data inical e a final
escolha a forma de pagamento

todas que eu escolher vai ser a mesma
se colocar dinheiro
vai parecer dinheiro
no relatrio vendas colsulta4
dinheiro

se eu colocar cheque vai aprecer(dinehiro) nao sei porque

Talvez não tenha tempo de ver isso hoje...
mas assim que possivel verei

ok por hoje chega

obrigao pela sua boa voltade

gostei dos logos

mas vou colocar em outra

se deichar no de venda .

minha tinta vai embora rapido
rsrsrsrsrs

bom trabalho!!!

Caro amigo hary

eu resolvie o problema que tava dando errado

tinha uma cosulta sem colocar o criterio

vendas consulta 4

ai colquei esse criterio na forma de pagamento

[forms]![frm1]![caixadecobinação20]

Agora abrindo a minha contas certinho

por forma de pagamneto!!!

Eu aconselharia substituir no form 1 a forma como é escolhida a data..
Tem um controle nativo do acces que é mais funcional...

Beleza entao...

qual e esté controle?

onde encontro

Colocou o novo código do botão excluir?
o que te passei ai acima?

sim coloquei

está aprovado

no form1.. onde esta o campo data...
apague aquele controle que abre a data...

a em propriedades em Dados..
retire a mascara de entrada...

ai clique no campo e o calendario abrira automaticamente

Teste ai e de o retrorno

ah eu sei qual eh

um bem feito
tem até opção ir hoje

Era esse mesmo que estava procurando

Serviu enttão?

claro
e mas pratico.

Amigo hary

tem algum codigo para atulizar

para guando abrir minha caixa de venda
mostrar os campos em branco protos para ser prenchidos

No evento ao Abrir do Form:


Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
End Sub

Coloque um Botão SALVAR no seu Form de CaixaVenda

Com o seguinte Código:

Private Sub NomeDoSeuBotao_Click()
Dim MSG

DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec


MSG = MsgBox("Registro salvo com Sucesso!", vbExclamation + vbOKOnly + vbDefaultButton2, "AVISO")


End Sub

Ele salva o registro e vai para um novo....

vou testar esses

Todoas aprovados

bom d+

voçe tem alguma sugestão a maisp ra iserir nesse formulario de caixa vendas?

tem os botoes de avancar e retroceder registros e de excluir o registro principal..

se quiser me envie o seu BF que os coloco e os envio de volta

Boa noite