Need help debugging a code badly

[islandvi]

Code: Select all

Option Explicit

Private Sub cmdDisplay_Click()
    Dim intNumRec As Integer, udtItemRec As ItemStruc
    intNumRec = Val(txtNum.Text)
    If intNumRec > 0 And intNumRec < 11 Then
        Get #1, intNumRec, udtItemRec
    End If
    txtItem.Text = udtItemRec.strName
    txtPrice.Text = udtItemRec.sngPrice
    txtNum.SetFocus
End Sub

Private Sub cmdEnter_Click()
    Dim intNumRec As Integer, udtItemRec As ItemStruc
    intNumRec = Val(txtNum.Text)
    udtItemRec.strName = txtItem.Text
    udtItemRec.sngPrice = Val(txtPrice.Text)
    If intNumRec > 0 And intNumRec < 11 Then
        Put #1, intNumRec, udtItemRec
    End If
    txtNum.SetFocus
End Sub


Private Sub Form_Load()
    frmItem.Left = (Screen.Width - frmItem.Width) / 2
    frmItem.Top = (Screen.Height - frmItem.Height) / 2
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Close #1
End Sub


Private Sub mnuFileExit_Click()
    Unload frmItem
End Sub

Private Sub mnuFileNew_Click()
    On Error GoTo NewErrHandler
    dlgItem.CancelError = True
    dlgItem.Flags = cdlOFNOverwritePrompt
    dlgItem.Filter = "Data (*.dat) | *.dat"
    dlgItem.ShowSave
    Call Initialize(dlgItem.FileName)
    cmdEnter.Enabled = True
    cmdDisplay.Enabled = True
    Exit Sub
   
NewErrHandler:
End Sub

Private Sub mnuFileOpen_Click()
    Dim intRecNum As Integer, udtItemRec As ItemStruc
    On Error GoTo OpenErrHandler
    dlgItem.CancelError = True
    dlgItem.Flags = cdlOFNFileMustExist
    dlgItem.Filter = "Data (*.dat) | *.dat"
    dlgItem.FileName = ""
    dlgItem.ShowOpen
    Close #1
    Open dlgItem.FileName For Random As #1 Len = Len(udtItemRec)
    frmItem.Caption = dlgItem.FileName & " - Item Information"
    cmdEnter.Enabled = True
    cmdDisplay.Enabled = True
    Exit Sub
   
OpenErrHandler:
End Sub

Private Sub txtItem_GotFocus()
    txtItem.SelStart = 0
    txtItem.SelLength = Len(txtItem.Text)
End Sub

Private Sub txtNum_Change()
    txtItem.Text = ""
    txtPrice.Text = ""
End Sub

Private Sub txtNum_GotFocus()
    txtNum.SelStart = 0
    txtNum.SelLength = Len(txtNum.Text)
End Sub


Private Sub txtPrice_GotFocus()
    txtPrice.SelStart = 0
    txtPrice.SelLength = Len(txtPrice.Text)
End Sub

Private Sub Initialize(strFileName As String)
    Dim intRecNum As Integer, udtItemRec As ItemStruc
    On Error GoTo InitErrHandler
    udtItemRec.strName = Space(20)          'initialize field variables
    udtItemRec.sngPrice = 0
    Close #1
    Open strFileName For Random As #1 Len = Len(udtItemRec)
    For intRecNum = 0 To 9
        Put #1, intRecNum, udtItemRec       'initialize each record
    Next intRecNum
    frmItem.Caption = strFileName & " - Item Information"
    Exit Sub
   
InitErrHandler:
End Sub



[sendtoanurag]

Can u tell exactly wat problem u r facing