How to populate combobox via VBA

[chuki2]

Hello my friends.. I have a bit problem....

How to populate in combo box?

Let say for the first row is "-ALL-". Then after the first row, data from the database will be out.

Because i need to do "IF ELSE statement" in VBA..

If me.comboModel="-ALL-" Then
'SQL String to list box without "where"
Else
'SQL String to list box with where
End if

Thanks you...

[jzwp11]

I'm unclear as to what you are asking. Are you asking how to add "ALL" to the row source of the combo box? If so, you would base the row source of the combo on a UNION query

For example if your current row source is like this

SELECT tblemployees.pkEmpID, txtlastname & " "& txtfirstname AS EMPNAME
FROM tblemployees

You would change it to this:

SELECT tblemployees.pkEmpID, txtlastname & " "& txtfirstname AS EMPNAME
FROM tblemployees

UNION
SELECT 0,"ALL"
FROM tblEmployees
ORDER BY pkEMPID


The UNION query has to be done via SQL view.


Then you could use the 0 in your IF THEN

IF me.combomodel=0 THEN...

[amrut]

I'm also unclear as to what you are asking. I think you are trying populate a combobox based on it's value itself. I doubt if this can be done.You need another combo box say combo1 and then in the rowsource of your concerned combo box say combo2, use "Like [Forms]![YourFormName]![Combo1] & "*" in the criteria row of the respective field. This can be done through VBA too.

[chuki2]

Sorry for my bad english...

this is sample picture..



Can see? for first row is write -ALL- and another is come from the table...

How solved this problem?thanks for help...

[chuki2]

One more sample picture


Here there is a problem where when we select FLI, FLI + SMA will also be out. Can we select FLI, FLI only will be out?

[jzwp11]

What I showed earlier will get the All into your combo box. You will have to substitute your own table and field names in place of the table and field names I show in red below

SELECT tblemployees.pkEmpID, txtlastname & " "& txtfirstname AS EMPNAME
FROM tblemployees

UNION
SELECT 0,"ALL"
FROM tblEmployees
ORDER BY pkEMPID

[chuki2]

Ok thanks.. Solved my problem..

[jzwp11]

You're welcome