Smart måde til at opdatere flere poster simultant

linket til formularen virker ikke.

Sorry, her er det korrekte link:
http://www.frederikschack.dk/billeder/Overkoersel03.bmp

Du kna gøre det meget simpelt, ved at filtrere dine poster og når du har gjort det, gennemløbe dem med denne kode

Private Sub Kommandoknap6_Click()
DoCmd.GoToRecord acForm, "frm", acFirst
Do Until Me.NewRecord = True
Me.status = Me.Kombinationsboks4
DoCmd.GoToRecord acForm, "frm", acNext, 1
Loop
End Sub

Hej Mugs,

Undskyld det sene svar. Hvad er Me i den her sammenhæng? Er det ikke formularen? Men frm er også formularen?

Det er måske lidt uhensigtsmæssigt med sådan en knap, hvis man f.eks. glemmer at filtrere dataene først. Men jeg skal nok over i noget vba.

Me. er det rereverede betegnende den altid aktuelle formular. Det kan erstattes af [Forms]![frm]![FLETNAVN]

Frm er navnet på formularen.

For at sikre, at formularen er filtreret kan du indsætte en betingelse således:

If Me.FilterOn = False Then
MsgBox "Der er ikke sat filter på formularen." & vbNewLine & "Procedüren forlades."
Exit Sub
Else
DoCmd.GoToRecord acForm, "frm", acFirst
Do Until Me.NewRecord = True
Me.status = Me.Kombinationsboks4
DoCmd.GoToRecord acForm, "frm", acNext, 1
Loop

End If

Aha, så "me" er som "this" i Java.

Ok, så begynder det at blive interessant.

Jeg har bare et problem, jeg kan ikke filtrere efter en række af kolonnerne der er baseret på funktionen column, f.eks. [Overkørsel].[column](2).

Får du nogen fejlmeddelelse?

Hej Mugs,

Næh, den deaktiverede bare filtrerings ikonet, men så lavede jeg bare filtreringen ved hjælp af VBA og det virkede fint.