Andy SC

alguém pode me ajudar com isso acima????

puxa.... pra ver como tenho que aprender mesmo... tudo o que consigo é fazer com video aulas do Youtube...rsrsrsrsrsrs valeu mesmo por essa dica já que custumiza o meu... abraços

Amigo os comandos acima servem para deixar o banco de dados com cara de profissional ele pode abrir quando for o caso é so fazer um link na áre a de trabalho e executar minimizado sei lá....o o meu fiz isso pois fica bem melhor trabalhar assim com aparencia de programa mesmo abraços

caro amigo fassa isso no seu formulario coloque isso Private Sub cmdImprimir_Click() On Error GoTo Err_cmdImprimir_Click If Me.[Material_ID] <> "" Then DoCmd.OpenReport "NOME DO RELATÓRIO", acViewPreview, , _ WhereCondition:="tbl_Material_ID = '" & Material_ID & "'" Else MsgBox "Selecione um Material!", , "Erro" End If Exit_cmdImprimir_Click: Exit Sub Err_cmdImprimir_Click: Call InformaErro Resume Exit_cmdImprimir_Click End Sub assim você ao terminar de cadastrar o que precisar poderá já imprimir o mesmo no meu serviu.

olá amigo fassa uma consulta com todos os seus campos e no criterio data coloque isso Between [digite a data inicial] AND [digite a data final] ou esse Entre [ data inicial ] E [ data final ] depois fassa outras consultas se for o casso para outros filtos se qizer ao abrir a consulta já vai aparecer uma telinha dizendo a data inicial e apos digitado a data final pra mim resolveu espero ter ajudado

acho que isso pode ser util pois pra mim resolveu...... veja os exemplos a baixo ok Para importar: Const acAppendData = 2 Set objAccess = CreateObject("Access.Application") objAccess.OpenCurrentDatabase "C:\XML\XML2.mdb" objAccess.ImportXML "C:\XML\FUNCI.xml", acAppendData Para exportar: Const acExportTable = 0 Set objAccess = CreateObject("Access.Application") objAccess.OpenCurrentDatabase "C:\XML\XML2.mdb" objAccess.ExportXML acExportTable, "FUNCIONARIOS", "c:\XML\FUNCI.xml" Declarar o objAccess: Set objAccess = CreateObject("Access.Application") ===================================================================================================== Que tal este exemplo? Public Function exportar_dadosExcel() strfich = "C:\testes2000\tassociados.xls" Kill strfich DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "tASSOCIADOS", strfich, True, "" End Function João Mateus ===================================================================================================== DoCmd.TransferSpreadsheet acExport, 8, "Cns_201_Exportar", "C:\Fatura82004\Julho04.xls", True, "Sheet3!" ===================================================================================================== DoCmd.TransferSpreadsheet acExport, 0, "NOME_DA_CONSULTA", "C:\PLANILHA.XLS", False, "" ===================================================================================================== DoCmd.TransferSpreadsheet acExport, 0, "NOME_DA_CONSULTA", "C:\PLANILHA.XLS", False, "USERS!b2:j2500" ===================================================================================================== Gostaria de saber se tem como especificar a partir de que célula ele vai jogar os valores no excel ( Ex.: C3 ) Public Sub ExcelTeste() Dim objAPP As Object Dim objwk As Object Dim objSh As Object Dim rst As ADODB.Recordset Set objAPP = CreateObject("Excel.application") objAPP.SheetsInNewWorkbook = 1 Set objwk = objAPP.Workbooks.Add Set objSh = objwk.ActiveSheet Set rst = CurrentProject.Connection.Execute("Select * from tabela") objSh.Cells(3, 3).CopyFromRecordset rst rst.Close objwk.SaveAs "C:\teste.xls" objwk.Close objAPP.Quit tambem tem este que pode ser util em alguns casos...... Exemplo: Exemplo de como transferir uma tabela do Access através de Macro para uma planilha do Excel em células ou pastas específicas: Nome da pasta: teste.xls Nome da guia (planilha): teste1 Células: C3 a G10 A Macro abaixo executa essa tarefa: Ação Argumentos ------------------------------------------------------------------------- TransferirPlanilha Tipo de transferência - Exportar Tipo de planilha eletrônica - Microsoft Excel 97 Nome da Tabela - Nome da tabela no mdb Nome do Arquivo - C:\caminho\teste.xls Contém nomes de campos - Sim Intervalo - teste1!C3:G10

Coloque em um módulo: Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long Dim dwReturn As Long 'estas constantes já estão declaradas em outro módulo 'Public Const SW_HIDE = 0 'Public Const SW_SHOWNORMAL = 1 'Public Const SW_SHOWMINIMIZED = 2 'Public Const SW_SHOWMAXIMIZED = 3 'esta API também é usada em outros módulos e/ou procedimentos Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _ ByVal nCmdShow As Long) As Long Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean If Procedure = "Hide" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) End If If Procedure = "Show" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If If Procedure = "Minimize" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED) End If If SwitchStatus = True Then If IsWindowVisible(hWndAccessApp) = 1 Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) Else dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If End If If StatusCheck = True Then If IsWindowVisible(hWndAccessApp) = 0 Then fAccessWindow = False End If If IsWindowVisible(hWndAccessApp) = 1 Then fAccessWindow = True End If End If End Function ===== Uso: Call fAccessWindow ("Hide",False,False) Como é um código que irá ser executado após o Access abrir, a janela principal do Access pode aparecer por alguns instantes, antes do código ser executado, para evitar isso coloque na propriedade do ícone de atalho da tua aplicação, em Executar =Minimizado.

olá outra coisa, como faço pra que saia nos relatorios a data em questao já que os mesmos são entre datas e não sei como fazer com que saiam no relatorio ex. 01/08/2011 até 31/08/2011 outra coisa hihihi meu Deuzoo já to explorando mesmo como faço pra colocar uma mensagem de bom dia, boa tarde ou boa noite no formulario de login, tenho a formula mas não sei como aparecer lá. If Time$ >= "00:00" And Time$ < "12:00" Then [Campo] = "Bom Dia!" End If If Time$ >= "12:00" And Time$ < "18:00" Then [Campo] = "Boa Tarde!" End If If Time$ >= "18:00" And Time$ <= "23:59" Then [Campo] = "Boa Noite!" End If como aplicar isso?

olá tem como fazer as consultas já com estas formulas??? já que eu tenho mais de 100 consultas pois o meu banco de dados é muito grande???

vô tentá.... já te respondo se tiveres MSN me add afpvmcity@hotmail.com ai ai ai ai ai rsrsrsrsrs sim sim sim deu certo ao colocar a formula no campo depois do nome vai sertinho com sinal e tudo que Deus te abençoe e se quizer que eu te passe meu Banco de dados pra você ver como é complexo estou a sua disposição obrigadao mesmo Mestre

percentual do que em relação ao que? assim eu quero o total do pedido com os valores descriminados ali no exemplo e desse me dar a porcentagem de problemas encontrados por exemplo total do pedido.....................1821 arremate mal feito.................237 pregas....................................33 desse montante total do pedido quero o valor percentual dos 237 e dos 33 onde 237 me resultou em 13% onde 33 me resultou em 2% se conseguir essa formula pois não consigo fazer outra coisa no banco de dados onde eu coloco os valores tem varios que não coloco nada e são 0 (zero) tem que ver a divisao por zero tambem ou ignorar a divisao.... ok abraço

Olá pessoal.... preciso de help! tenho um enorme banco de dados onde eu não consigo fazer a porcentagem dos relatórios, já tentei de tudo mas não consigo e quando coloco a formula ele zera tudo e não mostra nada fica em branco fora que ai pra conseguir os outros critérios fiz "consulta" da "consulta" "da consulta" pra ir conseguindo fazer os outros critérios por exemplo tabela total do pedido § total inspecionado § gramatura § malha fora da medida § malha sem elasticidade .......1350........§............420............§.......81......§..................23............§................56 essa é a tabela..... agora tenho uma consulta dela pra a data com essa condição Entre [ data inicial ] E [ data final ] e outra com soma pois preciso pegar o montante do mes em questao somar e depois de somar preciso do percentual como estou no momento so tenho a soma do montante do mes, mas preciso desse indice "%" help.