DataRepport

Hej Alle.

Jeg har et project med en form, med nedestående cmdSøg_Click() funktion.
cmdSøg_Click() søger i et recordset på bagrund af indtastningerne i 3 datacombo bokse og 6 text bokse. Funktionen funger problemfrit

Jeg ønsker at udskrive en rapport med søgeresultatet, men kan ikke finde en løsning.
Jeg har prøvet med DataEnvironment men kan ikke få SQL-strengen ”strSQLAdodc1” indarbejdet i denne
Er jeg helt på vildspor ??????
HJÆLP

Hilsen Jbjerre.


Private Sub cmdSøg_Click()
Dim Fam As String, Art As String, Sted As String, DatoFra As String, DatoTil As String, _
KlFra As String, KlTil As String, AntalFra As String, AntalTil As String
   
    If datcboFam.BoundText = \"\" Then Fam = \">0\" Else Fam = \"=\" & datcboFam.BoundText
    If datcboArt.BoundText = \"\" Then Art = \">0\" Else Art = \"=\" & datcboArt.BoundText
    If datcboSted.Text = \"\" Then Sted = \">0\" Else Sted = \"=\" & datcboSted.BoundText
    If txtDatoFra.Text = \"\" Then DatoFra = \"#01-01-1931#\" Else DatoFra = \"#\" & txtDatoFra.Text & \"#\"
    If txtDatoTil.Text = \"\" Then DatoTil = \"#31-12-2028#\" Else DatoTil = \"#\" & txtDatoTil.Text & \"#\"
    If txtKlFra.Text = \"\" Then KlFra = \">=\" & \"#00.00#\" Else KlFra = \">=\" & \"#\" & txtKlFra.Text & \"#\"
    If txtKlTil.Text = \"\" Then KlTil = \"<=\" & \"#23.59#\" Else KlTil = \"<=\" & \"#\" & txtKlTil.Text & \"#\"
    If txtAntalFra.Text = \"\" Then AntalFra = \"0\" Else AntalFra = txtAntalFra.Text
    If txtAntalTil.Text = \"\" Then AntalTil = \"1000000\" Else AntalTil = txtAntalTil.Text

   
    strSQLAdodc1 = _
    \"SELECT tblArt.ArtDK, tblOmråde.Område, tblObservation.Dato , tblObservation.Tidfra,\" _
    & \"tblObservation.TidTil, tblObservation.Antal, tblObservation.Notat, tblObservation.ArtID, tblOmråde.OmrådeID, tblArt.FamId \" _
    & \" FROM tblOmråde INNER JOIN (tblArt INNER JOIN tblObservation ON tblArt.ArtID = tblObservation.ArtID) ON tblOmråde.OmrådeID = tblObservation.OmrådeID\" _
    & \" WHERE FamId \" & Fam & \" AND tblObservation.ArtId \" & Art & \" AND tblOmråde.OmrådeID \" & Sted & \" \" _
    & \" AND dato  >=\" & DatoFra & \" AND dato <=\" & DatoTil & \" \" _
    & \" AND tidFra  \" & KlFra & \" AND tidTil  \" & KlTil & \" \" _
    & \" AND antal >= \" & AntalFra & \" AND antal <= \" & AntalTil & \" ORDER BY tblObservation.Dato \"
   
    Adodc1.RecordSource = strSQLAdodc1
    Adodc1.Refresh
   
    With DataGrid1
        Set .DataSource = Adodc1
            .Columns(0).Caption = \"Fam.navn Dk\"
            .Columns(0).Width = 2500
            .Columns(1).Width = 2500
            .Columns(2).Width = 800
            .Columns(2).Alignment = dbgCenter
            .Columns(3).Width = 800
            .Columns(3).Alignment = dbgCenter
            .Columns(4).Width = 800
            .Columns(4).Alignment = dbgCenter
            .Columns(5).Width = 600
            .Columns(5).Alignment = dbgCenter
            .Columns(6).Width = 3000
            .Columns(7).Visible = False
            .Columns(8).Visible = False
            .Columns(9).Visible = False
    End With
       
    Postnummer \'Er en Sub der angiver postnr. og antal poster.
End Sub