Microsoft Excel

Herbers Excel/VBA-Archiv

Recordset uebergeben

    Betrifft: Recordset uebergeben von: Holg
    Geschrieben am: 01.10.2003 15:41:32

    Hallo,

    Ist es moeglich ein DAO Recordset an eine Funktion / Prozedur zu uebergeben?

    Gruss
    Holg

      


    Betrifft: AW: Recordset uebergeben von: Holg
    Geschrieben am: 01.10.2003 15:48:20

    So hab selber nen bisschen weiter probiert...

    Wenn die Funktion so aussieht:

    Sub recordset2(ByRef rs)
        rs.MoveFirst
        Cells(1, 1).Value = rs.Fields("OTA").Value
    End Sub
    


    dann geht es. Bei:

    Sub recordset2(ByRef rs)
        rs.MoveFirst
        Cells(1, 1).Value = rs.Fields("OTA").Value
    End Sub
    


    kommt:
    Compiler Error
    ByRef argument type mismatch

    Wieso das denn? Ist die obere Version in Ordnung oder geht das nur dank Microsoft Bugs?

    Gruss Holg


      


    Betrifft: AW: Recordset uebergeben von: Björn B.
    Geschrieben am: 01.10.2003 23:11:09

    Hallo Holg(er),

    mal ganz ehrlich, wo ist der Unterschied zwischen den beiden Funktionen? Ich kann keinen sehen. Deine Fehlermeldung deutet darauf hin, dass etwas mit dem Übergabeelement rs nicht hinhaut. Dazu müsste man aber deutlich mehr wissen, als Du bisher gepostet hast.

    Z. B. hast Du die Prozeduren vieleeicht mit unterschiedlichen Datensätzen gefüttert? Hast Du die Prozeduren in unterschiedliche Module gestellt? Usw.

    Vielleicht solltest Du mal 'nen Muster posten.

    Gruß
    Björn