Brug af SELECT forespørgsel i vba

Dim Db as database, Rs as Recordset, StrSQL as string
Db=CurrentDB

strSql=" X SELECT TOP 1 Left([PalleNr],1) AS pnrs
FROM Registrering
WHERE (((Registrering.VaelgLinie)=[forms]![oppetid]![subformoppetid]![vaelglinie]) AND ((Registrering.VaelgHold)=[forms]![oppetid]![subformoppetid]![vaelghold]) AND ((Registrering.GrafDato)=[forms]![oppetid]![subformoppetid]![grafdato]));"

Set rs = db.OpenRecordset(strSQL)

me.pallenr=rs.fields("pnrs") & "SA"

Det er vist mere end en kommentar, nåh men jeg prøver lige. Så må jeg også se om jeg kan finde ud af at "knække" linien i vba'en, altså med & _

Jeg prøver!~)

strSql=" X SELECT TOP 1 Left([PalleNr],1) AS pnrs FROM Registrering" & _
"WHERE (((Registrering.VaelgLinie)=[forms]![oppetid]![subformoppetid]![vaelglinie])" & _
"AND ((Registrering.VaelgHold)=[forms]![oppetid]![subformoppetid]![vaelghold])" & _ "AND ((Registrering.GrafDato)=[forms]![oppetid]![subformoppetid]![grafdato]));"


Alternativt kan du bruge:
Strsql="Selec....."
Strsql=strsql & "næste linie"

o.s.v.

Jeg kan ikke finde ud af at få strsql'en sat sammen i vba!~(

Hov, jeg prøver lige dit forslag!~)

Det er stadigvæk rød skrift...

StrSql="SELECT TOP 1 Left([PalleNr],1) AS pnrs FROM Registrering"
strsql=strsql & " WHERE (((Registrering.VaelgLinie)=[forms]![oppetid]![subformoppetid]![vaelglinie])"
strsql=strsql & " AND ((Registrering.VaelgHold)=[forms]![oppetid]![subformoppetid]![vaelghold])"
strsql=strsql & " AND ((Registrering.GrafDato)=[forms]![oppetid]![subformoppetid]![grafdato]));"

og der er invalid use of property ved Db = CurrentDb

Det skyldes en forkert placeret _ i den sidste linie. Prøv med

strSQL = " X SELECT TOP 1 Left([PalleNr],1) AS pnrs FROM Registrering" & _
"WHERE (((Registrering.VaelgLinie)=[forms]![oppetid]![subformoppetid]![vaelglinie])" & _
"AND ((Registrering.VaelgHold)=[forms]![oppetid]![subformoppetid]![vaelghold])" & _
"AND ((Registrering.GrafDato)=[forms]![oppetid]![subformoppetid]![grafdato]));"

13:30:56> det åd den!~)

sjap> det virkede også!~)

Så er der bare den compile error med invalid use of property...

Jeg tror nok, at du skal ha' reference til DAO3.6

Først beklagede den sig om Dim Db as database, men den gik videre til Db = CurrentDb, da jeg lavede en reference til DAO 3.6

hov, ja det virkede jo så ikke?~)

Du skal tilføje reference til Microsoft DAO 3.6 object library

Det er irriterende at man ikke kan opdatere siden inden man sender sin kommentar uden at skulle copy/paste....

Den sætning skal vist skrives som:

Set Db = CurrentDb()

set db=currentdb

20 sek for langsom!

;0)

13:37:00> det har jeg gjort, men det virker ikke se 13:36:07, men skal jeg prioritere DAO 3.6 object library højere end nogle af de andre referencer?

Og for en god ordens skyld skal du afslutte med
set rs=nothing
set db=nothing

Jeg var vist også lidt langsom!~)

Det er korrekt madschristensen - og vigtigt!

Virker det nu ?

Nej, lige et øjeblik...

Den påstår at jet database maskinen ikke kan finde input tabellen eller forespørgslen?~(

Hvis jeg sætter den oprindelige sql ind i en forespørgsel kommer det rigtige svar..

Den stopper i vba'en ved Set Rs = Db.OpenRecordset(StrSql)

Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)

Prøv lige at sammenligne den oprindelige SQL med den i vba! Hvad er det for et X, der har sneget sig ind allerførst?

Det har jeg også undret mig over!~)

*smiler* Troede i havde set det - det var bare mig...... Genvejstaster kan være gode - og.... øh.... ;O))

;0)

Der er en syntaksfejl i FROM-sætningen

Der mangler vist lidt mellemrum. Prøv med

strSQL = "SELECT TOP 1 Left([PalleNr],1) AS pnrs FROM Registrering " & _
"WHERE (((Registrering.VaelgLinie)=[forms]![oppetid]![subformoppetid]![vaelglinie]) " & _
"AND ((Registrering.VaelgHold)=[forms]![oppetid]![subformoppetid]![vaelghold]) " & _
"AND ((Registrering.GrafDato)=[forms]![oppetid]![subformoppetid]![grafdato]));"

Ja, nu er  den gået videre til Set Rs = Db.OpenRecordset(strSQL) og siger at den forventede 3 parametre...

Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)

Det har jeg også prøvet..

Jeg ved ikke lige om det gør nogen forskel, men prøv lige

Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

Jeg kan ikke huske hvad den som standard er... Forventer 3 parametre ???

For QueryDef, Recordset, and TableDef objects:

Set recordset = object.OpenRecordset (type, options, lockedits)

The OpenRecordset method syntax has these parts.

Part Description
recordset An object variable that represents the Recordset object you want to open.
object An object variable that represents an existing object from which you want to create the new Recordset.
source A String specifying the source of the records for the new Recordset. The source can be a table name, a query name, or an SQL statement that returns records. For table-type Recordset objects in Microsoft Jet databases, the source can only be a table name.
type Optional. A constant that indicates the type of Recordset to open, as specified in Settings. 
options Optional. A combination of constants that specify characteristics of the new Recordset, as listed in Settings.
lockedits Optional. A constant that determines the locking for the Recordset, as specified in Settings.

Så jeg kan ikke helt forstå de 3 parametre?

Prøv lige den her

strSQL = "SELECT TOP 1 Left([PalleNr],1) AS pnrs FROM Registrering" & _
"WHERE (((Registrering.VaelgLinie)=" & [Forms]![oppetid]![subformoppetid]![vaelglinie] & ") " & _
"AND ((Registrering.VaelgHold)=" & [Forms]![oppetid]![subformoppetid]![vaelghold] & ") " & _
"AND ((Registrering.GrafDato)=" & [Forms]![oppetid]![subformoppetid]![grafdato] & "));"

Mit gæt er, at de 3 parametre er de tre referencer til felter på en formular. Umiddelbart en lidt kryptisk fejlmeddelelse, men et eller andet sted er den nok ok.

syntaksfejl i FROM sætningen

der måske lige et mellemrum, der stadig spøger?

strSQL = "SELECT TOP 1 Left([PalleNr],1) AS pnrs FROM Registrering " & _
"WHERE (((Registrering.VaelgLinie)=" & [Forms]![oppetid]![subformoppetid]![vaelglinie] & ") " & _
"AND ((Registrering.VaelgHold)=" & [Forms]![oppetid]![subformoppetid]![vaelghold] & ") " & _
"AND ((Registrering.GrafDato)=" & [Forms]![oppetid]![subformoppetid]![grafdato] & "));"

Det er jeg enig i!

Nu siger den at der er en syntaksfejl, fordi der mangler en operator i forespørgselsudtrykket "(((registrering.vaelglinie)=Linie 70) AND ((Registrering.vaelghold)=Dagshold) AND ((Registrering.Grafdato)=10-08-2005))"

Den har da ellers fundet rigtig linie/hold/dato?

Du bliver da også ved! ;0)

Hvis vaelglinie er en streng, Vaelghold er en streng og grafdato er en dato, skal SQL'en ændres til:

strSQL = "SELECT TOP 1 Left([PalleNr],1) AS pnrs FROM Registrering " & _
"WHERE (((Registrering.VaelgLinie)='" & [Forms]![oppetid]![subformoppetid]![vaelglinie] & "') " & _
"AND ((Registrering.VaelgHold)='" & [Forms]![oppetid]![subformoppetid]![vaelghold] & "') " & _
"AND ((Registrering.GrafDato)=#" & [Forms]![oppetid]![subformoppetid]![grafdato] & "#));"

sjap>ja!~(

Nu er der type mismatch og jeg har prøvet dbopensnapshot, dbopendynaset og uden...

Ok - gør noget andet. Gem forespørgslen med et sigende navn - eks: test
Skriv så:
Dim Db As Database
Dim Rs As Recordset

    Set db = currentDb
    Set rs=db.openrecordset("Test", dbOpenSnapShot)

me.pallenr=rs.fields("pnrs") & "SA"

set rs=nothing
set db=nothing


Så slipper du for vba syntax til forespørgslen.

Er du sikker på at
  Vaelglinie er en streng?
  Vaelghold er en streng?
  Grafdato er en dato? - og ikke blot en streng, der ligner en dato?

én af dem må være forkert - det tyder fejlmeddelelsen på.

hvis jeg prøver 14:40:06 så begynder den på det med de forventede 3 parametre. Hvis jeg dbl klikker på forespørgslen, så kommer den med det rigtige svar (nemlig 4)..

vaelghold og vaelglinie er text
grafdato er date/time (short date)

Dim Db As Database
Dim Rs As Recordset

    Set db = currentDb
    Set rs=db.openrecordset("Test")

me.pallenr=rs.fields("pnrs") & "SA"

set rs=nothing
set db=nothing

sorry!~(

hmm ???

Der er for få parametre. Der var ventet 3.
og så stopper debug ved
Set Rs = Db.OpenRecordset("PalleNrSampak") også selvom jeg bruger dbopensnapshot eller dbopendynaset...

Too few parameters. Expected <number>. (Error 3061)
This parameter query requires the specified number of parameters, which you did not supply. Provide the expected number of parameters, and run the query again.

In some cases, this message is generated when unknown field names or expressions are interpreted as query parameters. Be sure to enclose field names containing spaces or punctuation with square brackets [ ].

strSQL = "SELECT TOP 1 Left([PalleNr],1) AS pnrs FROM Registrering " & _
"WHERE (((Registrering.VaelgLinie)='" & [Forms]![oppetid]![subformoppetid]![vaelglinie] & "') " & _
"AND ((Registrering.VaelgHold)='" & [Forms]![oppetid]![subformoppetid]![vaelghold] & "') " & _
"AND ((Registrering.GrafDato)=#" & DateValue([Forms]![oppetid]![subformoppetid]![grafdato]) & "#));"

Hvad nummer har den runtime error ?

Hov det var lige hurtigt nok. Prøv i stedet med

strSQL = "SELECT TOP 1 Left([PalleNr],1) AS pnrs FROM Registrering " & _
"WHERE (((Registrering.VaelgLinie)='" & [Forms]![oppetid]![subformoppetid]![vaelglinie] & "') " & _
"AND ((Registrering.VaelgHold)='" & [Forms]![oppetid]![subformoppetid]![vaelghold] & "') " & _
"AND ((Registrering.GrafDato)=DateValue(" & [Forms]![oppetid]![subformoppetid]![grafdato] & ")));"

;O)

Ja og så skal der faktisk lige en rettelse mere til. Funktionen Datavalue skal have en streng at arbejde med, så

strSQL = "SELECT TOP 1 Left([PalleNr],1) AS pnrs FROM Registrering " & _
"WHERE (((Registrering.VaelgLinie)='" & [Forms]![oppetid]![subformoppetid]![vaelglinie] & "') " & _
"AND ((Registrering.VaelgHold)='" & [Forms]![oppetid]![subformoppetid]![vaelghold] & "') " & _
"AND ((Registrering.GrafDato)=DateValue('" & [Forms]![oppetid]![subformoppetid]![grafdato] & "')));"


spg > Hvis du foretrækker at fortsætte med madschristensens forslag, så sig lige til. Så er der jo ikke nogen grund til at jeg fortsætter med den anden løsning ;0)

jeg kæmper med begge...

Hvis det er muligt for dig at sende databasen, kan jeg godt kigge nærmere på den. Du kan evt. "strippe" den, så den kun indeholder det der kræves for at undersøge problemet. Jeg kan dog kun læse Access 97 og 2000 ;(

Dim Db As database, Rs As Recordset, strsql As String

Set Db = CurrentDb

strsql = "SELECT TOP 1 Left([PalleNr],1) AS pnrs FROM Registrering " & _
"WHERE (((Registrering.VaelgLinie)='" & [Forms]![Oppetid]![SubformOppetid]![VaelgLinie] & "') " & _
"AND ((Registrering.VaelgHold)='" & [Forms]![Oppetid]![SubformOppetid]![VaelgHold] & "') " & _
"AND ((Registrering.GrafDato)=DateValue('" & [Forms]![Oppetid]![SubformOppetid]![GrafDato] & "')));"

Set Rs = Db.OpenRecordset(strsql, dbOpenSnapshot)
Me.PalleNr = Rs.Fields("pnrs") & "SA"
Set Rs = Nothing
Set Db = Nothing

Giver type mismatch..

og forresten skal jeg lige have en desc med:~)

SELECT TOP 1 Left([PalleNr],1) AS pnrs
FROM Registrering
WHERE (((Registrering.VaelgLinie)=[forms]![oppetid]![subformoppetid]![vaelglinie]) AND ((Registrering.VaelgHold)=[forms]![oppetid]![subformoppetid]![vaelghold]) AND ((Registrering.GrafDato)=[forms]![oppetid]![subformoppetid]![grafdato]))
ORDER BY Left([PalleNr],1) DESC;

det er xp

Kan jeg få dig til at stoppe programmet (med et breakpoint umiddelbart efter den har lavet strSQL - dvs. i linien med Set Rs = Db.OpenRecordset(strsql, dbOpenSnapshot)

Og så skal du gå over i vinduet Fejlfinding (eller Immediate hedder det vist på engelsk), og skal du skrive

?strsql
og trykke på Enter. Så skriver den værdien af strsql. Kopier den herud, så kan vi se hvad der står.

Dim DB As DAO.Database, Def As DAO.QueryDef, Rs As DAO.Recordset
  Set DB = CurrentDb()
  Set Def = DB.QueryDefs("Query1") '<---Her skriver du forespørgselsnavn
  Set Rs = Def.OpenRecordset(dbOpenDynset)

 
  Rs.Close
  Rs.Close

Ja - god ide!

Den med parametrene igen...

http://support.microsoft.com/default.aspx?scid=kb;en-us;210244 fortæller om den fejl. Men løsningen burde være der...

Jeg kan løse det på en anden måde, der står en formular åben med svaret i.

Dim prns
DoCmd.GoToRecord acDataForm, "SubformOppetid", acLast
prns = Left(Form_SubformOppetid.PalleNr, 1)

Det eneste problem her er at debuggen påstår at subformoppetid ikke er åben, formularen oppetid er åben og her ligger subformoppetid..

Har lige en hasteopg.... så jeg er lige væk et stykke tid...

Jeg er nød til at gå nu, men jeg bukker og takker for indsatsen og ligger nogle points ud imorgen. Men der altså 30 point til den der lige kan løse 15:39:23
Formularen oppetid, som er åben indeholder en underformular kaldet subformoppetid og her er der et felt, der hedder pallenr og hvis man står i sidste post, så skal jeg bruge tallet til venstre i pallenr!~)

madschristensen> !~)
sjap> !~)

madschristensen> http://www.eksperten.dk/spm/639174
sjap> http://www.eksperten.dk/spm/639175

Og så vil jeg selv kæmpe med om den endelige løsning, som udløser de oprindelige 30 point!~)

M.h.t. 15:39:23 - Hvad hedder den forespørgsel der ligger bag formularen?

spg - kan du ikke maile databasen ?

spg > Hvis det er muligt for dig, kan det være en rigtigt god ide at sende mailen til madschristensen (min Access er jo desværre for gammel). Hvis ikke så synes jeg du skulle prøve det som jeg skrev 10/08-2005 15:22:45  Det giver en bedre mulighed for os "herude" at se, hvad det er, der sker.

Jeg har besluttet mig for at lukke spørgsmålet, fordi at jeg forudser andre problemer efter at dette er løst, så jeg omstrukturerer lidt. Det har noget at gøre med sortering af tal, defineret som tekst. Det har noget at gøre med de her pallenumre, når de bliver på flere cifre. I det hele taget laver jeg det lidt om for at gøre hovedformularen, så entydig som mulig. (Samtidig kan jeg gøre det simplere for mig selv!~)

Det er dog hårdt at skulle lade et problem ligge uløst og jeg håber ikke i ligger vågne i nat, men vi har sikkert alle andre projekter, der kunne bruges lidt tid på!~)

Takker, over & out........
mvh spg

Ok - håber du finder en god løsning ;O))

Bare rolig. Nattesøvnen kunne det ikke forstyrre. Der skal mere til ;0)