Search results

Is it possible to 1) Find out which users are currently in the database ( which is on a shared drive) 2) Display a message to everyone at 315 pm each day to exit the database 3) Log users out after a certain amount of inactivity ? I do not know if this is even possible in ms access vba Thanks.

fixed.. If IsNull(txtDescription.Value) Or _ Len(Nz(txtDescription.Value, vbNullString)) = 0 Or _ Len(txtDescription.Value & vbNullString) = 0 Then 'IsNullOrEmpty = True MsgBox "Description is empty" Exit Sub Else IsNullOrEmpty = False MsgBox "Description is not empty" End If

fixed.. If IsNull(txtDescription.Value) Or _ Len(Nz(txtDescription.Value, vbNullString)) = 0 Or _ Len(txtDescription.Value & vbNullString) = 0 Then 'IsNullOrEmpty = True MsgBox "Description is empty" Exit Sub Else IsNullOrEmpty = False MsgBox "Description is not empty" End If

I really do not know that . Thats why i am asking.

Yes and how would I detect it- use what code to detect it - when I hit save button ?

This is just to ensure that nothing gets missed . I work with an interesting set of people.

Hello everyone I was looking to validate that all the text boxes were populated on the ms access form. The code should be able to detect if the value was entered and then deleted too . Any ideas ? I have tried using "" , " " (space between quotes),Null etc. No luck so far. Thanks for your...

Hi Can I actually write MS Excel Code inside an MS Access module and have the operations done on an Excel File specified in MS Access code?

This is the string that fixed it . strSQL = "UPDATE [BR-DETAILS] SET CostCentre = '" & Me.txtCostCentre & "' , AssetName = '" & Me.txtAsset & "' WHERE ([BR-DETAILS].ID) = " & Me.List248.Column(21) & " "

Thank you DBguy.

ID field ..which is in List248.column(21)

This fixed it . Than you for your help Gasman and CJ London. strSQL = "UPDATE [BR-DETAILS] SET CostCentre = '" & Me.txtCostCentre & "' , AssetName = '" & Me.txtAsset & "' WHERE ([BR-DETAILS].ID) = " & Me.List248.Column(21) & " "

no luck even after removing the quotes ;-(

No luck ;-(

Can I modify this to update it based on an auto number field ? This is what I tried . strSQL = "UPDATE [BR-DETAILS] SET CostCentre = '" & Me.txtCostCentre & "' , AssetName = '" & Me.txtAsset & "' WHERE ID = ' " & Me.List248.Column(21) & " ' " CurrentDb.Execute strSQL, dbFailOnError Get a...

Private Sub cmdUpdate_Click() Update BR - DETAILS Set [BR-DETAILS].CostCentre = Me.txtCostCentre.Value End Sub I am getting an error that says sub or function not defined . It highlights the word Update. I wonder what I am doing wrong. Moses

Curiously it was showing the right IDs in the message box no doubt about that . It is after I changed the bound column it worked ! I have a lot to learn !

This is the latest version of the SQL string : strSQL = "DELETE FROM [BR-DETAILS] WHERE ID=" & Me.List248 Thank you once again for your help "theDBGuy" "Isaac" "Gassman" Much much appreciated.

That was it . The bound column was the issue . I changed it to 22 and that took care of the issue. Also the bracket looks like it is a must. Many thanks once again . I do not know how I would learn anything without this forum.

1) It gave me a syntax error first 2) I put a bracket around the table name and ran it from SQL view and it worked...confirmed by opening the table as well 3) However when I put it back on the button on the form and put the bracket there ..no error message comes up anymore but it does not...