anabon

Ata... obrigada Kuroi, entendi sim... tenho algo parecido antes dessa tabela tenho a tabela venda principal, que tem exatamente os campos que você m dissi..... Mas vou fazer como você m informou... parece melhor assim... E o que eu qro dizer com não gravar o numero não é não gravar o numero em todas as vendas e sim gravar o numero so uma x... Porque eu sempre fiz assim, so q agora qro inclementar e assim gravando o n° da venda em todas as linhas to achando dificudade para excluir a venda.. Entende? Por exemplo se o usuario lançou 2 itens na venda n° 45... quando mostro no programa para excluir essa venda ele aparece por exemplo : Oque eu qria fazer é q esse n°45 só aparece uma x só para não confundi o cliente..... :wacko: Só aproveitando o gancho das tabelas.... gosto de separar os lançamenttos, dinheiro, cheque, cartão de credito, fiz uma tabela separada para cada um com os seguintes campos(data_venda, hora_venda, total, total_dia (esse ultimo soma todo o movimento daquele dia) Ta certo assim? Muito obrigada Forte Abraço!!!!

Olá pessoal boa tarde.... Tenho uma tabela (acess 2003) com os seguintes campos, (n° venda, dat_venda, Cliente, descrição, preço e etc...) enfim gostaria de q quando eu salva se os dados de uma determinada venda fosse salvo uma x só o campo n° venda e cliente. Tipo assim: n venda Cliente Descrição preço 45 Ana Calça Jeans 50,00 Mamadeira 10,00 Bolsa 40,00 ________________________________________________ n venda Cliente Descrição preço 46 Ana Calça Jeans 50,00 ________________________________________________ e assim por diante...... o codigo que estou usando (vb6) salva.. so que salva todos juntos assim: n venda Cliente Descrição preço 45 Ana Calça Jeans 50,00 45 Ana Mamadeira 10,00 45 Ana Bolsa 40,00 ________________________________________________ Já tentei colocar a chave primaria no campo n° cliente mas não deu certo... o codigo que estou usando é: If txtformapg.Text = "DINHEIRO/CARTÃO DEBITO" Then rs2.Open "dinheiro where n°venda", con, adOpenKeyset, adLockOptimistic With rs2 For I = 1 To Key .AddNew .Fields("n°venda") = Me.Label3.Caption .Fields("data_venda") = Me.lbldate .Fields("hora_venda") = Me.lbltime .Fields("cliente") = Me.txtcliente .Fields("descrição") = Me.grdvendas.TextMatrix(I, 1) .Fields("preço_un") = Me.grdvendas.TextMatrix(I, 3) .Fields("quantidade") = Me.grdvendas.TextMatrix(I, 2) .Fields("preço_total") = Me.grdvendas.TextMatrix(I, 4) .Fields("total") = Me.txtapagar .Fields("totaldia") = Me.txtapagar .Fields("totaldia") = .Fields("totaldia") + CDbl(txttotaldinehiro) .Update 'Next I .Close 'End With Set rs2 = Nothing Set con = Nothing End If Já tentei colocar assim a pos a linha q salva o n° venda If (RS.RecordCount = 0) Then Else RS.MoveLast Mas não deu certo...... Será q alguém pode m ajudar? Forte Abraço!!!! :blush:

Amigo muito, muito obrigada pela ajuda!!!! deu certo enfim.... codigo correto: Podem fechar o post ou me fala como fecha ;-) .... é que sou nova por aki!!!!

Obrigada .... Obrigada ... em parte deu certo... porém, não importa se no banco ta sim ou não ele não abre o form .. mudei o codigo para o botão que chamma o form:

Obrigada Kuroi, mas todos esses eu já tentei infelizmente da sempre o mesmo erro .... então mudei o codigo no modulo eu declarei assim: Global codigo_usuario As Integer No botão que chama o forme cliente eu coloquei assim: Só que agora da o erro: "Run-time error'- 2147217904(80040e10) Nenhum valor foi fornecido para um ou mais Parâmetros" Já conferi o banco e o nome da tabela esta certa é login e o campo é codigo_usuario.... infelizmente não to enxergando o erro!!!!! ops essa é a linha que aponta o erro:

Olá boa tarde, pessoal!!!! Estou criando um programa em vb6 e queria ocultar alguns formulários dependendo do login ... No form de cadastro de novos usuarios coloquei alguns CheckBox, e gostaria de ocutar os form selecionados no CheckBox para aquele usuario... No form de cadastro de novos usuarios eu uso o seguite codigo para salvar num banco acess 2003 Private Sub cmdsalvar_Click() Set con = New ADODB.Connection Set RS = New ADODB.Recordset con.Open (cnSQL) RS.Open "Select * from login", con, adOpenKeyset, adLockOptimistic If txtapelido = "" Then MsgBox "Informe o login do usuário", vbOKOnly, "Campo Vazio" Exit Sub End If If txtsenha = "" Then MsgBox "Informe a senha de acesso", vbOKOnly, "Campo Vazio" Exit Sub End If With RS .AddNew .Fields("apelido") = Me.txtapelido .Fields("senha") = Me.txtsenha .Fields("cadastrocliente").Value = CBool(Check1.Value) .Fields("cadastroprodutos").Value = CBool(Check2.Value) .Fields("cadastrofornecedor").Value = CBool(Check3.Value) .Fields("novousuario").Value = CBool(Check4.Value) .Fields("vendas").Value = CBool(Check5.Value) .Fields("apagar").Value = CBool(Check6.Value) .Fields("areceber").Value = CBool(Check7.Value) .Fields("comprasclientes").Value = CBool(Check8.Value) .Fields("buscarapia").Value = CBool(Check9.Value) .Fields("estoque").Value = CBool(Check10.Value) .Fields("caixa").Value = CBool(Check11.Value) .Update .Close End With MsgBox "Dados salvos com sucesso!!!" Set RS = Nothing Set con = Nothing Unload Me End Sub no form login: Private Sub cmdok_Click() Set RS = New ADODB.Recordset Set con = New ADODB.Connection con.Open (cnSQL) Dim flag As Boolean RS.Open "Select apelido, senha from login", con, adOpenKeyset, adLockOptimistic While RS.EOF <> True If Me.txtapelido = RS!apelido And Me.txtsenha = RS!senha Then flag = True End If RS.MoveNext Wend If flag = True Then Me.Hide frmprincipal.Show Else MsgBox "Usuário ou senha inválidos", vbInformation, "Erro" End If End Sub No banco onde salvo as opções checkbox uso a opção "sim/não" Para verificar já tentei: If RS!cliente.Value Then Else frmcadastro_clientes.Enabled = False frmprincipal.Show End Ife da o seguinte erro: Já tentei de varias formas mas sempre da o mesmo erro.... será que alguém tem alguma dica? ou um exemplo claro q posso utilizar? Desde de já agradeço muito. muito, muito..... Forte Abraço!!!!