Select from foutmelding

[anlag1]

Goedemiddag allemaal,

Heb het volgende stukje code:

strSQL = "SELECT LISTNUMBER FROM tbl_documents WHERE LOCATION = '" & _
        [Forms]![frm_connections]![lstCompositeLoc] & "' AND DOCID = 'CON'"
          Set rst = dbs.OpenRecordset(strSQL)
         txtConlst = rst!LISTNUMBER

Zolang er records aanwezig zijn die aan de criteria voldoen gaat het goed, als er echter geen relevante
records aanwezig zijn komt er een foutmelding.
Hoe kan ik deze melding opvangen zodat de code niet wordt onderbroken?

Andre

 

[OctaFish]

Je opent de recordset en gaat gelijk naar het eerste record. Ik zou dus eerst checken met een If of er wel iets te halen is.

With Currentdb.Openrecordset(strSQL)
     If Not .EOF And .BOF Then Me.txtConlst = .Fields("ListNumber")
End With

Bijvoorbeeld

 

[anlag1]

Geweldig dankjewel,
werkt perfect
André

 

[anlag1]

Sorry, was een beetje te enthousiast geloof ik.
ik heb een msgbox onder End With geplaatst om de waarde uit te lezen
Krijg de melding oneigelijk gebruik van Null
de code ziet er nu zo uit

Dim dbs As DAO.Database
Dim strSQL As String

Set dbs = CurrentDb
   
    strSQL = "SELECT LISTNUMBER FROM tbl_documents WHERE LOCATION = '" & _
        [Forms]![frm_connections]![lstCompositeLoc] & "' AND DOCID = 'CON'"
 
    With CurrentDb.OpenRecordset(strSQL)
        If Not .EOF And .BOF Then Me.txtConlst = .Fields("ListNumber")
    End With
dbs.Close

André

 

[OctaFish]

Mag de vraag op <Opgelost>

 

[anlag1]

Maar ik had eigelijk nog een vraag

 

[OctaFish]

Mijn vorige post was ongeveer gelijk met die andere vraag van jou
overigens zie ik geen extra msgbox. Wat moet die doen, en waar staat die dan? En nog iets: de Set regel kan er uit.

 

[anlag1]

Idd msgbox vergeten,

Dim dbs As DAO.Database
Dim strSQL As String
 
    strSQL = "SELECT LISTNUMBER FROM tbl_documents WHERE LOCATION = '" & _
        [Forms]![frm_connections]![lstCompositeLoc] & "' AND DOCID = 'CON'"
 
    With CurrentDb.OpenRecordset(strSQL)
        If Not .EOF And .BOF Then Me.txtConlst = .Fields("LISTNUMBER")
    End With
    MsgBox Me.txtConlst

dbs.Close

André

 

[OctaFish]

Ik neem aan dat de msgbox wel werkt, want die is net gevuld. Wat de fout zou kunnen zijn (en waarschijnlijk is) is dat je nog twee regels mag weghalen. En wel die met dbs. Je sluit namelijk iets (dbs.Close) wat niet geopend is. En dat kan niet.

 

[anlag1]

Wat ik ook doe, krijg in alle gevallen IsNull met onderstaande code.
wat is er is mis met deze paar regels?

Dim strSQL As String

    strSQL = "SELECT LISTNUMBER FROM tbl_documents WHERE LOCATION = '" & _
        [Forms]![frm_connections]![lstCompositeLoc] & "' AND DOCID = 'CON'"
 
    With CurrentDb.OpenRecordset(strSQL)
        If Not .EOF And .BOF Then Me.txtConlst = .Fields("LISTNUMBER")
    End With
    
    If IsNull(Me.txtConlst) Then
    MsgBox "IsNull"
    End If

André

 

[OctaFish]

Maar doet de code het wel zonder de msgbox? Zoals je eerder aangaf?

 

[anlag1]

In een formulier staat een listbox [lstCompositeLoc] daarbij een textbox [txtConlst].
als een listnumber gevonden wordt moet dit zichtbaar worden in de textbox.
wordt een listnumber niet gevonden dan moet de textbox leegblijven.
De bovenstaande code geeft geen foutmelding, maar de inhoud van de textbox is altijd "IsNull" en blijft dus ten alletijde leeg.
Dit terwijl ik weet dat er listnumbers aanwezig zijn, en worden ook getoont met de code waarmee ik deze topic ben begonnen.
En om je vraag te beantwoorden, met of zonder msgbox maakt bij deze code niet uit.

André

 

[Nico84]

Denk dat de strSQL niet goed is, maar mijn kennis is niet geweldig.
Probeer dit eens.

strSQL = "SELECT LISTNUMBER FROM tbl_documents " _
 & "WHERE ((LOCATION) ='" & me.lstCompositeLoc & "'") AND ((DOCID) = 'CON')"

 

[OctaFish]

Niet zozeer een kwestie van weinig kennis van SQL, als wel niet kunnen tellen van haakjes

& "WHERE (LOCATION ='" & Me.lstCompositeLoc & "'" AND DOCID = 'CON')"

 

[Nico84]

Was op goede weg .

Als je een query maakt in de ontwerpweergave en vervolgens overschakelt naar de SQL weergave
zet Access wel al die haakjes neer.

Waarschijnlijk zal hij met die haakjes ook werken, maar ze zijn blijkbaar overbodig. Dus weghalen maar.

 

[OctaFish]

Bij Microsof zijn ze gek op haakjes; als je een query maakt met een criterium vind je meer haakjes in de code dan een gemiddelde visclub per jaar verslijt. Ik gooi de overbodige meestal gelijk weg, zodat de code leesbaarder wordt, en je ziet waar een haakje bij hoort (functies bijvoorbeeld).

 

[anlag1]

Ook de haakjes hebben geen verbetering gebracht.
heb een mdb bijgevoegd, hopelijk werpt dat een helder licht op dit probleem.

André

 

[Nico84]

Not vergeten bij .BOF

Dim strSQL As String


    strSQL = "SELECT LISTNUMBER FROM tbl_documents " _
    & "WHERE (LOCATION = '" & Me.lstCompositeLoc & "' AND DOCID = 'CON')"
    
    
    With CurrentDb.OpenRecordset(strSQL)
        If Not .EOF And Not .BOF Then
                Me.txtConlst = .Fields("LISTNUMBER")
        End If
    End With

 

[anlag1]

Hoe simpel kan het zijn,
Bedankt heren voor jullie reply's
Gr.
André