Jump to content
Fórum Script Brasil

Alexandre Neves

Membros
  • Content Count

    168
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Alexandre Neves

Recent Profile Visitors

1575 profile views
  1. 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
  2. Veja se será assim Format(Me.txtData,"mm-dd-yyyy")
  3. 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
  4. 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
  5. 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.
  6. 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?
  7. Formate o campo como texto
  8. 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
  9. 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
  10. 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
  11. Nas propriedades da caixa de combinação coloque limitado à lista=sim
  12. É tão parco em elementos que é difícil ajudar
  13. 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
  14. 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)
  15. Se for em Access2007 parece-me que dá.
×
×
  • Create New...