Prüfung Datensatz in Endlosformular Leer (Access)

Quatraxx, Samstag, 20. Mai 2017, 14:16 (vor 398 Tagen) @ Quatraxx

Habe es nun doch noch hinbekommen.

Ich habe eine Schleife angewendet die alle Datensätze durchgeht und bei einem nicht Treffer eine Variable auf False setzt.


Dim rsf As Recordset
Dim varProdID As Integer
Dim VarQryTMP Boolean
Dim VarQry Boolean

Set rsf = Me.RecordsetClone
rsf.MoveFirst
    Do Until rsf.EOF
        With rsf
  varProdID = rsf!proID
  VarQryTMP = CBool(DCount("preRabatt", "tblPreis", "lieferantenNameRef = 1 and proNameRef = " & varProdID))

  if (VarQryTMP = false) then VarQry = False
           
        End With
    rsf.MoveNext
Loop


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum