Iceguy

Troca pelo Ao Entrar, daí funciona click e tab

numa SQL fica tipo isso: SELECT 360 - COUNT(Escolaridade) AS Quantidade FROM Tabela;

Da pra limpar o campo Private Sub DATA_LANCAMENTO_GotFocus() DATA_LANCAMENTO = Null End Sub

Estou querendo fazer um textbox modificado, porém não sei se o VBA trabalha com herança, sobrecarga, coisa do tipo. Alguém aí sabe dizer? E se trabalha, como usar? É que eu estou querendo criar um ColoredTextBox, que herde um TextBox normal mas que nos eventos OnGotFocus mude a cor do fundo para amarelo e a fonte para negrito e vermelho, e no evento OnLostFocus mude a cor do fundo para branco e a fonte normal e preto. Pra facilitar a hora de fazer formulários

Imagino eu que sua consulta seja algo como CREATE TABLE tabelaX( VALOR MONEY, DATA DATETIME, DESCRICAO VARCHAR(255) ); É só inserir o campo na consulta, fica tipo isso CREATE TABLE tabelaX( VALOR MONEY, DATA DATETIME, DESCRICAO VARCHAR(255), ENTRADA_SAIDA BYTE );

Estranho isso... Não faço a mínima idéia do que possa ser, mas tente colocar Me.Repaint If Not check Then texto.Visible = True Else texto.Visible = False End If Me.Repaint

Qual o tipo de dado de origem? vem de uma tabela?

Coloca lá nas propriedades com campo, Formato = Unidade Monetária

Não deu certo como? Ele criou pelo menos o arquivo mas não escreveu nada nele, ou nem criou o arquivo?

Como está seu código? Nos meus testes aqui funcionou

Criei aqui um relatório chamado "Report" com o textbox "Texto0" e um form chamado "main" com o checkbox "Seleção0" e um botão "Comand2" No Botão coloquei: Private Sub Comando2_Click() DoCmd.OpenReport "Report", acViewPreview End Sub No Report coloquei: Private Sub Report_Load() If Form_main.Seleção0 Then Texto0 = "Sim" Else Texto0 = "Não" End If End Sub

If checkBox Then 'Se check é verdadeiro. Não precisa do = True textBox = "Sim" 'Joga o valor Sim no textBox Else 'Se check é falso textBox = "Não" 'Joga o valor Não no textBox End If

É algo como isso Open "C:\teste.txt" For Output As #1 Print #1, "teste" Print #1, "nova linha" Close #1 Se o arquivo não existir ele cria um.

Arredondamento é ROUND(valor, número de casas), ou ARRED(valor, número de casas) Ex: ROUND(2.32157, 4) terá como resposta 3.3216

checkbox é com true e false If seuCheckBox Then <código a ser executado se marcado> Else <código a ser executado se desmarcado End If

O campo Tab_PlanoDesl.Meio_Transp_Vtr é texto, correto? Em uma SQL um texto vem entre aspas simples. Usa essa SQL sqlStr = "SELECT Max(Tab_PlanoDesl.Odometro_Final) AS MáxDeOdometro_Final From Tab_PlanoDesl Where Tab_PlanoDesl.Meio_Transp_Vtr = '" & Me.CCViatura & "'"

Dim rs as Recordset Dim sqlstr As String sqlstr = "SELECT DISTINCT Max(Tab_PlanoDesl.Odometro_Final) AS MáxDeOdometro_Final FROM Tab_PlanoDesl Where (((Tab_PlanoDesl.Meio_Transp_Vtr)=forms!Teste!CCViatura))" Set rs = CurrentDB().OpenRecordset(sqlstr) rs.MoveFirst seuCampo = rs("MáxDeOdometro_Final") rs.Close Set rs = Nothing E por que o DISTINCT? Você usa isso pra buscar os valores distintos de uma tabela, por exemplo eu tenho uma tabela com Pessoa e CorFavorita, daí eu quero saber quais cores as pessoas escolheram, então eu coloco SELECT DISTINCT CorFavorita... que mesmo que 750 pessoas escolheram a cor azul, vem só um registro azul Credo... To chapado hoje, editei pela segunda vez o post ahauauahaua

Eu ACHO que eu tenho algo assim em algum lugar, mas eu entendi sim, é tipo uma popup que abre onde você tem a relação de produtos/serviços em uma lista, e você pode selecioná-los e ir adicionando ao seu pedido

Execute essa consulta e veja se o resultado te ajuda SELECT Tab_form.Campus, Tab_form.Escolaridade, COUNT(Tab_form.Escolaridade) AS Quantidade FROM Tab_form GROUP BY Tab_form.Campus, Tab_form.Escolaridade ORDER BY Tab_form.Campus, Tab_form.Escolaridade; Aqui ela retornou assim: Campus Escolaridade Quantidade Campus I - Salvador MÉDIO 1 Campus I - Salvador SUPERIOR 1 Campus II - Alagoinhas SUPERIOR 1 Campus III - Juazeiro MÉDIO 1 Campus IV - Jacobina SUPERIOR 1

Faz assim, abre o código do Form_Prestacoes e coloca um break no botão na linha com o código (clika na barrinha a esquerda da linha e aparece uma bolinha marrom e a linha fica com o fundo marrom) Form_Prestacoes.AllowAdditions = False aí faz a operação. Quando chegar no break ele para e mostra o código, daí você vai dando F8 e vê que linha que mandou ele pro Erro: A linha anterior ao MsgBox Err.Description, vbCritical

algo assim ajuda? SELECT Tb.Campus, Tb.Escolaridade, COUNT(Tb.Escolaridade) AS Quantidade FROM Tabela AS Tb GROUP BY Tb.Campus, Tb.Escolaridade ORDER BY Tb.Campus, Tb.Escolaridade;

É por causa do tratamento de erro, confira e veja se não falta nenhum pedaço do código. Nos meus testes aqui rodou tudo tranquilo. http://www.megaupload.com/?d=2P53WYR2 se você parcelar em 5 vezes, ele preenche até o E, depois se você parcelar em 3 e mandar calcular dnovo ele preenche até o C e limpa o resto

Hora que der o erro coloca Depurar e ve onde parou no código

:blush: é gambiarra em... ahauahuahuaa... Mas vamos lá Vá no editor de VBA (Alt+F11), em Ferramentas>Referêcias e marque Microsoft DAO 3.6 Object Library Depois no código do Form_FRM_PEDIDO DE VENDAS insira a função: Public Function getContrato() As String getContrato = Me.CódigoPedidodevendas End Function No código do Form_Prestacoes inserir a função: Private Sub transferirDados() On Error GoTo Erro Dim db As DAO.Database Dim rs As DAO.Recordset Dim sqlstr As String Dim ctto As String ctto = [Form_FRM_PEDIDO DE VENDAS].getContrato Set db = CurrentDb() sqlstr = "SELECT TOP 6 Pt.Contrato, Pt.Parcela, Pt.Valor, Pt.Vencimento FROM Prestacoes AS Pt" _ & " WHERE Pt.Contrato = " & ctto Set rs = db.OpenRecordset(sqlstr) [Form_FRM_PEDIDO DE VENDAS].setDados rs rs.Close db.Close Sair: Set rs = Nothing Set db = Nothing Exit Sub Erro: MsgBox Err.Description, vbCritical Resume Sair End Sub Voltando no código do Form_FRM_PEDIDO DE VENDAS, insira este código: Public Sub setDados(rs As DAO.Recordset) If rs.RecordCount > 0 Then rs.MoveFirst If Not rs.EOF Then Vencimento_A = Format(rs("Vencimento"), "dd/mm/yyyy") Valor_A = Round(rs("Valor"), 2) rs.MoveNext End If If Not rs.EOF Then Vencimento_B = Format(rs("Vencimento"), "dd/mm/yyyy") Valor_B = Round(rs("Valor"), 2) rs.MoveNext Else Vencimento_B = Null Valor_B = Null End If If Not rs.EOF Then Vencimento_C = Format(rs("Vencimento"), "dd/mm/yyyy") Valor_C = Round(rs("Valor"), 2) rs.MoveNext Else Vencimento_C = Null Valor_C = Null End If If Not rs.EOF Then Vencimento_D = Format(rs("Vencimento"), "dd/mm/yyyy") Valor_D = Round(rs("Valor"), 2) rs.MoveNext Else Vencimento_D = Null Valor_D = Null End If If Not rs.EOF Then Vencimento_E = Format(rs("Vencimento"), "dd/mm/yyyy") Valor_E = Round(rs("Valor"), 2) rs.MoveNext Else Vencimento_E = Null Valor_E = Null End If If Not rs.EOF Then Vencimento_F = Format(rs("Vencimento"), "dd/mm/yyyy") Valor_F = Round(rs("Valor"), 2) rs.MoveNext Else Vencimento_F = Null Valor_F = Null End If End If Set rs = Nothing End Sub e você chama isso colocando no código do botão do Form_Prestacoes: Private Sub Comando12_Click() Dim i, strPrestacoes As Integer Dim strValor As Currency Dim strData As Date strPrestacoes = [Forms]![FRM_PEDIDO DE VENDAS]![Meses] strValor = [Forms]![FRM_PEDIDO DE VENDAS]![Valor Total do Pedido] / strPrestacoes strData = [Forms]![FRM_PEDIDO DE VENDAS]![Data] If PARCELA = "" Or IsNull(PARCELA) Or PARCELA = "0" Then For i = 1 To strPrestacoes DoCmd.GoToRecord , , acNewRec Me.PARCELA = i Me.Valor = strValor Me.Vencimento = DateAdd("m", i + 0, strData) Next Form_Prestacoes.AllowAdditions = False transferirDados Form_Prestacoes.AllowAdditions = True Else MsgBox "Já foram calculadas as parcelas deste pedido!" _ & " Para calcular novamente tem que apagar as atuais.", vbCritical, "Erro" End If End Sub Tá meio corrido agora, mas foi que deu pra fazer ^_^ E tipo, tá massa seu sistema, socado de gambiarra mas ta massa hehehe

é... Ta meio complexo aqui, um tanto quanto confuso mas é porque não tenho familiaridade com a atividade. enfim.... To dando uma fuçada aqui