Avatar billede faithless Praktikant
17. maj 2006 - 11:24 Der er 8 kommentarer og
1 løsning

VBA kode combobox

Hejsa

Jeg har en form (frmOpslag), med 2 comboboxe (cmbArtist & cmbAlbum).

Jeg skal bruge lidt VBA kode, som blanker cmbAlbum og kører en sql streng, når cmbArtist ændres.
Jeg har tænkt mig, at ligge den ind i Event-->After update propertie.

Kører Engelsk Access 2003.

Håber du kan hjælpe(c:

Mvh
Thomas
Avatar billede jensen363 Forsker
17. maj 2006 - 11:27 #1
Kan du maile ( zipped ) databasen, så skal jeg gøre det : ose@post.dk
Avatar billede terry Ekspert
17. maj 2006 - 12:29 #2
If your combo cmbAlbum i sbased on a query then you can set a filter inth equery which references the combo cmbArtist. Then thh eonly code you need is

Me.cmbAlbum.requery
Avatar billede faithless Praktikant
17. maj 2006 - 13:11 #3
Hej terry & jensen363

Det jeg ikke skrive i ovenstående, er at det også skal vendes om. Så når jeg vælger cmbAlbum, så blanker den cmbArtist osv.

jensen363 --> Jeg sender den til dig. Men jeg vil jo godt lære hvordan man gør, så du må lige smide en forklaring med på hvad du har gjort.

terry --> Jeg har en løsning nu, som kører på min tabel referencer og så en event after update procedure. Men den blanker ikke, et eksisterende valg i den anden combobox.

Jeg har en lille smule styr på VBA, så derfor tænkte jeg at det nok var den nemmeste løsning for mig. (c:

Mvh
Thomas
Avatar billede jensen363 Forsker
17. maj 2006 - 13:53 #4
Hej Thomas

Det er lidt tricky, når du vil gøre den gældende begge veje, men det kan gøres blot kræver det en ekstra funktion, som ophæver begrænsningerne i begge combobokse

Jeg har indarbejdet følgende i din kode :

Private Sub cmbAlbum_AfterUpdate()
   
    Me.cmbArtist.Value = ""
    Me.cmbArtist.Requery

End Sub

Private Sub cmbArtist_AfterUpdate()

    Me.cmbAlbum.Value = ""
    Me.cmbAlbum.Requery

End Sub

Private Sub cmdBlankstil_Click()

    Me.cmbArtist.Value = ""
    Me.cmbArtist.Requery
   
    Me.cmbAlbum.Value = ""
    Me.cmbAlbum.Requery

End Sub
Avatar billede faithless Praktikant
17. maj 2006 - 21:36 #5
Hej Jensen363

Nu har jeg også prøvet den hjemme, og den kommer stadig op med den msgbox (Enter Parameter Value - Formularer!frmOpslag!cmbArtist).

Jeg har tjekket referencerne i vba editoren og det er kun Objects Library som  er forskellig. Jeg har 10.0 og 11, hvor du har 9 (hvis jeg husker rigtigt).

Det er mærkeligt at det virker på din og ikke på min. Er din Office pakke engelsk eller dansk? Min er engelsk, måske det er noget med det.

Mvh
Thomas
Avatar billede jensen363 Forsker
18. maj 2006 - 08:41 #6
Det er selvfølgelig det som er problemet ....

Like "*" & [Forms]![frmOpslag]![cmbAlbum] & "*"
Like "*" & [Forms]![frmOpslag]![cmbArtist] & "*"
Avatar billede jensen363 Forsker
18. maj 2006 - 08:44 #7
[Formularer] = Dansk
[Forms] = Engelsk
Avatar billede faithless Praktikant
18. maj 2006 - 08:50 #8
Hej jensen363

Det var pga. formularer, så nu virker det. Smider du et svar så du kan få dine point.

Tak for hjælpen
Thomas
Avatar billede jensen363 Forsker
18. maj 2006 - 08:53 #9
Sorry .... jeg ikke lige tænkte over det i går :o(
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester