Ricerca cd

[sergran]

Hello everyone, I have a little problem ... I created (using a base found on the internet) a small database of CDs.


I have a mask "Ricerca_cd" within which there is a list consisting of the field IDCD-Artist-Title-clicking on the title I Numero_cd that opens another form "scheda_cd" containing information on the CD itself through this code


If Not IsNull (Me.cmbCd) Then
DoCmd.OpenForm "Inserting / modifica_cd" acNormal, "", "[IdCd] = [Forms]! [Ricerca_cd]! [CmbCd]," acEdit, acNormal
If end


All this works ... I would now like to make sure that as soon as you select a title, I get on the mask Ricerca_Cd "in the left pane, a field called" review ", but I do not know how to do .. could you help me?
thanks
Hello

[June7]

Don't know what you mean by 'mask'.

The code you show has quote mark in the wrong place and missing a comma between first two arguments and cannot work.

[sergran]

Hello, basically I have a list of data including "IDCD" and I wish that every time I click on a name, I appear in a text box as a "review" on this same record.
Eg. if I have the following record
1 Pink Floyd The CD was recorded in 1999
I would like in the text box by selecting the words "Pink Floyd", appeared in the second text box "The CD was recorded in 1999"
thanks Hello

[June7]

You want to retrieve record? Do you want to filter the data on form that has the combobox or do you want to open another form?

1. to apply filter to form:
Me.FilterOn = False
Me.Filter = "[IdCd] = " & Me.[CmbCd]
Me.FilterOn = True

2. to open another form filtered to record
DoCmd.OpenForm "Inserting / modifica_cd", acNormal, , "[IdCd] = " & M.[CmbCd], acEdit, acNormal

[sergran]

Thank you!
I need
1. to apply filter to form:
Me.FilterOn = False
Me.Filter = "[IdCd] = " & Me.[CmbCd]
Me.FilterOn = True


It gives me an error: "data types do not match in criteria expression" and I highlight in yellow Me.FilterOn = True

[June7]

There is nothing wrong with code syntax. Where did you put the code - button Click event? Post your procedure code or the database. Follow instructions at bottom of my post.

[sergran]

Thanks
Private Sub cmbCd_Click()
Me.FilterOn = False
Me.Filter = "[IdCd] = " & Me.[cmbCd]
Me.FilterOn = True
End Sub

[June7]

I see nothing wrong with code. Will have to examine db.

[sergran]

Cd1.zip here is the file

[June7]

IDCD is text field, not number. Text requires apostrophe delimiters:

Me.Filter = "[IdCd] = '" & Me.[cmbCd] & "'"

Also, need to fix code in Visualizza_Click() procedure:

DoCmd.OpenForm "008_msc", acNormal, , "[IdCd]='" & Me.[cmbCd] & "'", acEdit, acNormal

Run Debug>Compile and you will encounter another bug in code.

[sergran]

1000 Thanks