Solved Docmd.RunSQL INSERT INTO... (2 Viewers)

[evictme]

Thank you both So much! They work perfectly. Game changing stuff. Thank you for all the help.

 

[Isaac]

We are glad to help, good luck with your project.

 

[evictme]

Hey guys, back at it again. I need some help with syntax once more. Got the code below and want to include the Computername listed in the tbl for the record that matches the Currentuser() in the MsgBox after the "you are currently Logged-in " text. Any ideas or is there another way of doing this?

Thank you guys for the help.

Form_Load()
DCount("*", "tblCurrentlyLoggedIn", "empCurrentlyLoggedIn=" & Chr(34) & CurrentUser() & Chr(34)) > 0 And DCount("*", "tblCurrentlyLoggedIn", "empEnviron<>" & Chr(34) & Environ("computername") & Chr(34)) > 0 Then
MsgBox CurrentUser() & _
vbCrLf & " " & _
vbCrLf & " you are currently logged-in " & _
vbCrLf & " " & _
vbCrLf & "Please log-off from the other computer before you continue.", vbExclamation, "Stop, you are logged-in elsewhere."

DoCmd.Quit acQuitSaveAll

 

[pbaldy]

Perhaps

vbCrLf & " you are currently logged-in to " & Environ("computername") _

 

[evictme]

Perhaps

vbCrLf & " you are currently logged-in to " & Environ("computername") _

That would give the computer name they are using but I want them to be able to know which computer they are already on from the tbl.

Would a Dlookup() work in this case?

 

[pbaldy]

Oh I'm sorry, I didn't notice the <>. Yes, a DLookup() with the same criteria should work.

 

[evictme]

Oh I'm sorry, I didn't notice the <>. Yes, a DLookup() with the same criteria should work.

Thanks! Got it! See below -

DCount("*", "tblCurrentlyLoggedIn", "empCurrentlyLoggedIn=" & Chr(34) & CurrentUser() & Chr(34)) > 0 And DCount("*", "tblCurrentlyLoggedIn", "empEnviron<>" & Chr(34) & Environ("computername") & Chr(34)) > 0 Then
MsgBox CurrentUser() & _
vbCrLf & " " & _
vbCrLf & " you are logged-in at the computer " & DLookup("empEnviron", "tblCurrentlyLoggedIn", "empCurrentlyLoggedIn=" & Chr(34) & CurrentUser() & Chr(34)) & _
vbCrLf & " " & _
vbCrLf & "Please log-off from the other computer before you continue.", vbExclamation, "Stop, you are logged-in elsewhere."

DoCmd.Quit acQuitSaveAll

Thank you!

 

[pbaldy]

Happy to help!

 

[Isaac]

That would give the computer name they are using but I want them to be able to know which computer they are already on from the tbl.

Would a Dlookup() work in this case?

Yes, that's about what I would do, I think.

 

[pbaldy]

Yes, that's about what I would do, I think.

Get distracted while posting?

 

[Isaac]

Get distracted while posting?

Very much so, it seems! Sorry. The garage door guy came ... ours collapsed last night. Thankfully, not on the cars.

 

[pbaldy]

Yikes! Glad cars (and presumably people) are okay.