How To Fill A Combobox With The Value Of A Group Options Control

[habiler]

I have a tbl Afd_Serv with 2 columns named directorat (number) and txtdescrip.




How can i fill the combobox "cboServices" with a value (number) given in the group options "fraDep" (Select case 1 to 4) with the same value of the value in the colum directorat from tbl Afd_Serv.


I written following code :

Private Sub cboServices_click()
Dim strSQL As String
Debug.Print "Me.fraDep CboServices 1:"; Me.cboServices.Value
'strSQL = "select * from Afd where Directorat = " & Me.fraDep & ";"
' ou si cle est du String:
strSQL = "select [Omschrijving frans] from Afd_Serv where Directorat = " & Me.cboServices & ""
 Debug.Print "Me.fraDep CboServices 2:"; Me.cboServices.Value
Me.cboServices.RowSource = strSQL


End Sub

Private Sub fraDep_AfterUpdate()
.......


Select Case fraDep.Value
Case 1
	
		strDep = "'*'"
		libelleDep = "All"
		cboServices.Visible = False
		
		
 Case 2
		strDep = "'CEO'"
		libelleDep = "CEO"
		cboServices.Visible = True
		cboServices.Value = 5
		cboServices.Requery
		
 Case 3
		strDep = "'DGA'"
		libelleDep = "DGA"
		cboServices.Visible = True
		cboServices.Value = 6
		cboServices.Requery
 Case 4
		strDep = "'DGO'"
		libelleDep = "DGO"
 Case 5
		strDep = "'DGS'"
		libelleDep = "DGS"
 Case Else
		strDep = "'Other'"
		libelleDep = "Other"
 End Select
........

[June7]

This code will not 'fill the combobox with a value', it sets the combobox RowSource property.

A combobox RowSource cannot be dependent on itself. Reference the frame control instead of the combobox.

Then requery the combobox: Me.cboServices.Requery

I would use GotFocus instead of Click event.

[habiler]

I 've modified the code and now I have only digits as result.


in fact the value of "" & cboServices & "" and not the value of [Omschrijving frans]

Private Sub cboServices_GotFocus()
Dim strSQL As String
Debug.Print "Me.fraDep CboServices 1:"; Me.cboServices.Value
'strSQL = "select * from Afd where Directorat = " & Me.fraDep & ";"
' ou si cle est du String:
strSQL = "select [Omschrijving frans] from Afd_Serv where Directorat = "" & cboServices & "" "
Debug.Print "strSQL 2:"; strSQL


Me.cboServices.Requery


End Sub

[QUOTE=habiler;435906]

[orange]

Try setting linked column (colonne liée) to 0 instead of 1.

Essayez de définir la colonne liée sur 0 au lieu de 1.

[habiler]

ok BUT IT STARTS AT LINE 5 OR 6 5 of column directorat. (number attrbuted at cboservices).

[orange]

I suggest you post a copy of the database with enough records to show the form and combobox (in zip format.)
Also show us a sample(just info on paper) of what you expect using a data/record you would have in that combo.

[habiler]

Here I send you a copy of my Database
Habiler

Leaves1_12.zip

[June7]

The db structure has serious issues. Tables are not linked on key fields. Form RecordSource is too complicated. A form normally does data entry/edit for 1 table. Trying to open form and get error [Leave] is not recognized as a valid field name.

Advise not to use spaces nor punctuation/special characters in naming convention.

[habiler]

Ok but how can shows gra^hics on screen the? Via a report?

[June7]

The graph RowSource has nothing to do with form RecordSource. They are fine on form or use a report. Actually why does form even have RecordSource? There are no bound controls.

GraphLeave RowSource references field [Leave] which is not in that data source, hence the error I encounter when opening form.

[habiler]

Here a simplified version of my DB.


Leaves1_121.zip

[orange]

I agree with June that your database structure has issues. In order to understand your database and its tables and relationships, we need some description of the business and its rules. Also, since we are not dealing with English, a clear description is key to getting focused responses.

Relationships are a representation of the business rules, so knowing more about the business is essential.

You can write a 4 or 5 line overview of the business in your native language and then use Google translate to provide the English translation.

Good luck.