opdater tabel

VognId    BogNr    TurNr
1    1    1
1    0    2
1    0    3
1    0    4
1    0    5
1    0    6
1    2    7
1    0    8
1    0    9
1    0    10
1    3    11
1    0    12
2    1    1
2    0    2
2    0    3
2    0    4
2    2    5
2    0    6
2    0    7
2    0    8
3    1    1
3    0    2
3    0    3
3    2    4
3    0    5
3    0    6

Prøv!~)

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim Bnr As Long

Set db = CurrentDb()
Set rst = db.OpenRecordset("NavnPåTabel")
With rst
.Movefirst
Bnr = !BogNr
Do
if !BogNr = 0 then
!BogNr = Bnr
Else
Bnr = !BogNr
End If
.MoveNext
Loop Until .EOF
.Close
End With

skal jeg lave det i en function ?

Du kan også bare ligge det på en knap:

Private sub NavnKnap_Click()
koden
End sub

Er nød til at smutte, kigger forbi imorgen eller iaften!~)

Hvordan går det!~)

jeg kan ikke få det til at funger. Er først hjemme fredag formiddag

Hej spg. Jeg har prøvet at sætte kode ind i en knap:
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim Bnr As Long

Set db = CurrentDb()
Set rst = db.OpenRecordset("tbl200")
With rst
.MoveFirst
Bnr = felt1001
Do
If !felt1001 = 0 Then
felt1001 = Bnr
Else
Bnr = felt1001
End If
.MoveNext
Loop Until .EOF
.Close
End With

jeg har bytte bognr ud med felt1001. Og nå jeg trykker på knappen sker der ikke noget

Måske!~)

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim Bnr As Long

Set db = CurrentDb()
Set rst = db.OpenRecordset("tbl200")
With rst
.MoveFirst
Bnr = felt1001
Do
If !felt1001 = 0 Then
.edit
felt1001 = Bnr
.update
Else
.edit
Bnr = felt1001
.update
End If
.MoveNext
Loop Until .EOF
.Close
End With

ellers hvis du ikke kan få det til at køre, så lav en fortløbende formular med tbl200, som postkilde og så brug:

dim r as dao.recordset
dim bnr
set r = me.recordset
bnr=me.felt1001
do until r.eof
if me.felt1001 = 0 then
me.felt1001=bnr
else
bnr=me.felt1001
end if
r.movenext
loop

kikke på det