0

Sir I am facing problem,I want that when I open my form then select combo box value and by combo box my bellow grid and text box fill...but it is showing coding problem,so please guide me.
What can I do?
Regards: Asghar

2
Contributors
4
Replies
15
Views
4 Years
Discussion Span
Last Post by Syed Asghar Ali
0

Start by posting what you have tried already. Condense it down to only what is needed to show your problem. If there are any errors then post the error message and line number.

You haven't really told us what the problem is, only that there is a problem. We need more information to help you.

0

Thanks for response Chriswelborn, and I am facing coding problem, wait I am showing to you.

0

This is my code.

Private Function GetPartyList()

    Dim arrParam(0 To 1) As Variant
    Dim rsRData As New Recordset
    Dim result As String
    Dim sql As String

    result = ""

    ''Set Con = MdlConnect.OpenConnection()
    rsRData.Open "Select CustID,CustomerName from VuePOS where CustID =" & PartyID & "", OpenConnection(), adOpenDynamic, adLockOptimistic
    Set RScData = rsRData

    arrParam(0) = "CustID"
    arrParam(1) = "CustomerName"

    cbo.Clear
    Call RScData.Close
    RScData Nothing

End Function

Edited by Reverend Jim: Fixed formatting. Please use the CODE tool to add code.

0

There is error window open
(Arguments not optional)

Edited by Syed Asghar Ali

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.