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á.

Private Sub Comando14_Click() 'veja onde quer validar o preenchimento! If mail = "" or isnull(mail) Then MsgBox "Por favor insira o Email!!!" mail.SetFocus actualiza = False End If End Sub

fahledu, De facto, só utilizo em VBA, não utilizo directo nos controlos. Procurei na ajuda e vi que existe a função SuprDir que é a correspondente em português. Utilize na fonte do controlo: =SuprDir(SeuCampo)

Private Sub Comando16_Click() If IsNull([LOGON]) Then MsgBox "Você não digitou o usuário!", vbExclamation, "AVISO!" LOGON.SetFocus ElseIf senha <> Me.Texto4 Then MsgBox "Confirmação de senha não coincide com a senha!", vbCritical, "AVISO!" LOGON.SetFocus Else MsgBox "USUÁRIO CADASTRADO COM SUCESSO!", vbExclamation, "AVISO!" currentdb.execute "SELECT INTO DataBase(HoraCadastro) VALUES Format(Date,'hh:mm:ss);" DoCmd.Close End If End Sub

Em vez de utilizar acObjStateOpen utilize acObjStateHiden

Como não quer por VBA, onde pretende obter o campo sem espaços finais, coloque: =RTrim(SeuCampo)

Bom dia, Utilize a função RTrim

Boa noite, NFAC O agradecimento que deve é ajudar a quem precisa e não sabe. Quanto ao pormenor dos dados não ficarem visíveis, eu reparei e estranhei mas não tive tempo para averiguar a razão, mas é estranho. De facto não costuma trabalhar com subformulários.

NFAC, Veja agora e não utilize nomes reservados (ano) para nomear tabelas e outros objectos ou controlos. Alterei o nome das caixas de combinação para diferenciar dos nomes dos campos associados. http://www.esnips.com/doc/893ffc8b-fbeb-43...069b5/Teste-0.1

NFAC, O melhor é carregar a parte do bd necessária, com dados alterados, para se ver em concrecto. Pode utilizar um dos sítios gratuitos disponíveis.

Boa noite, NFAC Pediu código para 3 caixas de combinação dependentes. Assim sendo, a origem dos dados vinha das tabelas. Pelo que indica agora, é para carregar dados. Se é para carregar dados, os dados ainda não estão carregados e se ainda não estão carregados então não existem na tabela para carregar os controlos. Reveja o que pretende pois ou estou enganado ou está no caminho errado.