gegevens veranderen van 1 record

[JEPEDEWE]

Hallo,
Ik heb, denk ik, een wel erg ongewone manier om de gegevens van 1 record te veranderen en ik denk dat het eigenlijk veel korter en handiger kan

Dim db As Database
Dim TB As Recordset
Dim sql As String

Set db = CurrentDb()
sql = "SELECT Setup.ID, Setup.CODE FROM Setup WHERE Setup.ID=1;"
Set TB = db.OpenRecordset(sql)

TB.Edit
TB!CODE = "123"
TB.Update

iemand een tip?
Voor alle duidelijkheid, deze code werkt, maar ik denk dat het niet echt nodig is een recordset aan te maken om het veld van 1 record aan te passen

Bedankt
JP

 

[Pletter]

zoiets

Dim st As Integer

st = 1
me.ID.SetFocus
DoCmd.FindRecord st
me.ID="123"

 

[NoellaG]

Dat hangt er vanaf van waar je het record probeert aan te passen. Wordt het record in een formulier weegegeven dan kan je dat natuurlijk gewoon rechtstreeks in het formulier aanpassen. Als je een record wil aanpassen dat niet in het formulier wordt weergegeven kan je, naast de code die je gegeven hebt, ook een update query gebruiken, of een adodb.command object, maar dan heb je terug een stuk code .
Bottom line: om een recordset aan te passen die niet geopend is in een formulier zal je altijd wel een paar regels code nodig hebben.

 

[OctaFish]

Eén regel code:

CurrentDb.Execute "UPDATE Setup SET CODE = ""123"" WHERE ID=1"