منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

شكرا لكل من ساعدني في تصحيح الخطأ
دمتم وجزاكم الله خيرا

ارجو الافادة ايه الخطا فى هذه الجملة
تظهر لى رسالة خطا وشكرا
Option Compare Database
Option Explicit
Dim prevpage As Double
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
Text162 = Text163 - prevpage
prevpage = Text163 and
Text166 = Text164 - prevpage
prevpage = Text164
End Sub