Alexandre Neves

Boa tarde, Iceguy 'Crie uma tabela auxiliar, denominada tblAuxiliar, com os mesmos campos 'Execute o código seguinte 'obtém o resultado na tabela tblAuxiliar Sub OrdenarIceguy() 'criado por Alexandre Neves 'em 2011-02-20 'para Iceguy 'do fórum ScripBrasil Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset CurrentDb.Execute "DELETE * FROM tblAuxiliar;" Set Rst1 = CurrentDb.OpenRecordset("SELECT Campo1,campo2 FROM SuaTabela ORDER BY Campo2;") Do While Not Rst1.EOF If DCount("*", "tblAuxiliar", "Campo1='" & Rst1(0) & "'") = 0 Then Set Rst2 = CurrentDb.OpenRecordset("SELECT Campo1,campo2 FROM SuaTabela WHERE Campo1='" & Rst1(0) & "' ORDER BY Campo2;") Do While Not Rst2.EOF CurrentDb.Execute "INSERT INTO tblAuxilar(Campo1,Campo2) VALUES ('" & Rst2(0) & "'," & Rst2(1) & ");" Rst2.MoveNext Loop End If Rst1.MoveNext Loop Set Rst1 = Nothing: Rst2 = Nothing End Sub Cumprimentos,

Veja se será assim Format(Me.txtData,"mm-dd-yyyy")

Boa tarde, Veja agora Dim inicio, final As Variant Dim strSql As String If Not IsNull(Me.txtVend) And Not IsNull(Me.txtData) And Not IsNull(Me.txtIni) And Not IsNull(Me.txtQtd) Then DoCmd.SetWarnings False inicio = Me.txtIni final = Me.txtIni + Me.txtQtd While inicio <= final Let strSql = "insert into tstMALJ (recData,recVendedor,recNumero) values(#" & Format(Me.txtData,"dd-mm-yyyy") & "#,'" & Me.txtVend & "','" & inicio & "')" DoCmd.RunSQL strSql inicio = inicio + 1 Wend DoCmd.SetWarnings True MsgBox "Geração automática Concluída!", vbOKOnly + vbInformation, " Mr. MALJ" Else MsgBox "Para geração automática de recibos é necessário informar todos os Requisitos!", vbOKOnly + vbInformation, " Mr. MALJ" End If

Já tenha o campo criado na tabela e utilize o código seguinte para um botão em formulário ou para módulo Dim Rst As DAO.Recordset, I As Integer, strNome As String Set Rst = CurrentDb.OpenRecordset("SELECT Nome, Nota, NomeNota FROM SuaTabela ORDER BY Nome, Nota;") strNome = "" Do While Not Rst.EOF If strNome = Rst(0) Then I = I + 1 Else I = 1 Rst.Edit Rst(2) = I Rst.Update Rst.MoveNext Loop Set Rst = Nothing

Também ainda não vi nenhuma tabela que precisasse de tantos campos. Continua sem dizer os campos que diz precisar e não lhe podemos dar uma luz.

De facto, é como diz. Parece-me que, ao copiar, o número fica copiado no formato científico. Se assim for, o problema não está no Excel mas no copiar. Não sei de onde copia, mas não consegue fazer a cópia automaticamente por macro?

Formate o campo como texto

Não indica todos os campos envolvidos, pois até deve ter uma tabela com os produtos (IDProduto, NomeProduto) 'SomaEncomendas: Consulta de produtos encomendados SELECT IDProduto, Sum(QtEncomenda) as SomaEncomenda FROM Encomendas GROUP BY IDProduto; 'SomaFornecidas: Consulta de produtos fornecidos SELECT IDProduto, Sum(QtFornecida) as SomaFornecida FROM Fornecimentos GROUP BY IDProduto; 'consulta resultado SELECT SomaEncomenda-SomaFornecida as QtPorFornecer, NomeProduto FROM (SomaEncomendas LEFT JOIN SomaFornecidas ON SomaEncomendas.IDProduto=SomaFornecidas ON SomaFornecidas.IDProduto) LEFT JOIN Produtos ON SomaEncomendas.IDProduto=Produtos.IDProduto WHERE SomaEncomenda-SomaFornecida>0;

Boa tarde, RevenanT Não vejo necessidade de repetir os dados em tabelas diferentes (a base de dados não deve ter dados repetidos) Quando precisar de dados contidos em mais que uma tabela, ou tem um relacionamento estabelecido ou faça-o directamente no código de origem da consulta

Boa noite, Se for como descreveu, é estranho. Veja se o Access considera as datas no formato mm-dd-yyyy em vez de dd-mm-yyyy

Nas propriedades da caixa de combinação coloque limitado à lista=sim

É tão parco em elementos que é difícil ajudar

Boa noite, JYMMY Deve ser isto: Dim rs As DAO.Recordset Set rs = Currentdb.OpenRecordset("produto") Dim Linha, C_exp1 As String With rs Do While Not rs.EOF Linha = "" Linha = Linha & rs("CodigoP") & Right(String(rs("Campo1"), " ") & rs(Qtde),rs("Campo1")) Print #1, Linha rs.MoveNext Loop Set rs=nothing

romanino, Se pretende utilizar a consulta como origem de formulário ou relatório, crie código dentro do formulário ou relatório para aceitar parâmetros até se verificar determinada condição (entrada nula, n valores, etc)

Se for em Access2007 parece-me que dá.