Help - VBA - Search Functionality - Database MS access

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.

Howdy, Stranger!

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