Help - VBA - Search Functionality - Database MS access - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!


Welcome to the new platform of Programmer's Heaven! We apologize for the inconvenience caused, if you visited us from a broken link of the previous version. The main reason to move to a new platform is to provide more effective and collaborative experience to you all. Please feel free to experience the new platform and use its exciting features. Contact us for any issue that you need to get clarified. We are more than happy to help you.

Help - VBA - Search Functionality - Database MS access

eliterajeliteraj Posts: 1Member
Hi All,

Pls help me!!!

Database Structure:

UserName String
Location String
Price Number

I have listbox with some items into it say 100. The user will select only 10 randomly in the listbox (after changing the MULTISELECT to 2fmMultiselect property). I will have search button. Once I select and click Search, the total price of selected items has to be calculated and displayed.

My search code ( Thanks to Alex sir)

Private Sub CommandButton4_Click()

Dim Cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sName As String

Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d: est2.accdb;Persist Security Info=False"
Cn.ConnectionTimeout = 40

Set rs = New ADODB.Recordset

sName = Replace$(TextBox1.Text, "'", "''")
rs.Open "Select * from SampleTable where UserName = '" & sName & "'", Cn, adOpenForwardOnly, adLockReadOnly, adCmdText

If (rs.EOF) Then
MsgBox "no match"
TextBox3.Text = rs("UserName") & " " & rs("Location")


End If

Set rs = Nothing
Set Cn = Nothing

End Sub[/code]

That code was just to search and display in a textbox.

Now, I need to total the price of what all UserName field selected by the user from listbox. Can someone post a code similar to that?

Thanks You

Sign In or Register to comment.