sæt true med cmd

Det er kun det aktive navn, som værdien skal kunne ændres på.

Din tabel, har den et ID felt  ???

Private Sub cmdArkiv_Click()
Forms!FormSamElev!henlagt.SetFocus
henlagt = True
Me.Refresh
End Sub

Private Sub cmdArkiv_Click()
  If Not Me.NewRecord Then
    Dim x As Boolean
    Dim strSQL As String
    x = True
    strSQL = "UPDATE tblSamelev SET henlagt = " & x & _
        " WHERE id = " & Me.Liste0
    CurrentProject.Connection.Execute strSQL
    Me.Requery
  End If
End Sub

Men den kræver et id fra din liste......

Niels

If Not Me.NewRecord Then
    Dim x As Boolean
    Dim strSQL As String
    x = Not DLookup("henlagt", "tblSamelev", "id = " & Me.Liste0)
    strSQL = "UPDATE tblSamelev SET henlagt = " & x & _
        " WHERE id = " & Me.Liste0
    CurrentProject.Connection.Execute strSQL
    Me.Refresh
  End If

med den her bliver feltet henlagt modsat af hvad det var før.

Niels

jsl-> du burde bare kunne skrive:
Private Sub cmdArkiv_Click()
  docmd.setwarnings false
  docmd.RunSQL "Update tblSamElev Set Henlagt = True Where [ID] = " & Me!Liste0  docmd.Setwarnings true
End Sub

Koden forudsætter (som nih's) at du har et nøglefelt i din liste og at egenskaben "Bundet kolonne" er sat til denne kolonne.
Udskift [ID] med navnet på dit nøglefelt.

/Thomas

Godmorgen

'docmd.RunSQL' og 'CurrentProject.Connection.Execute' er der nogen forskel, udover at vi som besvarer spørgsmål ikke skal tænke på om spørgeren bruger ADO eller DAO.

Niels

'Morgen Niels,

Jeg foretrækker selv .execute-metoden, men for nybegyndere er den anden mere forståelig. Og som du selv siger, så er den uafhængig af ADO og DAO...

Jeg har siddet her til morgen, og prøvet alle metoder, men jeg kan ikke få nogle af dem til at virke. - selv ikke engang SQL sætningen, selvom den nok skulle være til at forstå. Mit ID felt hedder CPR. (Jeg bruger Access 97).

Me!Liste0.RowSource = "SELECT cpr, Henlagt FROM TblSamElev WHERE By ='" & Me!LstBy & "'"
me.list0.requery

Nu har du cprnr med i listen. Sæt listens egenskab:
bundetkollone = 1
antalkolloner = 2
kollonebredde = 0;3

Knappen:
    Private Sub cmdArkiv_Click()
  If Not Me.NewRecord Then
    Dim x As Boolean
    Dim strSQL As String
    x = True
    strSQL = "UPDATE tblSamelev SET henlagt = " & x & _
        " WHERE cpr = " & Me.Liste0
    docmd.runsql strSQL
    Me.Requery
  End If
End Sub

Niels

Det er den post der valg i listen, som koden arbejder på - Det kunne godt være en anden end den som er den aktive post i formularen.

Niels

Hvis dit CPR-nr er af datatypen Tekst, så skal min kode se således ud:
Private Sub cmdArkiv_Click()
  docmd.setwarnings false
  docmd.RunSQL "Update tblSamElev Set Henlagt = True Where [CPR] = '" & Me!Liste0 & "'"
  docmd.Setwarnings true
End Sub

Nu har jeg langt om længe fået det til at virke. Jeg oprettede en ny formular og vupti, så virkede det hele. Der må have været en fejl i den første formular.....
Når jeg udfører kommandoen, så kan jeg først se rettelsen efter at have genstarte formularen.
Hvordan får jeg listen til at opdatere med det samme, jeg udfører kommandoen?

Hvilken kode bruger du ????

'Me.Requery'  Burde opdatere formularen og den bagved liggende forespørgsel

Niels

Jeg bruger den her:
Private Sub cmdArkiv_Click()
  If Not Me.NewRecord Then
    Dim x As Boolean
    Dim strSQL As String
    x = True
    strSQL = "UPDATE tblSamelev SET henlagt = " & x & _
        " WHERE cpr = " & Me.Liste0
    docmd.runsql strSQL
    Me.Requery
  End If
End Sub

Prøv at skifte 'me.requery' ud med 'Me.Refresh'

Du kan også tilføje linjen:
'Liste0.Requery'
i bunden af koden.

måske kan Thomas hjælpe med en forklaring på forskellen af me.requery og me.refresh 

Niels

nih > Jeg mener, at forskellen ligger i, at me.refresh ikke tilføjer nye poster men blot opdaterer bestående.

(Efter tidligere at være belært af Hr. Jepsen):o)

Nå ja....