Sortering/Udvælg

Prøv med:
Forms!frmindkøb!UndObjProdukt.Filter=\"[EtFelt]=EtTal\" (indsæt selv relevante værdier)
Forms!frmindkøb!UndObjProdukt.FilterOn=True

Jeg har prøvet med:
Private Sub Form_Click()
Dim Lageradv As Integer
    Lageradv = 0
        If Forms!frmindkøb!UndObjProdukt.ControlType = acSubform Then
            Forms!frmindkøb!UndObjProdukt.SourceObject = \"frmproduktoversigt\"
            Forms!frmindkøb!UndObjProdukt.Filter = \"[vnavn]=\" & Me!VNavn
            Forms!frmindkøb!UndObjProdukt.FilterOn = True

        End If
Dette resulterer i nedestående fejl.

Fejl \"438\"
objektet understøtter ikke denne egenskab eller metode

Glem de to linier:
Dim Lageradv As Integer
    Lageradv = 0
       

Mener du ikke:
Forms!frmindkøb!UndObjProdukt.Filter = \"[vnavn]=\'\" & Me!VNavn & \"\'\"

(Har du løst problemet - siden du afviser?)

Hej fdata
Jeg har prøvet at indsætte dit forslag:
Forms!frmindkøb!UndObjProdukt.Filter = \"[vnavn]=\'\" & Me!VNavn & \"\'\"

Men jeg får stadigt fejlmeddelelsen:
Fejl \"438\"
objektet understøtter ikke denne egenskab eller metode
Som sagt er det en underformular jeg aktiverer frmproduktoversigt fra, kan det have betydning ???

Hej fdata.
Jeg har prøvet følgende kode:

Private Sub Form_Click()
DoCmd.OpenForm \"frmProduktoversigt\", , , \"VinID =\'\" & Me!VinID & \"\'\"
End sub

Og det åbner formularen med den korrekte filter.
Sååå det problem jeg har, må være et problem der opstår, når man kalder en underformular fra en anden underformular.

Lukket