🚀 go-pugleaf

bo DLookup zwraca Ci Null

wstaw ten kod tutaj i przetestuj:

   If IsNull(DLookup("[kryt_pow2]", "Kryteria_3", "[GU] = '" &
strId_kryt & "'")) Then
         MsgBox "Brak kryterium = " & strId_kryt
     Exit Sub
   End If

----------------------------------

Poprawiłem i działa. Dziękuję za pomoc :)
Jako kryterium pierwszego DLookUp zagnieździłem drugi DLookUp bedący źródłem 
pola Kryt3
na formularzu. Nie wiem dlaczego jawne odwołanie się do pola Kryt3 zwraca 
Null.
Konieczne było jednak formatowanie zwracanego z pierwszego DLookUp kryterium
do kwerendy wg sposobu zaproponowanego przez Macieja.
Jego pierwotny zapis w tabeli Kryteria_3 jest taki
A1 ; B1 ; C1
a zrozumiały dla Accessa jest taki
"A1";"B1";"C1"

Pewnie takie skakanie pomiędzy DLookUp'ami nie jest za bardzo wydajne
ale nie zauważyłem jak na razie negatywnych skutków w mojej bazie.

Private Sub Polecenie37_Click()
   Call Filtruj(Kryt3)
End Sub
'---------------------------------------------------------
Private Sub Filtruj(strId_kryt As String)
Dim qryTmp As DAO.QueryDef
Dim sWhere  As String

sWhere = DLookup("kryt_pow2", "Kryteria_3", "[GU] ='" & DLookup("[Grupa]", 
"Par1") & "'")

If IsNull(DLookup("[kryt_pow2]", "Kryteria_3", "[GU] = '" & 
DLookup("[Grupa]", "Par1") & "'")) Then
         MsgBox "Brak kryterium = " & DLookup("[Grupa]", "Par1")
     Exit Sub
End If


sWhere = String$(1, 34) & Replace(Trim([sWhere]), Chr(59), String$(1, 34) & 
Chr(44) & String$(1, 34)) & String$(1, 34)
sWhere = Replace(sWhere, Chr(32) & Chr(34), Chr(34))
sWhere = Replace(sWhere, Chr(34) & Chr(32), Chr(34))
  'Usuń tymczasową kwerendę
   On Error Resume Next
     DoCmd.DeleteObject acQuery, "qTemp"
   If Err.Number <> 0 Then Err.Clear
   On Error GoTo 0

   Set qryTmp = CurrentDb.CreateQueryDef("qTemp", _
       "SELECT Imp_temp.* FROM Imp_temp WHERE F14 IN (" & sWhere & ")")

   DoCmd.OpenQuery qryTmp.Name, acViewNormal

End Sub

pozdrawiam
leku