Gil Kléber

Olá pessoal... Estou com um sisteminha pronto para controle de vendas no balcão e um estoque simples, o proprietário do estabelecimento me pediu pra emitir nota fiscal paulista e imprimir o cupom naquela impressorinha... Gostaria de uma orientação de como fazer, se é simples, quais os custos... Vocês poderiam me ajudar? Obrigado! Abraços....

não sei fazer isso.. poderia me dar um exemplo, uma prévia?

Olá pessoal! Estou tentando fazer com que, em um lançamento de controle de caixa, após preencher os dados do pagamento, especificar qual o cartão de crédito da venda, e o numero de parcelas, o sisteminha armazene esse dados em uma outra tabela, para que eu possa controlar o recebimento de cada parcela por parte da administradora do cartão. O problema está para gerar as parcelas dando uma sequência de data de crédito respectivas. Por exemplo, na caixa de texto tipo, a coluna 3 armazena o prazo (depois de quantos dias receberei a primeira parcela, por parte da adm). Ex.: Visa Crédito - 31 dias Visa Débito - 1 dia Mas por exemplo, se eu fizer uma venda em 4 vezes, no crédito.. receberei da seguinte forma 1- dataVenda + 31 dias 2- dataVenda + 61 dias 3 - dataVenda + 91 dias 4 - dataVenda + 121 dias tipo, pra cada parcela aumentam 30 dias Como fazer isso no código? Acredito que seja por meio de um looping e uma variável, mas infelizmente não consegui passar daqui. Eis o código.. abraços a todos! For I = 1 To Me.txtNumParcelas rs.AddNew rs("idLivroCaixa") = Me.idLivroCaixa rs("Parcela") = I & "/" & Me.txtNumParcelas rs("VlBruto") = Me.Valor_LC / Me.txtNumParcelas rs("VlLiquido") = (Me.Valor_LC * Me.Tipo.Column(2)) / Me.txtNumParcelas rs("Paciente") = Me.Discriminação rs("Cartão") = Me.Tipo.Column(1) rs("Titular") = Me.titularCheque rs("dtCredito") = Me.Data + Me.Tipo.Column(3) rs("dtVenda") = Me.Data rs.Update Next

Cara, pra falar a real, eu não tenho noção de como fazer isso. você pode me indicar um site, um tutorial, ou algo do gênero? Obrigado!

Hum... acho que entendi. E você sabe onde eu poderia obter essas informações?

Opa! porque nesse caso, ele tem a opção de SAIR salvado o registro, SAIR sem salvar e NÃO sair.. Ainda acha que pode ficar melhor? Obrigado!

Olá pessoal!! Me deparei com uma necessidade que me deixou com os cabelos em pé! É possível manter o BE do banco de dados em um disco virtual ou algo parecido, para que possa ser acessado por Front-ends, de qualquer lugar? Sei que não deve ser nada fácil, mas... Abraços a todos!!!

Olá pessoal!!! É o seguinte... tenho um formulário de pedidos, que, quando clico no botão fechar, ele verifica alguns parâmetros e dependendo da resposta da MSGBOX, ele admite algumas ações. :vbYes = ... :vbNo= ... : vbCancel = Ele cancela o fechamento do formulário. Como fazer isso? Eis o famigerado código: Private Sub Form_Close() If Me.FinalizarVerificar = 1 Then If CurrentProject.AllForms("frmPedidoVizual").IsLoaded Then Forms![frmPedidoVizual]![frmPedidoDetalheVizual].Form.Requery End If Else Dim resultado As VbMsgBoxResult resultado = MsgBox("Deseja finalizar o pedido?", vbYesNoCancel, "Confirmar Saída") If resultado = vbYes Then Cancel = True Call cmdFinalizar_Click 'Chama todo o procedimento incluído no botão FINALIZAR ElseIf resultado = vbNo Then DoCmd.Close ElseIf resultado = vbCancel Then Cancel = True End If End If End Sub já tentei com docmd.cancelEvent e também não funcionou.. ele continua fechando o formulário. alguém tem uma idéia do que pode estar acontecendo? Abraços a todos!!! End Sub

Ola pessoal. Tenho uma consulta com a seguinte estrutura: INSERT INTO niverMes ( Nascimento, nomeCompleto, Endereço, Endereço2, CEP ) SELECT Informaçõesgerais.Nascimento, [primeiroNome] & " " & [sobrenome2] AS nomeCompleto, [endRes] & " - " & [bairroRes] AS Endereço, [CidadeRes] & " - " & [uFRes] AS Endereço2, Informaçõesgerais.CepRes FROM Informaçõesgerais WHERE ((([endRes] & " - " & [bairroRes])<>" - ") AND ((Informaçõesgerais.CepRes)<>"") AND ((Informaçõesgerais.Situa)="12" Or (Informaçõesgerais.Situa)="13" Or (Informaçõesgerais.Situa)="14" Or (Informaçõesgerais.Situa)="15") AND ((Month([nascimento]))=Month(Date()))) ORDER BY Day([nascimento]); Gostaria de remover os espaços em brancos que às vezes aparece no campo [CidadeRes], na propria consulta. Tem como? O problema é que muitas vezes, ao invés de me retonar assim: São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. às vezes, dependendo de como foi inserido o Dado no programa que possui a base de dados em MDB, aparece assim São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. São Paulo - S.P. Como estou aproveitando os dados do MDB pra preparar uma mala direta, vai me estragar as etiquetas.... Sabem me ajudar? Abraços!!!

Consegui colocar pra funcionar assim, no evento AO ABRIR If IsNull(Me.txtSubtotal) Or Me.txtSubtotal = 0 Then msgbox "Não há registros de pagamento para esse paciente no período selecionado" Cancel = True End If Obrigado MESMO pela ajuda!!

Cara.. parece bincadeira.. mas o seu está igual ao meu e não fnciona. Ele NÃO FECHA!!! O seu fechou.. o meu não... olha o código como está: Private Sub Form_Load() Me.txtSubtotal = Nz(DSum("valor_LC", "LivroCaixa_Consulta_Entrada_PorPaciente"), 0) If IsNull(Me.txtSubtotal) Or Me.txtSubtotal = 0 Then msgbox "Não há registros de pagamento para esse paciente no período selecionado" DoCmd.Close acForm, "Form_LivroCaixa_EntradaPorPaciente" End If End Sub Um form dentro do outro, o sub como folha de dados, exatamente como você fez...

já tentei isso, e nada.. Acho que tem a ver com Um form dentro do outro...

Olá pessoal! Bom dia!! Tenho um form principal que tem apenas um campo TOTAL, que é uma soma dos campos VALOR_LC de um subformulário folha de dados que está inserido no mesmo. Não sei se fui claro Tenho um subform, folha de dados, que mostra todos os pagamentos do período selecionado. Este sub está inserido em outro Form, que só tem um campo TOTAL, que recupera a soma do campo VALOR_LC do sub. Agora fui mais claro Eu queria fazer algo que se não tivesse nenhum pagamento no período selecionado, ou se o valor=0,00 ele mostrasse uma mensagem "NÃO HÁ PAGAMENTOS" e FECHASSE automaticamente o form principal Consigo fazer as verificações (se vazio ou = 0,00) mas não consigo colocar pra fechar NEM A PAU! alguém me ajuda?? Abraços a todos!!!

baixe um progaminha chamado SaveAsPDF, http://www.microsoft.com/download/en/detai...=en&id=9943 depois, faça um botão no seu formulário e cole o seguinte código no evento AO CLICAR DoCmd.SendObject acSendReport, "como_ficará_o_nome_do_PDF", "pdf", "email_destino", "email_remetente", , "Assunto do email", "Corpo da mensagem" Espero ter ajudado

Olá pessoa.. bom dia! Essa mensagem começou a a aparecer apenas quando eu abro o Access 2007: there was a problem sending the command to the program Procurei na internet e vi referencias a esse erro no Excel, e do Access achei um post falando pra fazer alteração no Registro, algo relacionado com a chave .MDB, mas as opções lá dentro não batem com as do post. Acho que é de versão diferente.... alguém sabe como resolver? Abraços a todos e um ótimo dia!

Perfeito! Mais uma vez o amigo me ajudando aqui! Forte abraço!!!

Olá pessoal! Tentei utilizar o seguinte código pra fazer o seguinte: -Verificar se é o primeiro dia do mês, se for, abre a tabela FechamentoLivroCaixa_Saldos, localiza o registro equivalente a data de pesquisa -1 (se abro a data 01/04, ele olha o saldo da data 31/03 e ZERA). Fica dando erro dizendo que não existe registro atual... o que eu posso estar fazendo errado? If Day(Forms![rel_Fechamento]![dataFechamentoA]) = 1 Then Dim db As Database, rs As Recordset Dim dataPesquisa As Date dataPesquisa = Forms![rel_Fechamento]![dataFechamentoA] - 1 Set db = CurrentDb() Set rs = db.OpenRecordset("SELECT * FROM fechamentoLivroCaixa_Saldos WHERE dataFechamento =" & dataPesquisa & "") rs.Edit rs("saldoTotal") = 0 rs.Update rs.Close db.Close End If Abraços a todos!!!

Sim Sim.. eu digito o primeiro cheque, daí só adiciona automaticamente os seguintes... Hum... agora eu vi.. quando fiz o teste com S3-0000127 deu S-30000128 :o( Vou colocar seu código aqui e rodar os testes.. Te falo os resultados logo logo... Abraço!!!

opa Iceguy.. eu fiz o teste com o numero 12342 e ficou assim: 12342 - 24/03 (digitado por mim) 12342 - 24/04 (ele repetiu o codigo) 12343 - .... 12344 - .... consegui um código que funcionou perfeitamente. são 2 funções. Uma que extrai as letras e uma que extrai os numeros. Depois o form faz a junção.. aqui está: Public Function ExtraiNumeros(ByVal sString As String) As String 'By JPaulo ® Maximo Access Dim i As Integer For i = 1 To Len(sString) If Mid(sString, i, 1) Like "[0-9]" Then ExtraiNumeros = ExtraiNumeros + Mid(sString, i, 1) End If Next i End Function Public Function ExtraiLetras(ByVal sString As String) As String 'By JPaulo ® Maximo Access Dim i As Integer For i = 1 To Len(sString) If Mid(sString, i, 1) Like "[a-z-]" Then ExtraiLetras = ExtraiLetras + Mid(sString, i, 1) End If Next i End Function Private Sub cmdMultiplicar_Click() Dim db As Database, rs As Recordset Dim i As Long ' Dim nCheque As String Set db = CurrentDb() Set rs = db.OpenRecordset("tblLivroCaixa") y = ExtraiLetras(Me.numeroCheque) x = ExtraiNumeros(Me.numeroCheque) For i = 1 To Me.txtNumParcelas - 1 rs.AddNew rs("idDentista") = Me.Dentista rs("idTipoPagamento") = Me.Tipo rs("data") = Me.Data rs("valor_LC") = Me.Valor_LC rs("discriminação") = Me.Discriminação rs("entrada_saida") = "Entrada" rs("bancoCheque") = Me.bancoCheque rs("titularCheque") = Me.titularCheque rs("dataCheque") = DateAdd("m", i, Me.dataCheque) 'rs("numeroCheque") = Left(Me.numeroCheque, 3) & "000" & Right(Me.numeroCheque, 6) + i rs("numeroCheque") = y & x + i rs.Update Next rs.Close db.Close msgbox "As parcelas de pagamento em cheque foram multiplicadas com sucesso!" Me.txtNumParcelas.Visible = fase Me.saidaSaldo.SetFocus Me.cmdMultiplicar.Visible = False End Sub grande abraço Iceguy! Obrigado pela ajuda!

Iceguy, obrigado pela ajuda. Eu tentei entender o código e desisti.. rsrs muito avançado pra mim. No entanto, segui as suas instruções (suponho que fiz tudo certo) e não funcionou. No caso do cheque numero AA-000167 temos 2 problemas: 1- No caso de 3 cheques, a numeração deveria ser: - 22/03/2011 - AA-000167 - 22/04/2011 - AA-000168 - 22/05/2011 - AA-000169 Ficou assim: - 22/03/2011 - AA-000167 (esse é o que eu digito) - 22/04/2011 - AA-000168 - 22/05/2011 - AA-000167 (repetiu) No caso do cheque numero 000165 (sem nenhuma letra) ele repete o MESMO numero pra todos os cheques. Como não tem como prever como será o numero de cheques, teria que ser algo que, não sei, de repente "extraisse" do numero apenas os caracteres NUMERICOS e somasse com a quantidade de parcelas de cheques, um a um... Concorda comigo?

Olá!!! Bom, pra finalizar o meu DBzinho de controle de Livro Caixa, resolvi adicionar um código que automatiza o preenchimento de parcelas pagas em cheques. Tipo, paciente pagou com 10 cheques, eu preencho os campos relativos ao pagamento do primeiro cheque, informo o numero de parcelas e ele adiciona os registros em minha tabela com os campos dos cheques atualizados. O probleminha que estou encontrando é referente ao NUMERO do cheque. Que no meu caso, é um campo TEXTO, já que tem cheque que tem NUMERO começando por letras, ex: AA-000165. Como eu faço pra que ele "aproveite" a parte numérica que compõe o número e altere de acordo com o numero de parcelas? Com detalhes: Eu PREENCHO manualmente os dados da primeira folha: TITULAR: João da Silva BANCO: Real VALOR: 560,00 Número do Cheque: AA-000165 Qtd. Parcelas: 10 Quando clicar no botão ADICIONAR CHEQUES ele abre minha BD, e adiciona os registros de 9 CHEQUES (já que o primeiro eu já adicionei na mão) e os numero fiquem: AA-000166, AA-000167 ... AA-000174? abaixo está o código que estou usando: Dim db As Database, rs As Recordset Dim I As Long Set db = CurrentDb() Set rs = db.OpenRecordset("tblLivroCaixa") For I = 1 To Me.txtNumParcelas - 1 rs.AddNew rs("idDentista") = Me.Dentista rs("idTipoPagamento") = Me.Tipo rs("data") = Me.Data rs("valor_LC") = Me.Valor_LC rs("discriminação") = Me.Discriminação rs("entrada_saida") = "Entrada" rs("bancoCheque") = Me.bancoCheque rs("titularCheque") = Me.titularCheque rs("dataCheque") = DateAdd("m", I, Me.dataCheque) rs("numeroCheque") = rs.Update Next rs.Close db.Close qualquer ajuda é bem-vinda! Abraços pessoal!

Resolvido pessoal! Com um dia de um amigo de outro Fórum, consegui deixar o código da seguinte forma! Como eu seleciono o cheque direto da caixa de listagem, olha o que eu fiz! Dim db As Database, rs As Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("SELECT * FROM tbPagtosCheque WHERE idCheque=" & Forms![frmLivroCaixa]![cbListaCheques].Column(0) & "") rs.Edit rs("repassado") = True rs("destinoCheque") = Forms![frmLivroCaixa]![Discriminação] rs("dataRepasse") = Date rs.Update rs.Close db.Close Funcionou perfeitamente! Muito obrigado a todos !!!

Deu o seguinte erro: Depois de selecionar um cheque na lista da caixa de seleção, apareceu o seguinte erro: erro em tempo de execução '3061' poucos parâmetros. 1 esperado Clicando em depurar, ele deixa a linha db.Execute (sqlstr) em evidencia Agora, olhando o código, me bateu uma dúvida: porque o idCheque=1? não deveria ser algo como idcheque=Forms![frmLivroCaixa]![caixaDElistagem].collumn(1) ? Não quero dar uma de sabido, logico, mas fiquei com essa dúvida.. e desde já agradeço a ajuda! abraço!!! tomei a liberdade de tentar como: Dim db As Database Dim sqlstr As String Set db = CurrentDb() sqlstr = "UPDATE tbPagtosCheque SET repassado = TRUE, datarepasse = #" & Format(Now(), "mm/dd/yyyy") & _ "#, destino = '" & Forms![frmLivroCaixa]![Detalhes] & "' WHERE idCheque = " & Forms![frmLivroCaixa]![cbListaCheques].Column(0) db.Execute (sqlstr) db.Close Set db = Nothing *na origem de dados da caixa de listagem, a coluna IDCHEQUE é a primeira tomei a liberdade de tentar como: Dim db As Database Dim sqlstr As String Set db = CurrentDb() sqlstr = "UPDATE tbPagtosCheque SET repassado = TRUE, datarepasse = #" & Format(Now(), "mm/dd/yyyy") & _ "#, destino = '" & Forms![frmLivroCaixa]![Detalhes] & "' WHERE idCheque = " & Forms![frmLivroCaixa]![cbListaCheques].Column(0) db.Execute (sqlstr) db.Close Set db = Nothing *na origem de dados da caixa de listagem, a coluna IDCHEQUE é a primeira e ele retorna o mesmo erro... :(

Oi pessoal. Depois de um carnaval tranquilo, numa quarta de ressaca básica, eis que me vejo na seguinte situação: tabela LIVRO_CAIXA que armazena o movimento de entrada e saida de dinheiro tabela tbPagtosCheque que armazena apenas os dados de pagamentos feitos em cheques formulário LIVRO CAIXA que faz a entrada de dados com os campos básicos (nome, data, valor.. tipo=(dinheiro, cheque, cartão) quando feito em cheque, abre um pop up pra entrarmos com os dados do cheque. e Salva As vezes, efetuamos pagamentos com um cheque de paciente (repassamos o cheque pra terceiros) então, na tbPagtosCheque tem os campos (REPASSADO (SIM/NÃO), DATAREPASSE (data), DESTINO (texto, 255). Quando o lancamento é detectado como SAÍDA, e a forma de saída= CHEQUE, aparece uma caixa de listagem, baseada na tabela TbpagtosCheque mostrando disponivel os dados de todos os cheques que temos disponiveis (REPASSADOS=NÃO). Ok, atualizo os campos que eu quero, automaticamente com o códigozinho me.meucampo1=me.comboLista.Collumn(x) no formulário e beleza. Aí é que está. Cada pagamento em cheque tem seu código idCheque. Cada lançamento no livro caixa tb tem seu código idLivroCaixa, e as tabelas estão devidamente relacionadas. Eu gostaria que, quando eu escolhesse um cheque na lista, ele automaticamente ATUALIZASSE na tabela TBCHEQUES os campos REPASSADO=SIM, DATAREPASSE=DATA ATUAL, e DESTINO="o nome descrito no campo DETALHES no formX". tentei utilizar o seguinte código: Dim db As Database, rs As Recordset Set db = CurrentDb() Set rs = db.OpenRecordset("tbPagtosCheque") rs.Edit rs("repassado") = True rs("destinoCheque") = Forms![frmLivroCaixa]![Detalhes] rs("dataRepasse") = Date rs.Update rs.Close db.Close mas me bato na questão de: como fazer pra atualizar esses dados no registro, na tabela TBCHEQUES, APENAS no cheque com IDCHEQUE = ao cheque que selecionei na caixa de listagem? Espero ter sido claro o bastante.. e que alguém possa me ajudar! abraços a todos!!!

ehehehe BOA!