Search results

To create a field to join to you could add a calculated column to your Employees table that stores the Full Name then create the join on that value.

It would depend on how your users log on, If the Username / UserLevel are stored as variable or actually visible on the form then you could use the OnCurrent event for the form: If UserLevel = "Admin" Then Cmd_Add.Visible = True Cmd_Delete.Visible = True Else...

Try this; SELECT NewClients.FullName, tbl_Employees.LastName, tbl_Employees.FirstNames FROM NewClients, tbl_Employees WHERE ((Not (NewClients.FullName)=[tbl_Employees].[FirstNames] & " " & [tbl_Employees].[LastName]));

It appears that this is an Excel Macro to send records to an Access Database and would be run from the Excel Sheet. The sheet has the Database Path in cell B1 and the Table name in Cell B2 Then 2 named ranges; 'tblHeadings' Which would be the column names 'tblRecords' Which would be the...

Just another thought. To avoid repeating code, you could use a function which will reduce the amount of coding. Private Sub CombYear_AfterUpdate() For i = 1 To 12 strFundCode = "GEN" Me.Controls(strFundCode & i & "") = GetTotal(strFundCode, Me.CombYear, i)...

Possible solution would be to catch a null value and then make it 0; rst.Open sql, conn if isnull(rst.GetString) then Gtotal=0 Else Gtotal = Format(rst.GetString, "Currency") End If Form_Summary.Controls("GEN" & i & "") = Gtotal rst.Close

More like this?

Have you tried using a progress bar control on the form instead?

Hi, Is this roughly what you wanted?

WHERE [Print ID] = 1 OR [Print_ID] = 2 ....... Is that what you mean? That could be an option, What is the maximum length of a string variable?

There isn't one. Generally there wouldn't be more than 1000 at a time.

The listbox shows all items that have not been printed so could be any number of items. And the user can select as many items as they wish.

That works perfectly: For Each i In Me.lst_Print.ItemsSelected sql = "DELETE '*' FROM [tbl_print] WHERE [Print_ID] = " & Me.lst_Print.ItemData(i) & " ;" CurrentDb.Execute (sql) Next Me.lst_Print.Requery

Excellent, that's what I was looking for! Thanks vbaInet :)

Sorry, should be more specific; lst_print is a multiselect listbox on my form. I'm using a drag and drop function that I 'borrowed' from a forum, can't remember where now. When I drag from the listbox it should delete the items from the print table. The function cycles through the listbox...

Sorry, should be more specific; lst_print is a multiselect listbox on my form. I'm using a drag and drop function that I 'borrowed' from a forum, can't remember where now. When I drag from the listbox it should delete the items from the print table. The function cycles through the listbox...

I recently posted an example for a custom message box. Then realised that it wasn't overly portable. Back to the drawing board and now have this one! Give it a go and let me know what you think. Any suggetsions greatly appreciated. Paste the code into an empty Module. Option Compare Database...

Try this: Private Sub CombYear_AfterUpdate() Dim conn As ADODB.Connection Dim rst As New ADODB.Recordset Dim sql As String Dim Mtotal, Btotal, Gtotal As Currency Dim yy As Integer yy = Me.CombYear For i = 1 To 12 Set conn = CurrentProject.Connection...

Hi, Is '8' the only option, or does [code] have multiple options?

Hope someone can help. I have a listbox on a form with letters waiting to be printed. I need to be able to remove multiple items at once using an SQL statement. The main problem is that I need to include multiple columns in the SQL as I loop through the items. What I need is something like...