How to populate text box values on combobox in VB access database

Question

0.00/5 (No votes)

See more:

Hi friends,

I want to know about how to populate text box values on combo box in vb access database.

or how to get database values on combo box at form load event.

database values are stored in another table by form 2 and the combo box is placed on 1st form which enters the whole data into database.

also i am trying to make a popup for date reminder on check box button.

Thanks in advance

What I have tried:

here is my code:

VB

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub cmdExit_Click()
   End
End Sub

Private Sub CmdSave_Click()
   Set rs = New ADODB.Recordset
   rs.AddNew
   rs.Fields(CompanyName).Value = TxtCompanyName.Text
   Clear
End Sub

Private Sub UserForm_Click()
   con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Users\mahtab.ali\Documents\NoticeBook.mdb;Persist Security Info=False"
   rs.Open "Select * from CompanyName", con, adOpenDynamic, adLockPessimistic
   Me.fillcombo
End Sub

Sub Clear()
   ComboBox1.Value = ""
   TxtCompanyName.Text = ""
End Sub

Sub fillcombo()
   Do Until rs.EOF
      ComboBox1.AddItem rs!CompanyName
      rs.MoveNext
   Wend
End If
End Sub

Posted 26-Jan-17 3:15am

Rebel Spirit86

Updated 27-Jan-17 5:13am

CHill60

v4

Add a Solution

Comments

[no name] 26-Jan-17 9:34am

Without seeing your code and a description of the problem it's not possible for us to guess what "not working" means.

[no name] 26-Jan-17 10:18am

Okay so now there is code. And a quick look at your code, I seem to recall needing to MoveFirst on a recordset before trying to iterate through it. But without a description of whatever your problem is, that is just a guess. Learning how to use the debugger to debug your code would probably tell you more.

Rebel Spirit86 26-Jan-17 10:23am

thanks for the reply.

my problem is code is not connecting the combo box with the text box on from 2 and not getting table values. sometime it errors "Type Mismatch" & Compiler error Expected Handler"

I will provide u the whole criteria soon.

Thanks..

j snooze 26-Jan-17 17:35pm

well I have a hard time picturing what you are trying to accomplish, but why are you trying to fill the combo box on the form click event vs the form load?
Also, on the save click, why are you adding a new recordset? why are you trying to set a new recordset field to the company textbox value? I would think you would be trying to run an update on the table setting it to the new company value selected?? These are all guesses.

Rebel Spirit86 27-Jan-17 8:12am

yes j snooze friend.

i am updating the main table with collection of company name form combo box on form1 from other table which is saved by the company name in text box on form2. also load the combo box values on form 1.

Rebel Spirit86 27-Jan-17 10:07am

i am now using the following code for combo box update and removed the new recordset.

private sub CmdAdd_Click()
if form2.TxtCompanyName.Text <> "" Then
Form1.CmbSelectCompany.AddItem form2.TxtCompanyName.Text
form2.TxtCompanyName.Text = ""
Else
End If
End Sub

not showing any progress..
need humble help

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Rebel Spirit86 · Answer 1 · 2017-01-27T05:04:00

i've found some helpful code and changed it as my requirement and it works. it is showing values in combobox which were updated in new company textbox form.

VB

Private Sub Form_Initialize()
On Error GoTo Form_Initialize_Err
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Database Folder\Notice Book\Notice Book project\database\Notice Book.mdb;Persist Security Info=False"
    rst.Open "SELECT DISTINCT [CompanyName] FROM CompanyDetails ORDER BY [CompanyName];", _
             cnn, adOpenStatic
    rst.MoveFirst
    With Me.CmbSelectCompany
        .Clear
        Do
            .AddItem rst![CompanyName]
            rst.MoveNext
        Loop Until rst.EOF
    End With
Form_Initialize_Exit:
    On Error Resume Next
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub
Form_Initialize_Err:
    MsgBox Err.Number & vbCrLf & Err.Description, vbCritical, "Error!"
    Resume Form_Initialize_Exit
End Sub

thanks for ur time and help :)