اغلاق نموذج تدريجيا

[moamen salem]

السلام عليكم انا عندي فكرة لاغلاق النموذج انه يقل تدريجيا بالكود دا 
Me.InsideHeight = Me.InsideHeight - 40
Me.InsideWidth = Me.InsideWidth - 90
If Me.InsideHeight <= 0 Then
DoCmd.Close
بس مشكلة الكود دا انه بقفل النموذج تدريجيا علي الجمب انا محتاجة في النص يعني ينقص من جميع الاتجاهات ... لو حد عنده تكملة فكرة يا ريت تفيدني

 

[عبد الله قدور]

For i = 1 To Me.InsideHeight

Me.InsideHeight = Me.InsideHeight - 40
Me.InsideWidth = Me.InsideWidth - 90
Next
If Me.InsideHeight <= 0 Then
DoCmd.Close
End If

السلام عليكم

جرب هذا الكود 

[محمد بن بشير]

بارك الله فيكم ، منكم نستفيد

[moamen salem]

في ٢٤‏/٩‏/٢٠١٦ at 18:48, عبد الله قدور said:

For i = 1 To Me.InsideHeight

Me.InsideHeight = Me.InsideHeight - 40
Me.InsideWidth = Me.InsideWidth - 90
Next
If Me.InsideHeight <= 0 Then
DoCmd.Close
End If

السلام عليكم

جرب هذا الكود 

نفس الفكرة بيقفل علي الجمب وليس الوسط

[رولي]

ممتاز ❤️