fange runtime error 3464 ?

skal lige sige at jeg har alt db behandlingen i en form, og indtastningerne i en anden form

Jeg ville fange den i forvejen istedet for at errorhandle på den.

set rs = conn.execute ("Select * from orders where orderID = '123456'")

if rs.eof then
  ..... ordren findes ikke
else
  ...... ordren findes - gør det med ordren du vil.
end if

//akj

oki, det vil jeg da prøve

er nok en skovl men dette giver fejl 424 object required ??

kriterie1 = "SELECT Stempling.medarbID, Stempling.maskinID, Stempling.ordreID, Stempling.dato, Stempling.time, Stempling.typeID, Stempling.stempelID, Stempling.bemanned, ArbejdsType.type FROM ArbejdsType INNER JOIN Stempling ON ArbejdsType.typeID = Stempling.typeID WHERE  medarbID = '" & medarb & "' and stempelID =  0  and ordreID = '" & ordrenr & "'"
Data1.RecordSource = kriterie1
If kriterie.EOF Then
MsgBox "ordren findes ikke"
Else
Data1.Refresh
Data1.Recordset.AddNew
Data1.Recordset("maskinID") = maskid + 1
osv..

kriterie1 = "SELECT Stempling.medarbID, Stempling.maskinID, Stempling.ordreID, Stempling.dato, Stempling.time, Stempling.typeID, Stempling.stempelID, Stempling.bemanned, ArbejdsType.type FROM ArbejdsType INNER JOIN Stempling ON ArbejdsType.typeID = Stempling.typeID WHERE  medarbID = '" & medarb & "' and stempelID =  0  and ordreID = '" & ordrenr & "'"
Data1.RecordSource = kriterie1
If Data1.EOF Then
MsgBox "ordren findes ikke"
Else
Data1.Refresh
Data1.Recordset.AddNew
Data1.Recordset("maskinID") = maskid + 1

Tror du skal gøre sådan...!

//>Rune

Her er et lille eks fra msdn, det matcher det du mangler meget godt

//akj


Dim Rs As Recordset
Data1.DatabaseName = "BIBLIO.MDB"
Data1.RecordSource =  _
  "Select * From TITLES where [Year Published] = 1994"
Data1.Refresh
Set Rs = Data1.Recordset
If Rs.RecordCount > 0 Then
  Do Until Rs.EOF
      Debug.Print Rs!Title
      Rs.MoveNext
  Loop
Else
  MsgBox "No titles in 1994."
End If

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/daprorecordsetx.asp

medion,, giver method or datamember not found på EOF ?

Prøv dette:

//akj

Dim Rs As Recordset

kriterie1 = "SELECT Stempling.medarbID, Stempling.maskinID, Stempling.ordreID, Stempling.dato, Stempling.time, Stempling.typeID, Stempling.stempelID, Stempling.bemanned, ArbejdsType.type FROM ArbejdsType INNER JOIN Stempling ON ArbejdsType.typeID = Stempling.typeID WHERE  medarbID = '" & medarb & "' and stempelID =  0  and ordreID = '" & ordrenr & "'"
Data1.RecordSource = kriterie1

Data1.Refresh
Set Rs = Data1.Recordset

If rs.EOF Then
MsgBox "ordren findes ikke"
Else
Data1.Recordset.AddNew
Data1.Recordset("maskinID") = maskid + 1

Eller:

Data1.Refresh
Set Rs = Data1.Recordset

If Rs.RecordCount < 1 Then
MsgBox "ordren findes ikke"
Else
Data1.Recordset.AddNew
Data1.Recordset("maskinID") = maskid + 1

giver data type mismatch in criteria expression ?

Det er fordi der er en fejl i din sql.

Din sql angiver at medarbId er en text og ordrenummer en text
stempel id er et tal .

Passer det med din DB ??

//akj

et lille tip.

Placer en textbox control på din form.
textsql.text = kriterie1

Kopier texten fra textsql og past den in i et sql query felt i access, se hvad fejl acces giver. Den er tit mere hjælpsom med fejlmeddelelser en vb.

Du kan også kopiere kriterie1 i debug mode.

//akj

medarbID er tekst (initialer) ordrenummer er tal, stempelID er tal?
og den virker, når bare der bliver tastet en ordre ind som eksisterer

... and ordreID = '" & ordrenr & "'"

Vil jeg ændre til :

... and ordreID = " & ordrenr

Hvorfor det virker hvis ordrenummer findes gør mig lidt forvirret.

//akj

hmmm hvis jeg gør som du foreslår kommer den med syntaks error og behandler ordrenummer som en streng

Har du prøvet at køre din sql i access ??


//akj

Hvis jeg stempler ind på ordre 10 stempler den fint ud på ordre 10 problemet er hvis jeg prøver at stemple ud på ordre 11 uden at være stemplet ind, så går den i fejl :-(

jeps, kører fint

Og du får fejlen: data type mismatch in criteria expression.

Kan du prøve at kopiere din sql (indholdet i kriterie1) og poste her ??

Kører den også fint med ordreId = 11 i access ??

så tror jeg sq det virker var de ' der skule fjernes, så nu ser det ud til at køre, forstår så ikke det ville køre hvis ordren er i db'en???

Fint, Jeg syntes også det var underligt at det virkede med 10'eren.

Tak for pts.
//akj