---

Hi.

Jeg vil bruge flg: code for at søge en post i databasen .

//*
Dim db As Database
Dim rs As Recordset

Private Sub Form_Load()
Set db = OpenDatabase("C:\Program Files\SW production\Databases\Serie no

2 Item.mdb")
Set rs = db.OpenRecordset("dbo_serienumre")
rs.MoveFirst
orderno = rs.Fields("po")
itemno = rs.Fields("item")
End Sub

Private Sub cmdSearch_Click()
namequery = InputBox("Indtast Po nummer", "Name Query")
rs.MoveFirst
Set rs = db.Recordsets("SELECT item FROM dbo_serienumre WHERE po
=namequery")
orderno = rs.Fields("po")
itemno = rs.Fields("Item")
End Sub

//*

Men jeg får fejlen :

'Run-Time error '3265
'Item not found in this collection

Hvad mangler jeg i VBkoden ?


Hilsen pjl

---

Hejsa

"Per" <fam.pjlarsen@get2net.dk> wrote in message
news:3A967E89.F0BACE36@get2net.dk...
[CUT]
> Private Sub cmdSearch_Click()
> namequery = InputBox("Indtast Po nummer", "Name Query")
> rs.MoveFirst
> Set rs = db.Recordsets("SELECT item FROM dbo_serienumre WHERE po
> =namequery")
> orderno = rs.Fields("po")

det er din SQL streng den er galt med. følgende burde virke: SELECT item, po
FROM dbo_serienumre WHERE po=" & val(namequery)

Det sidste val er jeg ikke helt sikker på kommer lidt an på datatypen
(tal/streng) .

> itemno = rs.Fields("Item")
> End Sub
>
> file://*
>
> Men jeg får fejlen :
>
> 'Run-Time error '3265
> 'Item not found in this collection
>

Jeg skulle mene den brokker sig over orderno=rs.Fields("po") men den har du
ikke valgt at medtage i din SQL streng.

> Hvad mangler jeg i VBkoden ?
>
>
> Hilsen pjl
>
>
>

Jeg håber det løser problemet, ellers skriver du bare igen.

--
-Mads
---------------------------------------
man@aub.dk
ICQ: 17528869
EmbedIT website: http://www.aub.dk/~man

---

Tak for hurtigt svar. Undersøger det såsnart jeg er på serveren. !!

mvh per

Mads Andreasen wrote:

> Hejsa
>
> "Per" <fam.pjlarsen@get2net.dk> wrote in message
> news:3A967E89.F0BACE36@get2net.dk...
> [CUT]
> > Private Sub cmdSearch_Click()
> > namequery = InputBox("Indtast Po nummer", "Name Query")
> > rs.MoveFirst
> > Set rs = db.Recordsets("SELECT item FROM dbo_serienumre WHERE po
> > =namequery")
> > orderno = rs.Fields("po")
>
> det er din SQL streng den er galt med. følgende burde virke: SELECT item, po
> FROM dbo_serienumre WHERE po=" & val(namequery)
>
> Det sidste val er jeg ikke helt sikker på kommer lidt an på datatypen
> (tal/streng) .
>
> > itemno = rs.Fields("Item")
> > End Sub
> >
> > file://*
> >
> > Men jeg får fejlen :
> >
> > 'Run-Time error '3265
> > 'Item not found in this collection
> >
>
> Jeg skulle mene den brokker sig over orderno=rs.Fields("po") men den har du
> ikke valgt at medtage i din SQL streng.
>
> > Hvad mangler jeg i VBkoden ?
> >
> >
> > Hilsen pjl
> >
> >
> >
>
> Jeg håber det løser problemet, ellers skriver du bare igen.
>
> --
> -Mads
> ---------------------------------------
> man@aub.dk
> ICQ: 17528869
> EmbedIT website: http://www.aub.dk/~man