MrMALJ

ummmm tenta assimm.. =DSoma("[ValorRec]";"TabVendas";"[LocalUnid]=" & 1 & " and [ContaBanco]=" & 2)

Fera infelizmente não uso o 2007, mais acredito que um dlookup deva resolver, dê uma busca aqui no forum que tem bastante exemplo dele!

Tenta assim: =DSoma("[ValorRec]";"TabVendas";"[LocalUnid]='" & 1 & "' E [ContaBanco]='" & 2 &"'")

Dá uma olhadinho no link abaixo: Access ou SQL Server ? Entre a cruz e a espada ? Que tal o MSDE ? Espero que ajude!

Transferindo seu tópico para a sessão ASP!

Opa encontrei a parte de posicionar o cursor no final do texto, digite isso na propriedade de evento Ao Entrar da caixa de texto: me.nomeDoObjeto.selstart=me.nomeDoObjeto.sellength Bom é isso dai ok!?

Fera eu tinha essa função em algum sisteminha, assim que eu conseguir localizar posta o script ok!

Fera vou te passar o link pra um artigo do JRs Faq, lá tem como trabalhar com codigo de barras.... http://www.jrfaq.com/detalhe.asp?Pergunta_...p;search=barras

Cara pior que nem toh conseguindo imaginar um exemplo mais tenta assim tb: Me.obs.Value = Me.obs & vbKeyReturn & Me.trans

Ser for o caso de quebrar strings para gerar uma formatção de raltório não seria melhor utilizar, right(), left() e mid()?...

Fera uma vez eu tentei fazer um mais desisti, tinha que mexer com varias APIs, e na epoca eu não tava com tempo nem paciencia pra isso, mais ao meu ver seria possivel sim!

Fera faça uma consulta utilizando com critério isso que você tah qrendo, vamos supor que você tenha um campo qtdMinima, na consulta criada você utilizaria como criterio o saldo atual do estoque algo assim select * from tabProdutos, tabEstoque where tabProdutos.qtdMinima<= tabEstoque.Saldo; É por ai, essa seria mais ou menos a expressão SQL da sua consulta....

Não sei bem qual a sua real necessidade, ou o q você terá que fazer para adaptar a sua necessidade, mais vou postar a função do jeito q fiz (com ajuda dos colegas do forumaccess): Function JuntaDatas(NrCt As Long) As String Dim strData As String Set db = CurrentDb() Set rst = db.OpenRecordset("SELECT Data FROM PublDatas Where ContrPubl=" & Controle) With rst If Not .EOF Then .MoveFirst Do Until .EOF strData = strData & !Data & " | " .MoveNext Loop strData = Left$(strData, Len(strData) - 3) Else strData = "" End If End With rst.Close db.Close Set rst = Nothing Set db = Nothing Forms!ContrPubl!GuardaDiaUnico!gDia.Value = strData Forms!ContrPubl.Refresh JuntaDatas = strData End Function "GuardaDiaUnico" é a tabela temporária que guarda as info concatenadas, ok!

Cara tive um problema semelhante a um tempo atrás, só que se referia a datas, que seriam informadas varias em períodos de até 1 ano, ou seja poderiam haver ateh 385 datas diferentes para cada registro principal, só que para impressão eu teria de montar lado a lado e teve que ser feita um VBA utilizando um pouco de ADO para pegar cada subregistro (as datas) e irem concatendo e jogando numa outra tabela temporaria que só recebe dados nessa situação e quando termina o processo de relatorio ela é novamente limpa.

Opa pesquisei e achei uma otima forma de fazer isso que você que, vou postar exatamente como está no JR's FAQ... Veja os três exemplos de código abaixo: 1. A rotina abaixo exibe o Caminho (Path) completo do MDB: Function GetNamePath() Dim MyDB As DAO.Database ' Define MyDB como o banco de dados atual. Set MyDB = DBEngine.Workspaces(0).Databases(0) GetNamePath = MyDB.Name End Function Essa função roda em todas as versões a partir do Access 2.0, contanto que se referencie a biblioteca DAO correspondente no menu Ferramentas - Referências. Por exemplo, use DAO 3.5 para as versões 95 e 97; e DAO 3.6 para a versão 2000. Para testar o código, abra a Janela Depurar ou Verificação imediata (CTRL+G), digite a expressão abaixo e tecle ENTER: ?GetNamePath() 2. A função abaixo retorna somente o diretório do MDB: Function ExtraiPasta(caminho As String) As String 'Cortesia de JR - http://www26.brinkster.com/accessjr/ 'Retorna a pasta de um arquivo cujo caminho foi informado. Dim arquivo As String If Len(caminho) > 0 Then arquivo = Dir(caminho) ExtraiPasta = Left(caminho, Len(caminho) - Len(arquivo)) End If End Function Ou: Function ExtraiPasta(caminho As String) As String 'Cortesia de JR - http://www26.brinkster.com/accessjr/ 'Retorna a pasta de um arquivo cujo caminho foi informado. On Error Resume Next Dim I As Integer, Nome As String For I = 1 To Len(caminho) Nome = Right(caminho, I) If InStr(Nome, "\") Then ExtraiPasta = StrConv(Left$(caminho, Len(caminho) - Len(Nome)), _ vbProperCase) Exit For End If Next I If Err <> 0 Then MsgBox Err.Description End Function 3. A função abaixo retorna somente o nome do arquivo MDB: Function ExtraiNomeBD(caminho As String) As String ' Desenvolvida por João Rodrigues (JR) ' http://www26.brinkster.com/accessjr/ Dim I As Integer, Nome As String On Error Resume Next For I = 1 To Len(caminho) Nome = Right(caminho, I) If InStr(Nome, "\") <> 0 Then ExtraiNomeBD = StrConv(Right(Nome, Len(Nome) - 1), _ vbProperCase) Exit For End If Next I If Err <> 0 Then MsgBox Err.Description End Function Para testá-la, digite o seguinte na janela Depurar e pressione ENTER: ?ExtraiNomeBD("D:\Controle\Licita99.mdb") O Access irá retornar o nome do arquivo =Licita99.mdb

Utilize a busca aqui do forum tem vários tópicos sobre calculos... ok!

Fera dá uma olhadinha no link http://office.microsoft.com/pt-pt/access/HA012327522070.aspx Espero que ajude na resolução! ok...

Bom entre outras coisas use o auto alinhamento de objetos quando for modelar seu relatorio, depois coloque coloque bordas solidas e utilize as propriedades "pode ampliar" de cada objeto com sim, isso deve resolver!

Cara, seu problema tah meio complicado ou eu num toh entendendo bem, talvez pudesse ateh ajudar mais teria que ter acesso ao bd pra poder fazer uma analise... não que eu esteje com tempo pra fazer isso mais sim porque fiquei curioso.

Ummmm... fera faz o seguinte upa só a tabela e a query pra mim poder dar uma olhada... (uso office 2000)

Pelo que vi está ok tenata adiconar aspas simples pra concatenar o critério... if me.pedVlrProd=0 or isnull(me.pedVlrProd) then me.pedVlrProd=dlookup("[valorTabelaProdutos]","tabelaProdutos","[codProdTabProdutos]='" & me.codProdPedido & "'") end if Espero que resolva!

ummmmm não tentei mais imagino que se você adicionar o codigo do enter as mensagem ele deve fazer a quebra, senão me engano é o CHR(13)... Bom testa ai, como a duvida principal do tópico foi sanada foi colocar como resolvido...

Então isso é bem obvio... como você criaou a consulta view1, você não disse que o campo9 existe nela, ou seja se vocÊ irá gerar outra consulta apartir dela é necessário que o campo9 tenha sido selecionado na view1... select t1.campo1, t1.campo2, t1.campo3,t1.campo9, t2.campo1, t2.campo2 from tabela1 t1, tabela2 t2 where t1.id = t2.id group by t1.campo1, t1.campo2, t1.campo3, t2.campo1, t2.campo2 Agora sim seu procedimento deverá funcionaro ok!

Nossa que coisa meio enrrolada... você tah querendo utilizar criterios pra obter resultados para gerar um relatório, se for isso você tem que trabalhar nas consultas que vão formar esse relatório, porque como o evanjos eu tb desconheço como fazer um relatório sem que ele esteja já modelado.

"Apos atualizar" da combo: me.suaObs.value=me.suaObs & " " & me.suaCombo :P