Crystal report

Prøver med flere point...

SELECT Tabel.Navn, Tabel2.Dato, Month([Dato]) AS Udtryk1
FROM Tabel
WHERE (((Month([Dato]))=4));

SELECT Tabel.Navn, Tabel.Dato, Month([Dato]) AS Udtryk1
FROM Tabel
WHERE (((Month([Dato]))=4));

Option Explicit

Private strDSN As String

Private DataPath As String
Private DataPass As String

Private m_Conn As Object
Private m_Rs As Object

Private Sub Command1_Click()
  Call Udskriv
End Sub

Private Sub Udskriv()
Private strSQL As String
  strSQL = "SELECT * FROM medlemmer WHERE ind_dato >= 01/04/03 And ind_dato > 01/05/03"
  Set m_Conn = CreateObject("ADODB.Connection")
  Set m_Rs = CreateObject("ADODB.RecordSet")
    With m_Rs
      .Open strSQL, strDSN, 1, 3
        If Not (.BOF Or .EOF) Then
          Do While Not .EOF
            'Her udskriver du dine felter
            Print m_Rs("Felt1")
            Print m_Rs("ind_dato")
            'o.s.v.......
            .MoveNext
          Loop
        End If
      .Close
    End With
  Set m_Rs = Nothing
  Set m_Conn = Nothing
End Sub

Private Sub Form_Load()
  DataPath = "C:\database.mdb" 'Database path
  DataPass = ""                'Database password
  strDSN = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ";PWD=" & DataPass & ";"
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Set m_Rs = Nothing
  Set m_Conn = Nothing
End Sub

hold da op en smøre sjh *G* Det kunne gøres på færre linier. Jeg vil jo gerne gøre det via crystal report.

Kabbak, jeg forstår ikke helt hvad du mener. Jeg kan ikke rigtigt få det du skriver til at "rime" med en selectionformula

Report1.SelectionFormula = "{medarbejdere.ind_dato} = '" & 4 & "'"

Ovenstående virker ikke (det ved jeg godt) Hvor i denne sætning skal month sættes ind ?

sikkert :-) men nu bruger jeg ikke alle de dumme ocx-filer hvis jeg kan komme uden om ;)

det var også kun for at slippe for besværet med at styre udskriftet...

lukker