Forums Neueste Beiträge
 

Datensatz per ADO ändern - Änderung erfolgt nicht

28/08/2008 - 14:30 von Stefan Paesch | Report spam
Moin!

Ich habe eine Tabelle [tblAuftràge] mit zwei Spalten - [AuftragNr] und
[Status]
Bei beiden ist der Feldtyp = txt.
Es soll in die Spalte [Status] zu der Auftragsnummer, die die Varianle
AuftrNr
liefert, in des Feld "gesperrt" geschrieben werden.
Funktioniert nur leider nicht. Was mache ich falsch.


Private Sub btnSperren_Click()

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

With rs
.Open "tblAuftràge", CurrentProject.Connection,
adOpenKeyset, _
adLockBatchOptimistic
.Find "AuftragNr=" & vgAuftrNr 'globale Variable -
Auftragsnummer

If Not .EOF Then
' MsgBox (!AuftragNr) 'Zeiger steht richtig?
!Status = "gesperrt"
.Update
End If
.Close
End With
End Sub

Danke für Eure Hilfe.

Stefan (Acc2003, Win XP Pro SP3)
 

Lesen sie die antworten

#1 Henry Habermacher
28/08/2008 - 14:44 | Warnen spam
Hallo Stefan

Stefan Paesch wrote:
If Not .EOF Then
' MsgBox (!AuftragNr) 'Zeiger steht richtig?



Hier fehlt doch noch der
.Update


!Status = "gesperrt"
.Update
End If
.Close
End With
End Sub



Gruss
Henry


Microsoft MVP Office Access
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

Ähnliche fragen