vbstreets konferencia - Téma megtekintése - dátum hozzáférési
1. Van egy asztal ingatlan.
2. Az objektum alapján azonosítjuk azonosító ( „ID tárgy”)
3. Az objektumoknak végének időpontja ( "End Date")
4. A lekérdezés összes találat kijelölése, ahol a végső dátum kisebb vagy egyenlő, mint az aktuális dátum.
5. lépés az első rekord
6. Ha a befejező dátum kisebb, vagy egyenlő, mint a 7. ( „hét”), majd rögzítse a „Object ID” az aktuális rekord egy tömbben.
7. lépés a nyomvonalat. felvétel. (Ciklus amíg .eof)
8. Mi a figyelmeztetést, mondván, hogy „az élet bizonyos tárgyak hamarosan véget ér”
9. Nyissa alak csak azokat a rekordokat, ahol az „ID Object” = az adatokat a tömb.
Private Sub Form_Open (Mégsem As Integer)
Dim okdate, okdate2, MSG, dt, df, d, m, y As String
Dim SSD dátuma
Dim ar As String „Array, hogy valószínűleg
okdate = DateValue (Most ()) „a két területen lekérdezés "ID Object" és "vége" dátum, a "vége" dátum> = [N]
A CurrentDb.QueryDefs ( "End Date")
.Paraméterek ( "N") = okdate
a .openrecordset
Ha nem .EOF Aztán
.MoveFirst
csinál
dt = .Fields ( "End Date")
d = Nz (Bal (dt, 2), "") `nap
m = Nz (Mid (dt, 4, 2), "") `hónapban
y = NZ (Jobb (dt, 4), "") `év (jobb?)
SSD = d "" m "" y
df = DateDiff ( „d”, SSD, Most) `meghatározva, mint például, a különbség a napok között az aktuális dátum és befejező dátum
Ha df <= "7" Then
ar = .Fields ( „ID tárgy”) `hogyan kell valamit írt a tömbben
.MoveNext
más
.MoveNext
End If
Hurok Amíg .EOF
End If
végződésű
végződésű
Ha ar = NULL, akkor `ha a tömb üres
Exit Sub `hagyja
más
msg = MsgBox ( "Vannak tárgyak, amelyek távú hamarosan véget ér!", vbYesNo + vbCritical, "Figyelem!")
Ha msg = vbYes Aztán
DoCmd.OpenForm "tárgy". [ID Object] = ar `adatok "Object ID" a tömb (több bejegyzést)
más
Exit Sub
End If
End If
End Sub
A legösszetettebb büntetőügyekben.
de nem könnyebb a dátum szerinti szűrést, hogy írjon közvetlenül a sorban szűrő maga a forma?
Nos, ha az eljárás a következő:
Kód: Egész kiválasztása
Dim ar karaterlánccá
Ha ar = „” Akkor
ar = "[ID Object] =" .Fields ( „ID Object»)«szűrő van kialakítva egy mező értéke
más
ar = ar "Vagy [ID Object] =" .Fields ( „ID tárgy”) „még több értéket, ha van ilyen
End If
DoCmd.OpenForm "tárgy". ar
nem, ez nem fog működni.
először meg kell tölteni egy tömb (például, nem tudom)
majd nyissa meg az űrlapot, hogy ne VAGY és ÉS
Az Ön választása, csak két lehetőség van
vagy nyissa meg az űrlapot az utolsó bejegyzés (mint most)
vagy HZ mi történik)))
Ezután a ciklus, hogy szükséges.
ar = ar "Vagy [ID Object] =" .Fields ( „ID tárgy”) „még több értéket, ha van ilyen
Hozzáadott még egy értéket, mint például a.
A legösszetettebb büntetőügyekben.
Forlaw írta (a): Nem, ez nem fog működni.
először meg kell tölteni egy tömb (például, nem tudom)
majd nyissa meg az űrlapot, hogy ne VAGY és ÉS
Hoztam egy darab kódot, amely kialakult a „tömb” ar. vonal, ahol Vagy a listákat mezőértékeket [ID a tárgy]. És csak semmi nem történik. Nyolc nem lehet egyidejűleg az első öt és kilenc
[/ Quote]
így lenne:
kód betét készül szöveges formában, így nem tudom pontosan követni a fészkelési
Kód: Egész kiválasztása
Ha df <= "7" Then
Ha ar = „” Akkor
ar = "[ID Object] =" .Fields ( „ID Object»)«szűrő van kialakítva egy mező értéke
más
ar = ar "Vagy [ID Object] =" .Fields ( „ID tárgy”) „még több értéket, ha van ilyen
End If
.MoveNext
más
.MoveNext
End If
és általában jobb, hogy egy egyenes Keresés dátum, és nem a város ciklusok összehasonlításokkal