Update combo box

[weezles]

Hi folks

I have 2 tab pages, each containing a sub form. Each sub form contains a combo box. I want the contents of cbo2 to be dependant on the selection in cbo1. cbo2's row source is set to a query which uses the current value of cbo1. This works fine for the first record but does not update cbo2 in subsequent records. How do i do this?

Thanks

Lou

 

[TheAceMan1]

How are ya weezles . . . . .

In the AfterUpdate Event for cbo1, add code that Requeries cbo2.

TheAceMan

 

[weezles]

hi Ace

How do i requery cbo2?

Ta

 

[bonneville88sse]

cbo2.requery

 

[TheAceMan1]

OK weezles . . .

Since your cbo2 in on a different subform, you can't directly reference it. You'll have to shift the focus to that subform and then reference; Example below:

Dim frm As Form, sfrm As Form, ctl As Control
   
   Set frm = Forms!YourMainFormName
   Set ctl = frm!SubFormNameOfcbo2
   Set sfrm = frm!SubFormNameOfcbo2.Form
   
   frm.SetFocus
   ctl.SetFocus
   sfrm!cbo2Name.Requery
   
   Set sfrm = Nothing
   Set ctl = Nothing
   Set frm = Nothing

TheAceMan

 

[TheAceMan1]

weezles . . .

Although the above code will do the job, there's some unecessary schema in the code. Ya see . . . for some reason, I was thinking of setting the focus to cbo2. This is not necessary. Corrected code follows:

Dim frm As Form, sfrm As Form
   
Set frm = Forms!YourMainFormName
Set sfrm = frm!SubFormNameOfcbo2.Form
   
sfrm!cbo2Name.Requery
   
Set sfrm = Nothing
Set frm = Nothing

TheAceMan

 

[weezles]

hey Ace

thanks heaps, just what i needed

Lou