🚀 go-pugleaf

Użytkownik "MaciejF"  napisał w wiadomości grup 
dyskusyjnych:3dba9a86-1130-4922-812d-2c6c953d8e1f@googlegroups.com...

Witaj,
Zbigniewowi chodziło raczej o użycie zmiennej strId_Kryt w funkcji 
Filtruj():

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] ='" & strId_kryt & "'")

If IsNull(DLookup("[kryt_pow2]", "Kryteria_3", "[GU] = '" & strId_kryt & 
"'")) Then
         MsgBox "Brak kryterium = " & strId_kryt
     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

--------------------------------
A czy ta zmienna strId_Kryt  nie powinna być zdefiniowana ?

pozdrawiam