Set a table value

[rbeach]

I am not a programmer, but I need to set a value in a table automatically
when a form is opened. This will toggle from Yes to No each time the form is
opened. Below is the code I currently have in place. I am sure this only sets
the variable, not the table value. Please let me know what I need in place.

Private Sub Form_Open(Cancel As Integer)

Dim fLogout As Boolean

fLogout = DLookup("[LogOutUser]", "[LogoutTable]")

If fLogout = True Then
fLogout = False
Else
fLogout = True
End If

End Sub

 

[rbeach]

I have written the line:

CurrentDb.Execute "UPDATE LogoutTable SET [LogOutUser]=False"

and

CurrentDb.Execute "UPDATE LogoutTable SET [LogOutUser]=False"

in the code and it works.

Thanks anyhow

 

[Piet Linden]

I am not a programmer, but I need to set a value in a table automatically
when a form is opened. This will toggle from Yes to No each time the formis
opened. Below is the code I currently have in place. I am sure this only sets
the variable, not the table value. Please let me know what I need in place.

Private Sub Form_Open(Cancel As Integer)

   Dim fLogout As Boolean

   fLogout = DLookup("[LogOutUser]", "[LogoutTable]")

   If fLogout = True Then
   fLogout = False
   Else
   fLogout = True
   End If

End Sub

why not just
fLogout = Not fLogout?

and then
DBEngine(0)(0).Execute "UPDATE LogoutTable SET LogoutTime =Now WHERE
LogonId='" & fOSUserName &"'",dbFailOnError

to do the Update

 

[rbeach]

Simplicity at it's best.

Thank You
--
Rick

I am not a programmer, but I need to set a value in a table automatically
when a form is opened. This will toggle from Yes to No each time the form is
opened. Below is the code I currently have in place. I am sure this only sets
the variable, not the table value. Please let me know what I need in place.

Private Sub Form_Open(Cancel As Integer)

Dim fLogout As Boolean

fLogout = DLookup("[LogOutUser]", "[LogoutTable]")

If fLogout = True Then
fLogout = False
Else
fLogout = True
End If

End Sub

why not just
fLogout = Not fLogout?

and then
DBEngine(0)(0).Execute "UPDATE LogoutTable SET LogoutTime =Now WHERE
LogonId='" & fOSUserName &"'",dbFailOnError

to do the Update

 

[Piet Linden]

Simplicity at it's best.

Thank You

You're welcome. And simple is almost self-documenting, which I like -
because I hate documenting.