Print side | Luk vindue

Formular med advisering om ændrede poster

Udskrevet fra: Dansk Access Forum
Kategori: Hjælp til Access
Forum navn: VBA / Makro
Forum beskrivelse: Spørgsmål vedr. den programmeringsmæssige del af Access
Web-adresse: https://www.accessforum.dk/forum_posts.asp?TID=114
Udskrevet den: 29-04-2024 kl. 08:55


Emne: Formular med advisering om ændrede poster
Besked fra: tosv
Emne: Formular med advisering om ændrede poster
Posteringsdato: 16-11-2017 kl. 11:31
Jeg har en MS ACCESS 2013 formular, som viser antallet af ændrede poster i tabellen "forplejning".
Med DCOUNT optælles records, hvor feltet "Noteropdateret" er hakket af og antallet vises sammen med en besked i en ubundet celle.
 
I mit IF statement tester jeg på om antallet af opdateringer er større end 0. Jeg vil gerne tilføje en betingelse (AND) der tester på om feltet sted er = 1 eller 2.
 
Jeg mangler hjælp til at syntaxen.
 
 
 
Private Sub Form_Load()
Dim NoterOpdateret As Integer

NoterOpdateret = DCount("ID", "Forplejning", "[NoterOpdateret] = True")
If NoterOpdateret > 0 Then
Me.lblOpdateret = "Du har " & NoterOpdateret & " Arrangementsændring(er). Husk at udskrive nye køkkenlister."
Me.lblOpdateret.ForeColor = vbRed
ElseIf NoterOpdateret = 0 Then
Me.lblOpdateret = "Ingen ændringer!"
Me.lblOpdateret.ForeColor = vbBlack
End If

End Sub
 


Svar:
Besked fra: hkh
Posteringsdato: 16-11-2017 kl. 14:18
Du bør nok ændre hændelse til aktuel post frem for form load, ellers vil du kun få optalt dine ændringer når formularen åbnes.

Hvor vil du teste på sted?
Hvad ønsker du der skal ske hvis sted er 1/2?

If NoterOpdateret > 0 and (sted=1 or sted=2)Then

Hvis det kun er en betingelse, kan ovenstående måske gøre jobbet

-------------
Hans


Print side | Luk vindue