Rent A Coder

Show Bid Request

Code
Bid Request Id: 6169

Bookmark in my 'To Do' list

Posted by:	Uksoftware (2 ratings) (Software buyer rating 9.5)
Posted:	Dec 7, 2001 1:17:07 PM EDT
Bidding Closes:	Dec 21, 2001 1:17:54 PM EDT
Viewed (by coders):	120 times

Phase:	100% of work was accepted by buyer. Coder account has been credited.
Max Accepted Bid:	Bidding is closed
Project Type:	Personal Project / Homework Help
Bidding Type:	Open Auction
Categories:	Visual Basic

Enter chat room for this bid request
(0 active users at Jan 20, 2003 3:44:40 PM EDT)

Description:
I am looking for some code i am using an adoc1 control to the access database and the query code is below what i am looking for is if no results are found to disply a message box no plans

Private Sub BuildSearchSQL()

Dim sSQL As String

' We will look the Combo1.ListIndex for building the SQL
If Combo1.ListIndex = Combo1.ListCount - 1 Then
' "All Plans"
sSQL = "SELECT * FROM Plans"
ElseIf Combo1.ListIndex = 0 Then
' Nothing selected get lost from here
Exit Sub
ElseIf Combo1.ListIndex = 1 Then
sSQL = "SELECT * FROM Plans WHERE (Type= 'Fixed')"
ElseIf Combo1.ListIndex = 2 Then
sSQL = "SELECT * FROM Plans WHERE (Type= 'Discount')"
ElseIf Combo1.ListIndex = 3 Then
sSQL = "SELECT * FROM Plans WHERE (Type= 'Variable')"
ElseIf Combo1.ListIndex = 4 Then
sSQL = "SELECT * FROM Plans WHERE (Type= 'Fixed' OR Type = 'Discount')"
ElseIf Combo1.ListIndex = 5 Then
sSQL = "SELECT * FROM Plans WHERE (Type= 'Variable' OR Type = 'Discount')"
ElseIf Combo1.ListIndex = 6 Then
sSQL = "SELECT * FROM Plans WHERE (Type= 'Variable' OR Type = 'Fixed')"
ElseIf Combo1.ListIndex = 6 Then
' if u add any thing else in the combo box
' please add the SQL
End If

' Now initialise the form and show the form
' this is how one shoulf pas the data to the form
' Also you can define publice variable in the form and pass the
' data with formname.variablename
' But the approch shown below is more convient and professional

Form20.InitFormWithData sSQL
Form20.Show
Me.Hide

Hope some one can help with this for me.

Deliverables:
Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. Complete copyrights to all work purchased.

Remember that contacting the other party outside of the site (by email, phone, etc.) on all business projects < $500 (before the buyer's money is escrowed) is a violation of both the software buyer and seller agreements. We monitor all site activity for such violations and can instantly expel transgressers on the spot, so we thank you in advance for your cooperation. If you notice a violation, you can report it to: abuse@rentacoder.com.

Bidding/Comments:

All monetary amounts on the site are in United States dollars.
Rent a Coder is a closed auction, so coders can only see their own bids and comments. Buyers can view every posting made on their bid requests.

See all rejected bids (and all comments)

Name Bid Amount
Date Coder Rating

This bid was accepted by the buyer!

Timothy
(14 ratings)
in Pomona, California
United States

$5 (USD) Dec 7, 2001
3:23:01 PM EDT 10
(Excellent)

I produce quality work that will far exceed what you pay for. Mosly I just like the challenge of some of these projects and they're alot of fun. Doing this gives me a nice break from some of the more serious coding I do. I hope you accept my bid, you won't be disapointed.
All source code is fully commented.

See 1 private reply(ies)
to/from Timothy.