Hi! Please help me to display currency in the text box ($999,999,99) when running the application and in printing? What code I will us. Please give me sample codes. Thanks

jgcv

hi there..

use:

format(text1.text,"currency")



Gonzalo Bianchi

Thanks

jgcv

Dear Friend,

I tried the code that you send and I cog an error in it. Here is my code file

Form Zurf '
'By JGCV '
'Date Nov. 13, 2003 '
'==============================================='
Dim Conn As ADODB.Connection
Dim Comm As ADODB.Command
Dim rsZurf As ADODB.Recordset
Dim msg As String
Dim answer As String
Dim lngNum As Long

Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    'open connection
    Set Conn = New ADODB.Connection
        Conn.CursorLocation = adUseClient
        Conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=Zurf;Data Source=MOV"

    'open table thru recordset
    Set Comm = New ADODB.Command

    Set rsZurf = New ADODB.Recordset
        rsZurf.Open " Select * From Item order by ItemNo ", Conn, adOpenStatic, adLockOptimistic

    'populate datagrid
    Set dbgItems.DataSource = rsZurf

    'DisableTextBoxes



End Sub
Private Sub cmdAdd_Click()
    If cmdAdd.Caption = "Add" Then
        cmdAdd.Caption = "OK"
        cmdEdit.Enabled = False
        cmdDelete.Enabled = False
        cmdCancel.Enabled = True

        EnableTextBoxes
        InitializedTextBoxes
        txtItemNo.SetFocus
    Else
        With Comm
            .ActiveConnection = Conn
        Conn.CursorLocation = adUseClient

            .CommandText = "AddItem"
            .CommandType = adCmdStoredProc
            .Parameters.Append .CreateParameter("ItemNo", adChar, adParamInput, 10, txtItemNo.Text)
            .Parameters.Append .CreateParameter("Descriptions", adVarChar, adParamInput, 30, txtDescription.Text)
            .Parameters.Append .CreateParameter("Price", adInteger, adParamInput, 10, txtPrice.Text) '("currency")
            .Execute
            rsZurf.MoveNext


            rsZurf.Requery


            'RestoreCommandBottonAdd
            Call RCBA

            Set Comm = Nothing

        End With

     End If

End Sub


Public Sub InitializedTextBoxes()
    txtItemNo.Text = ""
    txtDescription.Text = ""
    txtPrice.Text = ""

    'initialize maskeeditbox
    'mskDateEnd.Mask = ""
    'mskDateEnd.Text = ""
    'mskDateEnd.Mask = "##/##/####"
End Sub

Public Sub RCBA()
    cmdAdd.Caption = "Add"
    cmdAdd.Enabled = True
    cmdEdit.Enabled = True
    cmdDelete.Enabled = True
    cmdCancel.Enabled = True
End Sub

Public Sub EnableTextBoxes()
    txtItemNo.Enabled = True
    txtDescription.Enabled = True
    txtPrice.Enabled = True
End Sub

Can you please help me, is it my code wrong but when I run it run perfectly. I’m using SQL for the data base.

Hope you can help me. Thanks


jgcv