Haha! Have now figured it out. It was the syntax I was using. Got round the problem by assigning it to a string value as such:
Dim StrSrch As String
' Find the record that matches the control.
StrSrch = "[Datagroup Name] = '" & Me![Combo52] & "'" & "And [Version] = " &...
I've now tried the following but am getting a runtime 13 error
Me.RecordsetClone.FindFirst (("[Datagroup Name] = '" & Me![Combo52] & "'") And ("[Version] = " & Me![Combo68]))
The combo values are populating correctly so I assume the problem is with using both values to find the record I am...
Hi
I have a form which currently displays all records based on a value from a combo box.
I am looking to change the form so that there are two combo boxes. The data is as follows:
Column 1 = Datagroup
Column 2 = Datagroup Version
Column 3 = Data
The first combo box will filter based on...
...out.
Changed to the following:
Dim StrSQL As String
Dim qdf As QueryDef
'Create temporary query using Combo1 filter value
StrSQL = "Select * From [App Health Check FSL2 query] Where [APPL] = Forms![App Health Check form FSL2]![Combo1]"
And works fine
Thanks Remou for showing me the...
...code currently looks like this:
Dim StrSQL As String
Dim qdf As String
'Create temporary query using Combo1 filter value
StrSQL = "Select * From " & Me.[App Health Check FSL2 query] & " Where " & Me.Combo1
If DLookup("Name", "MSysObjects", "Name= 'tmpApp Health Check FSL2 query'") <> ""...
...seen in the export.
The code I use for export is as follows:
'Export UK Application Health Check to Excel spreadsheet format '
DoCmd.OutputTo acQuery, "App Health Check FSL2 query", "MicrosoftExcel(*.xls)", "", False, ""
The combo box is Combo1.
Any advice would be appreciated.
Thanks
Thanks for your help. I rewrote the subform query to pick up the values from the combo boxes and then set a requery (as suggested) on the second combo box. Works like a dream.
Thanks
R
Thanks for the suggestion but I have run into the following problem:
I am now getting the following error:
Run-time error 3070
The Microsoft Jet Database engine does not recognise 'CD010' as a valid field name or expression.
CD010 is the first datagroup value on the table.
Hi
I have a subform with the following fields:
Module, Datagroup, Version.
The main form has two combo boxes:
Combo Box 1 lists all datagroups
Combo Box 2 lists all versions based on the datagroup selected in combo box 1
The subform needs to display the modules based on the datagroup/version...
This has also been posted on Microsoft: Access Forms as I was not sure where best to put this
Hi
I am using Access '97
I have a form with a subform set to continuous forms. This form reads from table [Access Paths] and displays five pieces of information for each record.
What I have been...
Hi
I have a form with a subform set to continuous forms. This form reads from table [Access Paths] and displays five pieces of information for each record.
What I have been trying to do, however is highlight the text box where the value from the record is not the highest value available.
An...
I've had a look at using Dlookup and other postings and have come up with the following:
Dim stDocName As String
Dim stLinkCriteria As String
Dim StLink As Variant
StLink = Nz(DLookup("[Link]","[Document List]" ,_
"'[Link]'" = "'" & Me![Combo97] & "'"), 0)
If StLink = 0 Then...
Hi
I have a form which is used to update records on table 1. At the bottom of the form is a button to got to form 2 and display related records that exist. This works fine unless there are no related records on table 2. If this happens form 2 is just blank. What I would prefer is for a...
I effectively want to disable the function so that rather than find one group of records, I bring back a list of all records regardless of their grouping (the combo box would list the group names in the example below). It is useful if the user is looking for a record but does not know which...
...and thought the following would work but it doesn't.
If Me![Combo61] = "<All>" Then
Me.Requery
Me.RecordsetClone.FindFirst "[Access ID Name] like '*' "
Me.Bookmark = Me.RecordsetClone.Bookmark
Else
Me.Requery
Me.RecordsetClone.FindFirst "[Access ID Name] = '" & Me![Combo61] & "'"...
Luckily it was the latter. Sorry for not being clear and thank you for the right answer. I'ver been struggling with this on and off for a couple of days. I almost resorted to getting the manuals out.
Thanks again. Now I can go and look clever for my boss. :)
I have imported data from an excel spreadsheet which has created a table where I am missing column names or the column names are not correct.
I know how to change the column names and can manually insert columns by creating a 'select into' query. What I can't do is insert the new columns with...
I have imported data from an excel spreadsheet which has created a table where I am missing column names or the column names are not correct.
I know how to change the column names and can manually insert columns by creating a 'select into' query. What I can't do is insert the new columns with...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.