Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009
Alexandre Neves 10/12/2012, 19:40
Boa tarde,
Não sei onde quer utilizar o texto
Adapte
Sub julianow()
'criada por Alexandre Neves www.esnips.com\web\alexandreneves
'em 2012-12-10
'para julianow
'do fórum MaximoAccess
Dim Rst As DAO.Recordset, Variavel As String
Set Rst = CurrentDb.OpenRecordset("SELECT campo FROM tabela ORDER BY campo DESC;")
Variavel = ""
Do While Not Rst.EOF
If Rst.AbsolutePosition = 10 Then Exit Do
If Rst.AbsolutePosition = 0 Then
Variavel = " e " & Rst(0)
Else
Variavel = Rst(0) & ", " & Variavel
End If
Rst.MoveNext
Loop
MsgBox "Os códigos " & Variavel & " possuem horas lançadas mas não existe projetista."
Set Rst = Nothing
End Sub
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo