مشكلة في معرفة السجل الحالي ...

يا جماعة مشكلتي هي أنوا أنا ما عم أقدر أعرف شو هو السجل الحالي مشان أقد أتعامل معوا .

المهم :

البرنامج برنامج بسيط يقوم بعملية شراء بسيطة :

لكن المشكلة هي كالتالي :

لنفرض لدي عنصر رقمه 3 و يحتوي على 5 قطع

و العنصر رقم 1 يحتوي على 0 قطع .

عند تطبيق البرنامج ليأخذ من العنصر رقم 3 القطع الـ 5 الوجودة يصبح مايلي :

العنصر 3 القطع 5

العنصر 1 القطع -5

فما هو الحل ؟

Private Sub about_Click()
frmAbout.Show
End Sub

Private Sub Command1_Click()
Data1.Recordset.MoveFirst
path_img
End Sub

Private Sub Command2_Click()
    If Data1.Recordset.EOF = False Then
        Data1.Recordset.MoveNext
    Else
        MsgBox "ááÃÓÝ áÇ íæÌÏ Ãí ãÏÎáÇÊ ÃÎÑì"
    End If
  path_img
End Sub

Private Sub Command3_Click()
    If Data1.Recordset.BOF = False Then
        Data1.Recordset.MovePrevious
    ElseIf Data1.Recordset.BOF = True Then
        MsgBox "ááÃÓÝ áÇ íæÌÏ Ãí ãÏÎáÇÊ ÃÎÑì"
    End If

 path_img
End Sub

Private Sub Command4_Click()
Data1.Recordset.MoveLast
path_img

End Sub

Private Sub Command5_Click()
    Dim book As Variant

    
    If Abs(Val(Text2.Text)) < Abs(Val(Text6.Text)) Then
    MsgBox ("ááÃÓÝ áÇ íãßä ÇÊãÇã ÇáÚãáíÉ áÃä ÇáÚÏÏ ÇáãØáæÈ ÃßÈÑ ãä ÇáãÊæÇÌÏ Ýí ÇáãÎÒä")
    
    Else
    Rem If Data1.Recordset.Bookmarkable = True Then
     Rem    book = Data1.Recordset.Bookmark
        Data1.ReadOnly = False
        Data1.Refresh
        Data1.Recordset.Edit
       Rem ÊÚÏíá ÇáÈíÇäÇÊ ãä ÇáÓÌá ÇáÐí äÑíÏ ÇáÔÑÇÁ ãäå
        Data1.Recordset.Fields(3) = Abs(Val(Text2.Text)) - Abs(Val(Text6.Text))
        Data1.Recordset.Update
        Data1.ReadOnly = True
   Rem     Data1.Recordset.MoveFirst
   Rem      Data1.Recordset.Bookmark = Data1.Recordset.lastModified
'        Data1.Recordset.Bookmark = book
        Data1.Refresh
        Text6.Text = ""
     Rem End If
    End If
    
    path_img
    
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub Form_Load()
   Dim i As Integer
   
   Data1.Refresh
   path_img
   
       
   For i = 1 To 3
      StatusBar1.Panels.Add   ' Add 2 Panel objects.
   Next i

   With StatusBar1.Panels
      .Item(1).Style = sbrNum   ' Number lock
      .Item(2).Style = sbrCaps   ' Caps lock
      .Item(3).Style = sbrScrl   ' Scroll lock
      .Item(4).Style = sbrText
      .Item(4).AutoSize = sbrContents
      .Item(4).Text = "Date and Time: " & Now
   End With
   Label2.Caption = "OS Build " & SysInfo1.OSBuild & " / OS Version  " & SysInfo1.OSVersion
      
End Sub

Private Sub hompage_Click()
Form2.Show
Form1.Enabled = False
Form2.WebBrowser1.StatusBar = True
Form2.Caption = "ÇáÌÇãÚÉ ÇáÇÝÊÑÇÖíÉ ÇáÓæÑíÉ"
Form2.WebBrowser1.MenuBar = True
Form2.WebBrowser1.Navigate (Form1.Inet1.URL)
End Sub

Private Sub StatusBar1_Click()
   ' Toggle between simple and normal style.
   With StatusBar1
      If .Style = 0 Then
         ' This text will be displayed when the StatusBar is in Simple style.
         .SimpleText = "Date and Time: " & Now
         .Style = sbrSimple   ' Simple style.
      Else
         .Style = sbrNormal   ' Normal style.
      End If
   End With
End Sub

Private Sub path_img()

Rem ÓíÊã ÃÎÐ ÈíÇäÇÊ ÇáÕæÑ ãä ÞÇÚÏÉ ÇáÈíÇäÇÊ
    If Label3.Caption = "" Then
      Label3.Caption = "default.jpg"
    Else
         imgname = App.Path & "\pic\" & Label3.Caption
         Image1.Picture = LoadPicture(imgname)
    End If
    status
    buy
End Sub
Private Sub status()
   If (Data1.Recordset.BOF = True) Or (Data1.Recordset.EOF = True) Then
   MsgBox ("no more records")
   Else
    If Data1.Recordset.Fields(7).Value = 1 Then
        Text4.Text = "ãæÌæÏ"
    ElseIf Data1.Recordset.Fields(7).Value = 2 Then
        Text4.Text = "ÚäÏ ÇáØáÈ"
    ElseIf Data1.Recordset.Fields(7).Value = 3 Then
        Text4.Text = "ÛíÑ ãæÌæÏ"
    ElseIf Data1.Recordset.Fields(7).Value = 4 Then
        Command5.Enabled = False
        Text6.Enabled = False
        Label7.Caption = "áÇ íãßä ÔÑÇÁ åÐÇ ÇáãäÊÌ"
        Text4.Text = "ãäÊÌ ãäÊåí"
    End If
   End If
    
End Sub

Private Sub buy()
If (Abs(Val(Text2.Text)) = 0) Then
    Command5.Enabled = False
    Text6.Enabled = False
    Label7.Caption = "áÇ íãßä ÔÑÇÁ åÐÇ ÇáãäÊÌ"
  Else
   Command5.Enabled = True
   Text6.Enabled = True
   Label7.Caption = ""
End If

End Sub

أرجوا منكم المساعدة الضرورية اليوم .