Search results

Can you upload a screenshot of the form?

On the forms VBA you'll need to trigger a requery for the control of the whole form. Something along the lines of; Me.Combobox.Requery Add this to the AfterUpdate event of whatever it is you're using to change the record.

You'd want to insert the "INSERT INTO" SQL string after the erm.... If Me.txtPassword.Value = DLookup("Password", "tblUsers", "[UserName]='" & Me.cboUser.Value & "'") Then strUser = Me.cboUser.Value 'Set the value of strUser declared as Global Variable strRole =...

I just put the list box in there to show it was working. Must dash, there is lunch to be had.

Try the attached, should help

You'll need a new table with; UserID, a date/time field and an In/Out field. Make the date field's default value =Now(). The In/Out field could be a 3 digit text field. strSQL = "INSERT INTO tblUserLog ( UserID, InOut )" strSQL = strSQL & " VALUES ( " & [TempVars]![CurrentUserID] & ", 'In' ); "...

More of an answer I ever expected, not what I was after but thanks for the insight. I'm using a little VBA to check for or create a folder for each record. The dir Path won't ever be that long. I was just after a number, 100, 500, 1000, 10,000?

Got to the stage where I'm creating and accessing folders via my db. Is there a number out there for what is deemed a sensible maximum number of subfolders in a folder? Cheers, Dan

It's OK, got it! :) '" & NewCompanyID & "'

Just got back round to this. Can anyone help me get the resulting value into the SQL string? The below is not working, ED it requests that the value is input manually. 'Gets CompanyID of newly appended company Dim NewCompanyID As Long NewCompanyID = DMax("CompanyID", "[tblCompanies]", "UserID...

This helps prevent spamming. Do you still need help?

Thanks jdraw, much appreciated.

Ahh of course. Thanks. I've been struggling today. It's an autonumber at the moment. Should I make it a priority to change this?

If the date entry for the Tests is via a textbox you could add something like this to the AfterUpdate event property Private Sub tboTestDate_AfterUpdate() TempVars.Add "TestDate", tboTestDate.Value DoCmd.SetWarnings False DoCmd.RunSql "INSERT INTO tblworkdone ( WorkDate ) VALUES ( " &...

Ahhh, kind of with you here. Personally I set my date fields default value to =Now() so every time a new record is added it adds the date automatically. Does this help? There are other options if it's no use.

How is the data in the tables related? You shouldn't really be storing duplicate values across tables. If you want the value to appear alongside data from another table I'd recommend creating a query that combines the data from both tables.

How can I return the ID for a newly appended record without using a LastRecord type function? I'm not even aware of exactly how this is done yet. I feel if I request the ID of the last record added it could cause problems later down the line with multiple users and I would like something...

It's looking rather exotic at the moment; "��=ks������f;��6������IN|��n�6����P���x���ò�ɿ������.r�V��ؙi�t�dE� � �����g'����`�.߼�|�~8��sexdyqh1���#K��/U���Cs�x��������g��xҿf���� T=� � B�;�q�k��0�WUد���Z�aZ�2�D��tB�^̎GD{%���?�aMØ�}>G�+"'�A,�o1G
���<���$f3(�ﲾ�Y��...

Thanks for the insight, the intention is that the database will be pretty big. The records in question are enquiries at the moment so at some point in their life they will be marked as dead and not returned.

.Requery????