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

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 :)

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

1 solution

Solution 1

Add your solution here

Preview 0

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

1 solution

Solution 1

Add your solution here

Preview 0

Existing Members

...or Join us