---

Hvorfor får jeg "Type Mismatch" i linien

<Set rs = db.OpenRecordset(sqltxt)> ???

Hvad har jeg glemt/overset - Bruger Access97

Dim db As Database

-------------------------------------------------------------------------
Public Function selectsql(sqltxt As String) As Recordset


Dim rs As Recordset

Set rs = db.OpenRecordset(sqltxt)

Set selectsql = rs

End Function

Public Sub openConn()

Set db = OpenDatabase("c:\data.mdb", True)

End Sub
----------------------------------------------------------------------------

--
Mange venlige hilsner fra

Michael Michel Nielsen
Viborg - Denmark
e-mail: indy@indy.dk
icq: 3890577

- Krystere dør mange gange. - Helte kun een!

---

On Wed, 6 Feb 2002 19:43:26 +0100, "Michael Michel Nielsen"
<NOSPAMindy@indy.dk> wrote:

>
>Hvorfor får jeg "Type Mismatch" i linien
>
><Set rs = db.OpenRecordset(sqltxt)> ???
>
>Hvad har jeg glemt/overset - Bruger Access97
>
>Dim db As Database
>
>-------------------------------------------------------------------------
>Public Function selectsql(sqltxt As String) As Recordset
>
>
> Dim rs As Recordset
>
> Set rs = db.OpenRecordset(sqltxt)
>
> Set selectsql = rs
>
>End Function
>
>Public Sub openConn()
>
> Set db = OpenDatabase("c:\data.mdb", True)
>
>End Sub
>----------------------------------------------------------------------------

Du bruker trolig ett Where statement mot ett tekstfelt uten "fnutter".
Med "fnutter" så mener jeg tegnet '
F.eks;

SQL = "SELECT * FROM kunder WHERE navn = '" & Text1.Txt & "'"
Eller
SQL = "SELECT * FROM kunder WHERE navn = 'Nielsen'"

--
Snutten
Fjern helge og .invalid fra mailadressen før du svarer via mail.

---

Hej

>
> SQL = "SELECT * FROM kunder WHERE navn = '" & Text1.Txt & "'"
> Eller
> SQL = "SELECT * FROM kunder WHERE navn = 'Nielsen'"

Den SQL sætning jeg sender over hedder "SELECT * FROM HOUSE" ... og ikke
noget med fnutter :(


--
Mange venlige hilsner fra

Michael Michel Nielsen
Viborg - Denmark
e-mail: indy@indy.dk
icq: 3890577

- Krystere dør mange gange. - Helte kun een!

---

On Wed, 6 Feb 2002 21:43:54 +0100, "Michael Michel Nielsen"
<NOSPAMindy@indy.dk> wrote:

>Hej
>
>>
>> SQL = "SELECT * FROM kunder WHERE navn = '" & Text1.Txt & "'"
>> Eller
>> SQL = "SELECT * FROM kunder WHERE navn = 'Nielsen'"
>
>Den SQL sætning jeg sender over hedder "SELECT * FROM HOUSE" ... og ikke
>noget med fnutter :(

Tittet nok nøye nok på den første posting din
Trikset er å få recordset'et tilbake fra funksjonen.

Public Function selectsql(sqltxt As String) As Recordset
Set selectsql = db.OpenRecordset(sqltxt)
End Function

Private Sub Command1_Click()
Dim SQL As String, myrs As Recordset
SQL = "SELECT * FROM HOUSE"
Set myrs = selectsql(SQL)
MsgBox myrs.Fields(0)
myrs.Close
Set myrs = Nothing
End Sub

Vet ikke om jeg ville ha løst det på denne måten, men det virker da

--
Snutten
Fjern helge og .invalid fra mailadressen før du svarer via mail.