MrMALJ

Ok fera, se você puder postar como solucionou, pode servir de base para usuarios que tenham dúvidas semelhantes!

Fera o que o você quer pode ser resolvido, simplesmente criando o relatório que você quer com todos os dados necessários e depois em vez de imprimir você irá exportar ele para um formato que lhe atenda (acho que .doc), tendo feito isso você anexa o arquivo a sua mensagem de email, achei um exemplo bem prático e funcional, vou deixar o link pra você! Como enviar e-mail ou fax pelo Access? (Fonte do exemplo JR's FAQ)

Bom fera por isso lhe falei pra ver a função seimed (se imediato) você pode utilizar ela no critério da sua consulta mais ou menos assim: seimed(seuCritério;se sim faça isso; se não faça isso) Acho que resolveria.

Fera entenda que você não tem que mexer no evento do controle que vai receber a imagem, mais sim nas propriedades do formulário, cabelho, detalhe.... depende de onde você vá colocar a imagem...

Fera o processo é igual ao do form.

Fera porque não retira esses outros critérios, pelo que entendi você não sabe, ou não deseja utilizar, desta forma acho que é bem mais simples retirar. Ah sim você pode utilizar a função seimed() no critério, deve resolver tb!

fera isso num tem nada a ver com o que fiz, no arquivo que você baixou aqui (o exemplo pra mostrar e ocultar) junto tem um código pra modelar no formato que você quer, num percebeu que os campos vem com o "07/999"? olha lá tá bem simples, no caso você só terá que adaptá-lo onde tem o 999 colocar sua contagem!

Bom como disse pra você, nesse exemplo que postei tem esse posicionamento, você olhou?

Cara você inventou um problema pra você mesmo, pois pra você guardar isso terá de guardar como texto, o que dificulta a contagem, já que você terá sempre que pegar o seu ultimo registro e usar o right pra pegar os ultimos caracteres e depois incrementar 1 num é dificil de fazer uma hora dessas se eu tiver um tempinho talvez faça um exemplo e post.

Mais fera eu coloquei o exemplo lá tb, você só tem que substitruir o valor que coloquei lá pelo que você quer (no caso a expressão que faz isso pra você).

fera se quiser me mandar, pode só não posso dizer quando vou poder ver, estou meio apurado, mais sempre que sobra um tempinho tento ajudar.

Fera até onde eu sei o BD teria que começar a dar problemas lá pelos 2Gb até ai ele deveria funcionar bem, tente utilizar a opção "Compactar e Corrigir" banco de dados do menu "Ferramentas"!

Fera taí um exemplo que deve sanar essas suas dúvidas! Posso dar como resolvido esse tópico? MrMALJ.zip

Você pode utilizar uma combobox e fazer sua consulta ser atualizada conforme a escolha desse campo anterior que ao ser alterado faria um requery nessa combo!

O procedimento que passei é para relatório, mais deve ser possivel fazer isso que você quer, mais nunca tentei, jáh que isso só geraria mais um campo pra ocupara espaço na base!

Dificil hein... fera se eu tivesse com tempo ia pedir pra você me mandar esse BD pra fazer as adequações... mais infelizmente agora num dá!

Você deve utiliza nz para os dois casos assim: =Nz([somaDeQtd1])-nz(rptBDVMetas.Relatório!SomaDeVlBDV1) Deve resolver, nos dê o retorno!

Talvez o link abaixo lhe ajude http://office.microsoft.com/en-us/template...=CT011366681033 ou a BrowseFolder (abaixo) que encontrei onde você pode usar para abrir uma caixa de diálogo onde o usuário seleciona a pasta: API: BrowseFolder Dialog Author(s) Terry Kreft (Q) Ok, I know how to use the GetOpenFileName api, but I want to just retrieve the Directory name. How do I call the Browse for Folder window from code? (A) Paste the following code in a new module. Save the module with any name. Use the following example as an illustration on how to call the function. Dim strFolderName as string strFolderName = BrowseFolder("What Folder you want to select?") Stephen Lebans has added functionality to open the browse folder at a specific place. '************** Code Start ************** 'This code was originally written by Terry Kreft. 'It is not to be altered or distributed, 'except as part of an application. 'You are free to use it in any application, 'provided the copyright notice is left unchanged. ' 'Code courtesy of 'Terry Kreft Private Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias _ "SHGetPathFromIDListA" (ByVal pidl As Long, _ ByVal pszPath As String) As Long Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias _ "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _ As Long Private Const BIF_RETURNONLYFSDIRS = &H1 Public Function BrowseFolder(szDialogTitle As String) As String Dim X As Long, bi As BROWSEINFO, dwIList As Long Dim szPath As String, wPos As Integer With bi .hOwner = hWndAccessApp .lpszTitle = szDialogTitle .ulFlags = BIF_RETURNONLYFSDIRS End With dwIList = SHBrowseForFolder(bi) szPath = Space$(512) X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath) If X Then wPos = InStr(szPath, Chr(0)) BrowseFolder = Left$(szPath, wPos - 1) Else BrowseFolder = vbNullString End If End Function '*********** Code End ***************** Claro devo dizer que não testei nada e se conseguir utilizar agradeço se puder nos passar como fez!

Fera esse é simples, faça seu relatório agrupar por pedido e nos detlhes crie uma caixa de texto não acoplada e na sua origem de controle coloque =1, e sua propriedade Soma parcial coloque pro grupo, isso resolve... teste e nos retorne!

UMMM pior que tenho alguns relatório onde mostro ou oculto valores, e faça do jeito que passei, deve ser alguma besteirinha a qual não estamos atentando agora!

Estranho, já tentou fazer o contrário, tipo eles não serem visíveis e só serem mostrados quando tiverem valores, acho que não custa tentar, pois até onde vi e conheço seu código estaria correto.

"R$ 0,00" não é valor é moeda é número logo basta colocar somente o famoso zero If IsNull(Me.preco_maoobra) Or Me.preco_maoobra = 0 Then Me.Rótulo111.Visible = False _ Else Me.Rótulo111.Visible = True

Na verdade é simples, basta você criar uma consulta que use como critério isso que você está pedido, então crie um formulário que utilize essa consulta como origem de dados, aqui no forum tem vários tópicos referente a consultas!

Ummmm não entendi muito bem este ultimo post, mais como você está utilizando ADO para se conectar as tabelas você terá que usar ADO para se movimentar dentro dos registros.

Seria algo assim: =SeImed(DContar("[numconsulta]";"consultas")=;0right(format(year(date()),"yyyy"),2) & "/" & format(me.seuContador,"000");SeImed(Ano(Data())<>Esquerda(DMáx("[numconsulta]";"consultas");4);right(format(year(date()),"yyyy"),2) & "/" & format(me.seuContador,"000");Formato(Ano(Data()) & (Esquerda(DMáx("[numconsulta]";"consultas");3)+1);"0000\/000"))) Mais ainda assim você tem que adequar!