Recent content by dmon000

Hi, We need to print labels for customer that has a label number on it. I see how to use the on-print event of the detail section of the report (label) to get a number on the label that increments using the following code: Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)...

We are using Citrix XenApp with Wyse Terminal using Program Neighborhood 10.00.52110. We have an Access database with reports that print to a label printer. These reports work fine for all users but one. For this one user, when she clicks the command button for the form to open, the screen...

Not sure if this is an Access problem; but hoped someone may have an insight. I have a report which is a label printing on a Zebra 140 XiIII Plus label printer. This report opens fine for all users but one. For her the screen just flashes like Access tried to open the report, but it does not...

Ladies and Gentleman: I apologize for not giving you enough information. I was trying to use the rptWho() function as a criteria in a query. I was hoping that this code: If IsNull(Forms!fNP_300a_REPORTS.Combo23) Then w = Like " * " End If would place this in the query criteria box: Like...

The first If in this function works fine. The second If does not work. I know I'm doing something wrong. How does one correctly write W = LIKE " * "? Thanks !! Public Function rptWho() As String Dim w As String If Not IsNull(Forms!fNP_300a_REPORTS.Combo23) Then w =...

I have a dlookup that just is not right, I'm sure due to the quotes and single quotes not being just right. This is it: DLookup("LIST_NAME", "EMAIL_DIST_LIST", "RECEPIENTS Like " & fOSUserName & " & " * " ' AND LIST_NAME = 'ECN_ALL_OPERATION'") The List_Name and the RECEPIENTS fields are...

Thanks for the help genomon! My problem now is getting this to work. I think I should be using "in" instead of "=". If fOSUserName = DLookup("RECEPIENTS", "EMAIL_DIST_LIST", "LIST_NAME = 'ECN_ALL_OPERATION'") The Dlookup above returns 3 usernames, so the if statement will be false. How do I...

Hi Everyone, I have a table called EMAIL_DIST_LIST in which there are two fields, RECEPIENTS and LIST_NAME. I also have function FOSUSERNAME, that returns the logged on user. I want to write an If statement that tests if the name returned by the function FOSUSERNAME is in the RECEPIENTS field...

HI, I have an existing form with 5 tabs with 5 subforms. The form is related to the subforms in each case by a field called Prod_Id_No. This field is a key field in all the tables behind these forms and subforms. Tab 2 and 3 use the same table, NP_Part, as the record source. When I move off tab...

Hi ACEMAN. Thanks for the input, which makes perfectly logical sense. But for some reason I cant get that line of code to make a difference in the value of the calculated field on tab 4. Again, no error messages. It must be a matter of putting it in the proper event. I've tried the after...

I have a form which has 4 tabs each with it's own subform. I change the value of a field on tab 3, then click on tab 4. On tab 4 there is a calculated field that is dependent on the value of the field on tab 3. But it order to see the updated value on the field in tab 4 I have to close the form...

I have a number of controls grouped together that I would like to control with vba; depending on username, I would like to control the grouped controls enabled and visible propery. But in Access 2002, the group does not appear to have a name to refer to it by. Is there a way to do what I want...

Thanks for the help. This is what I got to work: Private Sub Command4_Click() Dim Ctl As Control For Each Ctl In Me.Controls If (Ctl.ControlType = acComboBox) Or (Ctl.ControlType = acTextBox) Then Ctl.Value = Null End If Next Ctl End Sub THIS ALSO WORKS AND IS SIMPLER Private Sub...

Thanks for your help, but VBA comes back and highlights the "ctl" in this line: "Me.Ctl.Value = vbnullstring" and says "not found". What's missing? Thanks?

Thanks but me.undo didn't work. any other suggestions?