ما هو الخطأ بهذا الكود

[ALWARITH]

أرجو الإيضاح حول الخطأ بهذا الكود حيث أنه لا يعمل معي بالطريقة التي أريدها كما وضعتها بالمثال .

Private Sub AccNo_Click()

If Reference = True Then
If MsgBox("This is Not a reference book, Do you like to continue borrowing?", vbYesNo + vbInformation, "Reference Book Warning!") = vbNo Then Exit Sub
          Else
            Me.Bor_date = date
            Me.due_date = DateAdd("d", 2, (date))
End If

If Reference = False Then
If MsgBox("This is a reference book, Do you like to continue borrowing?", vbYesNo + vbInformation, "Reference Book Warning!") = vbNo Then Exit Sub
           Else
            Me.Bor_date = date
            Me.due_date = DateAdd("d", 21, (date))
End If

End Sub

لكم بالغ شكري وتحياتي

الوارث

[أبو هادي]

السلام عليكم

أهلا وسهلا بك أخي الوارث .

جرب هذا الكود بعد التعديل :

Private Sub AccNo_Click()
  If Reference = True Then
    If vbbo = MsgBox("This is Not a reference book, Do you like to continue borrowing?", vbYesNo + vbInformation, "Reference Book Warning!") Then
      Exit Sub
    Else
      Me.Bor_date = Date
      Me.due_date = DateAdd("d", 2, (Date))
    End If
  Else
    If vbNo = MsgBox("This is a reference book, Do you like to continue borrowing?", vbYesNo + vbInformation, "Reference Book Warning!") Then
      Exit Sub
    Else
      Me.Bor_date = Date
      Me.due_date = DateAdd("d", 21, (Date))
    End If
  End If
End Sub

تحياتي .

[ALWARITH]

أستاذي العزيز أبو هادي

بعد التحية والسلام

قمت بتجربة الكود الذي قمت بتعديله وعملته أنا كالتالي

Private Sub AccNo_Click()
If Reference = True Then
   If vbNo = MsgBox("This is a reference book, Do you like to continue borrowing?", vbYesNo + vbInformation, "Reference Book Warning!") Then
     Exit Sub
   Else
     Me.Bor_date = date
     Me.due_date = DateAdd("d", 2, (date))
   End If
 Else
     Me.Bor_date = date
     Me.due_date = DateAdd("d", 21, (date))
   End If

End Sub

ولكن المشكلة أنه يعتبر كل الكتب مراجع دون أخذ الطريقه على انه صح أم خطأ وتكون في كل الأحوال التواريخ حسب المعطى الأول بحساب يومان.

حيث من المفترض أنه إذا كان الكتاب مرجع (True) يحسب يومان ، غير ذلك يحسب 21 يوما.

لك بالغ شكري وتحياتي

أخوك الوارث

[أبو هادي]

السلام عليكم

أخي الوارث ،

مشكلة الـ Reference ليست عيبا بالكود ، ربما لا يحمل هذا المتغير القيم الصحيحة ، تأكد من أنه من نوع Boolean .

أما الكود بشكل عام بعد تعديلك الأخير فهو صحيح .

تحياتي .

تم تعديل يناير 10, 2004 بواسطه أبو هادي

[ALWARITH]

أستاذي ابو هادي

شكرا جزيلا ودائما تتحفنا بأجوبتك الشافية ، بالغ تقديري وأحتراماتي

أخوك الوارث