
Alexandre Neves
Membros-
Content Count
168 -
Joined
-
Last visited
Community Reputation
0 NeutroAbout Alexandre Neves

Recent Profile Visitors
1575 profile views
-
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
-
(Resolvido) (Resolvido) Data fica trocada
Alexandre Neves replied to Luis Castro's question in Access
Veja se será assim Format(Me.txtData,"mm-dd-yyyy") -
(Resolvido) (Resolvido) Data fica trocada
Alexandre Neves replied to Luis Castro's question in Access
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 "G -
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
-
(Resolvido) Tabela no Access (quantidade de campos)
Alexandre Neves replied to BroTheR's question in Access
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
-
(Resolvido) Pesquisa de encomendas e fornecimentos
Alexandre Neves replied to Hugo Sadhus's question in Access
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 -
Trazer dados de uma tabela para outra - ACCESS 2002
Alexandre Neves replied to RevenanT's question in Access
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
-
Parcelas - Divisão de registro já existente
Alexandre Neves replied to Raphael Souza's question in Access
É 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á.