aleas2
چهارشنبه 18 تیر 1393, 23:22 عصر
دوستان بنده از این کد برای بستن تمام فرم ها استفاده میکنم
Private Sub Form_Unload(Cancel As Integer) ''''''''ÎÑæÌ
Dim f As Integer
f = Forms.Count
Do While f > 0
Unload Forms(f - 1)
If f = Forms.Count Then Exit Do
f = f - 1
Loop
End Sub ''''''''''''
ولی بعد نگاه میکنم هنوز برنامه تو تسک منجر هسته مشکل چی؟
ضمنا از اکتیو ریپورت هم استفاده میکنم؟
امکان داره شاید اونارو نمیبنده؟چطور پنجره مربوط اکتیو ریپورت ببندم؟
Private Sub Form_Unload(Cancel As Integer) ''''''''ÎÑæÌ
Dim f As Integer
f = Forms.Count
Do While f > 0
Unload Forms(f - 1)
If f = Forms.Count Then Exit Do
f = f - 1
Loop
End Sub ''''''''''''
ولی بعد نگاه میکنم هنوز برنامه تو تسک منجر هسته مشکل چی؟
ضمنا از اکتیو ریپورت هم استفاده میکنم؟
امکان داره شاید اونارو نمیبنده؟چطور پنجره مربوط اکتیو ریپورت ببندم؟