I need to know what i'm doing wrong with this....
Below this is the code in which I have wrote....
>
> Option Explicit
> Public gdbCurrent As Database
> Public mrstCurrent As Recordset
> Private pstrCountry As String
> Private psngPercent As Single
> Private psngDirection As Single
>
> Private Sub cmdDisplayPrices_Click()
> frmPrices.Show vbModal
> End Sub
>
> Private Sub cmdExit_Click()
> Unload Me
> End Sub
>
> Private Sub cmdUpdatePrices_Click()
> Dim pstrSQL As String
> Dim pstrTest As String
>
> psngPercent = Val(txtPercent.Text)
>
> If optCountry(0) Then
> pstrCountry = "Brazil"
> Else
> If optCountry(1) Then
> pstrCountry = "Koreo"
> Else
> If optCountry(2) Then
> pstrCountry = "Japan"
> End If
> End If
> End If
>
> If optDirection(0) Then
> psngDirection = (psngPercent * 1) +
> frmPrices.txtItemPrice.Text
> Else
> psngDirection = (psngPercent * -1) +
> frmPrices.txtItemPrice.Text
> End If
>
> pstrSQL = "UPDATE tblPriceList" & _
> " SET fldItemPrice =" & psngDirection & _
> " WHERE fldCountry =" & "pstrCountry"
>
> mrstCurrent.Edit
> mrstCurrent.Update
> End Sub
>
> Private Sub Form_Load()
> Set gdbCurrent = OpenDatabase("A:\Chapter.08\Exercise\Steel.mdb")
> Set mrstCurrent = gdbCurrent.OpenRecordset("tblPriceList")
> End Sub
>
> Option Explicit
> Public gdbCurrent As Database
> Private mrstCurrent As Recordset
>
> Private Sub cmdClose_Click()
> Me.Hide
> End Sub
>
> Private Sub LoadCurrentRecord()
> txtItemNumber.Text = mrstCurrent![fldItemNumber]
> txtCountry.Text = mrstCurrent![fldCountry]
> txtItemDescription.Text = mrstCurrent![fldItemDescription]
> txtItemPrice.Text = mrstCurrent![fldItemPrice]
> End Sub
>
> Private Sub Form_Load()
> Dim pstrFields As String
>
> pstrFields = "fldItemNumber, fldCountry, fldItemDescription,
> fldItemPrice"
>
> Set gdbCurrent = OpenDatabase("A:\Chapter.08\Exercise\Steel.mdb")
> Set mrstCurrent = gdbCurrent.OpenRecordset("tblPriceList")
> Call LoadCurrentRecord
> End Sub
>
> I need this back before tomorrow....if you all can help that would
> be great...thanks for your time....
>
--- In [email protected], Don Roberts <[EMAIL PROTECTED]> wrote:
> What do you need help on?
>
>
> On Wed, 30 Mar 2005 00:40:08 -0000, tears_from_heavenly_angels
> <[EMAIL PROTECTED]> wrote:
> >
> >
> > Below is the problem I'm trying to do....
> > Steel Fabricators purchases raw steel to fabricate beams and
other
> > parts used in large buildings. It purchases its steel from many
> > overseas sources. Due to currency fluctuations in the countries
in
> > which the steel is purchased, the price must frequently be
changed
> > for each item from a particular country. Prices can be changed
> > upward or downward depending on the country of origin. Steel
> > Fabricators needs a program to update the prices and to view the
> > price list. When complete, the main form for the program should
> > look like Figure 8-21.
> >
> > a) Run the executable file named Chapter.08\Exercise\Ex2.exe.
> > The form contains option buttons to select the country as well as
> > option buttons to charge the prices. In addition, a text box
> > enables the user to indicate the percentage amount of the price
> > change. When the user clicks the Update Prices command button,
the
> > prices for a particular country increase or decrease by the
> > percentage amount specified. The Display Prices command button
> > displays the current price list, and the Exit command button ends
> > the program. Note that for this executable program to run, the
> > database file Steel.mdb must reside in the same folder as the
> > executable file. The price entered should be a decimal value
> > between 0 and 1. For brevity, the percentage has not been checked
> > for errors. End the program.
> > b) Start Visual Basic and create a new project, if necessary.
> > c) Set the form name to frmEx2 and the caption to Steel
> > Fabricators � Update Prices.
> > d) Save the from as frmEx2.frm and the project as Ex2.vbp in
> > the Chapter.08\Exercise folder. Set the drive designator as
> > necessary.
> > e) In the general declarations section of the form module,
> > create a variable named gdbCurrent that can store the reference
to a
> > Database object.
> > f) Open the database named Chapter.08\Exercise\Steel.mdb when
> > the form loads. Set the drive designator as necessary. Store a
> > reference to the open database in the object variable named
> > gdbCurrent.
> > g) Create a command button to exit the program.
> > h) Create a Frame object and set the caption to Country.
> > i) Create a control array of three option buttons named
> > optCountry. Set the captions of these option buttons to Brazil,
> > Korea, and Japan.
> > j) Create a second Frame object with the caption Price
> > Direction.
> > k) Create a control array of two option buttons named
> > optDirection in the frame. Set the captions of these option
buttons
> > to Increase and Decrease.
> > l) Create a Frame object with the caption Percent and a text
> > box inside the frame named txtPercent.
> > m) Create two command buttons: one to update prices and another
> > to display a form containing the price list. Set the names and
> > captions as necessary.
> > n) In the command button to update prices, write the statements
> > in the Click event procedure to determine which option button the
> > user has selected and to store the selected country name in a
String
> > variable.
> > o) Write the statements to store the price change percentage in
> > a variable having the Single data type. If the new price
represents
> > an increase, the number should be positive. If the new price
> > represents a decrease multiple the number by -1 to make it
negative.
> > p) In a local String variable, store an UPDATE statement that
> > will update the field namded fldItemPRice in the table named
> > tblPriceList where the field named fldCountry is the same as the
> > selected country. The price stored in fldItemPrice should be
> > increased or decreased by the percentage amount specified by the
> > user.
> > q) Create a form that will display and locate the records from
> > the table named tblPriceList. You can create this form manually
or
> > use the Data Form Wizard to accomplish this task. Save the form
> > using the name frmPrices.frm. Use the fields named fldItemNumber,
> > fldCountry, fldItemDescription, and fldItemPrice.
> > r) Program the second command button on the main form to
> > display the newly created form as a modal form.
> > s) Test the program by displaying the original price list,
> > then increasing and decreasing the prices by different
percentages.
> > t) Save the forms and project again. Exit Visual Basic.
> >
> > Below this is the code in which I have wrote....
> >
> > Option Explicit
> > Public gdbCurrent As Database
> > Public mrstCurrent As Recordset
> > Private pstrCountry As String
> > Private psngPercent As Single
> > Private psngDirection As Single
> >
> > Private Sub cmdDisplayPrices_Click()
> > frmPrices.Show vbModal
> > End Sub
> >
> > Private Sub cmdExit_Click()
> > Unload Me
> > End Sub
> >
> > Private Sub cmdUpdatePrices_Click()
> > Dim pstrSQL As String
> > Dim pstrTest As String
> >
> > psngPercent = Val(txtPercent.Text)
> >
> > If optCountry(0) Then
> > pstrCountry = "Brazil"
> > Else
> > If optCountry(1) Then
> > pstrCountry = "Koreo"
> > Else
> > If optCountry(2) Then
> > pstrCountry = "Japan"
> > End If
> > End If
> > End If
> >
> > If optDirection(0) Then
> > psngDirection = (psngPercent * 1) +
> > frmPrices.txtItemPrice.Text
> > Else
> > psngDirection = (psngPercent * -1) +
> > frmPrices.txtItemPrice.Text
> > End If
> >
> > pstrSQL = "UPDATE tblPriceList" & _
> > " SET fldItemPrice =" & psngDirection & _
> > " WHERE fldCountry =" & "pstrCountry"
> >
> > mrstCurrent.Edit
> > mrstCurrent.Update
> > End Sub
> >
> > Private Sub Form_Load()
> > Set gdbCurrent = OpenDatabase("A:\Chapter.08\Exercise\Steel.mdb")
> > Set mrstCurrent = gdbCurrent.OpenRecordset("tblPriceList")
> > End Sub
> >
> > Option Explicit
> > Public gdbCurrent As Database
> > Private mrstCurrent As Recordset
> >
> > Private Sub cmdClose_Click()
> > Me.Hide
> > End Sub
> >
> > Private Sub LoadCurrentRecord()
> > txtItemNumber.Text = mrstCurrent![fldItemNumber]
> > txtCountry.Text = mrstCurrent![fldCountry]
> > txtItemDescription.Text = mrstCurrent![fldItemDescription]
> > txtItemPrice.Text = mrstCurrent![fldItemPrice]
> > End Sub
> >
> > Private Sub Form_Load()
> > Dim pstrFields As String
> >
> > pstrFields = "fldItemNumber, fldCountry, fldItemDescription,
> > fldItemPrice"
> >
> > Set gdbCurrent = OpenDatabase("A:\Chapter.08\Exercise\Steel.mdb")
> > Set mrstCurrent = gdbCurrent.OpenRecordset("tblPriceList")
> > Call LoadCurrentRecord
> > End Sub
> >
> > I need this back before tomorrow....if you all can help that
would
> > be great...thanks for your time....
> >
>
>
> --
> Don Roberts - [EMAIL PROTECTED]
> http://www.drscripting.com
> http://www.freakingidiot.com
'// =======================================================
Rules : http://ReliableAnswers.com/List/Rules.asp
Home : http://groups.yahoo.com/group/vbHelp/
=======================================================
Post : [email protected]
Join : [EMAIL PROTECTED]
Leave : [EMAIL PROTECTED]
'// =======================================================
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/vbhelp/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
