Formatering i en streng

Formuleringen er således:

SQL1= "SELECT Format([Dato],'mmm yy') FROM tBilag"


Prøv denne lille test:
ret [Dato] og tBilag så det matcher din database

Sub Bøvle()
Dim DB As DAO.Database
Dim Rs As DAO.Recordset
Dim StrSQL As String
  Set DB = CurrentDb
  StrSQL = "SELECT Format([Dato],'mmm yy') FROM tBilag"
  Set Rs = DB.OpenRecordset(StrSQL)
  While Not Rs.EOF
      Debug.Print Rs(0)
      Rs.MoveNext
  Wend
End Sub

Udskift din ' med ""
(der skal 2 "" i udtrykket for at give en " i resultatet)

fdata kan jeg ikke få dig til at lægge det ind i:


SQL1 = "SELECT (Format([LeveringsDato],'" & "mmm yy" & "')) AS SalgsMåned

SQL1= "SELECT (Format([LeveringsDato],""mmm yy"")) AS SalgsMåned"

Takker for point ;O)