Search results

I have 2 combo boxes on a form to filter records selected. I have used these filters before on another form however they're not working on this new one and not sure why: First one a date field lookup & second an item number lookup Private Sub Combo23_AfterUpdate() Me.Filter = "(([Date]) =...

I have a pivot chart query that is inserted into a form. The user can choose to print that form or close. If print is chosen, printed and then the exit button used, a dialog box always prompts: 'Do you want to save changes to the layout of query 'Supplier Issues per Month Pivot Chart Query?' It...

I managed to sort it out... FILENAME = "C:\Non Conformity Issue No. " & [NonConformID] & ".pdf" Appears to be working ok

I have a report that is attached to an email as a pdf doc. It is a generic name currently and it's been pointed out to me that it would be better for the name to have the issue number in it's name, e.g. "Non Conformity 34.pdf". This number would be taken from the field NonConformID on the...

Sorry I'm not sure how to implement this? I'd like the user to have a list of suppliers that they could select from and then that returns the pivot chart for that supplier only. It will return the number of products that have been faulty per quarter and per month on seperate forms.

I have a query that pulls off all items that we have an issue with per quarter per supplier. This is displayed in pivot chart format. I have then inserted that pivot chart into a form. I put a combo box on the form in the header as a lookup of suppliers based on the query. However, when I...

I did a work around by converting a macro to vba. The solution to print a form with the buttons not showing is: Private Sub Command1_Click() On Error GoTo Command1_Click_Err 'Sets focus on form [Supplier Issues per Month Query].SetFocus 'Makes buttons invisible so will not show up on...

It's not a report that's printing but rather the form that is loaded up. It's a pivot chart that's built into the report and has a print button on the page. I can use a print macro but the botton displays. Is there a way to get DoCmd.PrintOut to default to colour instead of B&W??

Hi I have a pivot chart on a form and have put a button on it. The code to make the button invisible on click: [Supplier Issues per Month Query].SetFocus Command1.Visible = False I want to be able to print the form and with it printing in colour. If I put DoCmd.PrintOut, it prints in...

After searching for a day :banghead:, finally came up with a solution. Private Sub Command69_Click() With Application.FileDialog(1) ' msoFileDialogOpen .InitialFileName = "L:\Bottling\Supplier Issue Logging" If .Show = True Then Me.[link to image] = "#" &...

I've managed to find some code to get started with: Private Sub Command43_Click() With Application.FileDialog(1) ' msoFileDialogOpen If .Show Then Me.[Link to Image] = .SelectedItems(1) End If End With End Sub This opens the file dialog box and then puts the location into the hypertext...

I have a hyperlink field and would like the user to click a button which opens a file dialogue box (being defaulted to a folder location on a server) where a file is selected and the hyperlink to that file stored. Is this possible? How can I do this?

Sorry, I uploaded the wrong db. Here's my one, with the numeric primary key. I'm trying to replicate the sample db previously uploaded. I just can't make out why this is not working: Private Sub Combo2_DblClick(Cancel As Integer) Dim lngcombo2 As Long Dim strOpenArgs As String If...

I used the code from this database and tried to replicate it but got stuck as I don't know vba. I want the list to be limited. However, once someone tries to enter some code that's not on the list, the error message appears to double click to open a new form. From there, it's meant to take the...

Yeah I know, it's a lookup and displays the text but the primary key is numeric. Not sure how to explain it. There are 2 fields in the table, the combo box in the form only displays the second field and that's the field I want to update.

ok, but it is text that is getting entered however, it is to go in the second column of the combo box and not the first one which is an autonumber. How can I re-write this?

I'm having trouble completing the code for my form. It updates a table if the item doesn't exist in the combo box. The following error displays: Run-time error '3464': Data type mismatch in criteria expression. If DCount("Reason", "NonConformity", "Reason = '" & Me.Reason.Text & "'") = 0...

I managed to sort it with the following: Needed to set combo value = null Private Sub Command65_Click() Me.FilterOn = False Me.Filter = "" Me.Combo40.SetFocus Me.Combo40.Value = Null Me.Combo57.SetFocus Me.Combo57.Value = Null Me.[NonConformID].SetFocus End Sub

Does this code go following Me.FilterOn = False Me.Filter = "" for the clear filter button or is it added after each of the combo filters? I tried adding it on the button but get error on last line: Private Sub Command65_Click() Me.FilterOn = False Me.Filter = "" Me.Combo40.SetFocus...

Created a button and put the Me.FilterOn = false code in and works. Now is there a way of refreshing the combo box fields back to a blank state rather than showing last records searched on at the same time?