kh-bakkar قام بنشر مارس 28, 2021 مشاركة قام بنشر مارس 28, 2021 السلام عليكم اخوتي الاكارم لدي سؤال لو سمحتم لدي نموذج اكسس جعلت خصائصه كالتالي نمط الحدود (لا) اشرطة التمرير (لاهذا ولا ذاك) مربع عنصر التحكم (لا) زر الاغلاق (لا) زر التكبير والتصغير(لا) قابل للنقل (نعم) لكن بهذه الخصائص لا يمكنني ازاحة النموذج بالماوس في اي اتجاه اريد (يمين .. يسار .. اعلى .. اسفل) سؤالي هل يوجد طريقة ما بالكود لجعل النموذج يتحرك باى اتجاه نريد بالضغط على زر الماوس؟ ؟ ارجو ان اكون قد وفقت في ايصال الفكرة بحثت كثيرا ولم اجد طريقة ارجو المساعدة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 28, 2021 مشاركة قام بنشر مارس 28, 2021 وعليكم السلام 🙂 الامر هو docmd.MoveSize Right, Down, Width, Height جعفر 2 1 رابط هذا التعليق شارك More sharing options...
Featured Comment ابو محمد 316 قام بنشر مارس 28, 2021 Featured Comment مشاركة قام بنشر مارس 28, 2021 (معدل) السلام عليكم ورحمة الله إضافة الى ماتقدم به الأخ jjafferr هذا مثال قد يفيدك فقط اضغط على (((بحث عام )) عنوان المنوذج يكون شفاف ويمكن تنقلة في أي مكان من الشاشة بالتوفيق إن شاء الله Database99.rar تم تعديل مارس 28, 2021 بواسطه ابو محمد 316 3 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 28, 2021 مشاركة قام بنشر مارس 28, 2021 5 دقائق مضت, ابو محمد 316 said: هذا مثال قد يفيدك فكرة جميلة 🙂 جعفر 2 رابط هذا التعليق شارك More sharing options...
kh-bakkar قام بنشر مارس 28, 2021 الكاتب مشاركة قام بنشر مارس 28, 2021 48 دقائق مضت, jjafferr said: وعليكم السلام 🙂 الامر هو docmd.MoveSize Right, Down, Width, Height جعفر شكرا لردك اخ جعفر ساجرب الامر 🌺 1 رابط هذا التعليق شارك More sharing options...
kh-bakkar قام بنشر مارس 28, 2021 الكاتب مشاركة قام بنشر مارس 28, 2021 شكرا لردك اخ ابو محمد جزاك الله خيرا 🌺🌺 2 رابط هذا التعليق شارك More sharing options...
kh-bakkar قام بنشر مارس 29, 2021 الكاتب مشاركة قام بنشر مارس 29, 2021 استاذ ابو محمد الله يعطيك العافية ظهرت لي مشكلة مع المثال المرفق لديك مع العلم انني استخدم وندوز سفن 64 بت وحولت المديول الى نظام 64 باضافة كلمة ptrsafe لكن مازال يواجهني الخطأ مرفق صورة شكرا لك سلف رابط هذا التعليق شارك More sharing options...
kh-bakkar قام بنشر مارس 29, 2021 الكاتب مشاركة قام بنشر مارس 29, 2021 استاذ جعفر شكرا لك على ردك جزاك الله خيرا ولكن واجهتني ايضا مشكلة في الحل لديك مرفق رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 29, 2021 مشاركة قام بنشر مارس 29, 2021 8 دقائق مضت, kh-bakkar said: وحولت المديول الى نظام 64 باضافة كلمة ptrsafe لكن مازال يواجهني الخطأ هذه الطريقة لجعل النظام يعمل على النواتين: جعفر 1 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مارس 29, 2021 مشاركة قام بنشر مارس 29, 2021 ليش كل هذا العمل ، كل اللي عليك عمله هو انك تغير هذه الاعدادات: في ٢٨/٣/٢٠٢١ at 19:32, kh-bakkar said: نمط الحدود (لا) ولما تستخدم طريقة اخوي ابومحمد ، ففي الواقع اسهل لك ان تغير اعدادات النموذج والسلام 🙂 26 دقائق مضت, kh-bakkar said: واجهتني ايضا مشكلة انا اعطيتك الامر ، ويجب ان تدُخل الارقام لكي يعمل الامر ، وهذا مثال من برامجي (لا عليك من كل الكود ، فقط انظر للسطرين الاخيرين) ، والافضل لك ان تبحث قليلا في مساعد الاكسس حتى تعرف الارقام التي يجب استعمالها ، والارقام هي بالـ Twips ، فاذا نظام الكمبيوتر عندك بالسنتيمتر ، تضرب الرقم في 567 ، واذا النظام بالبوصة فتضربه في 1440 : Right = المسافة من طرف شاشة الاكسس ، من اليسار ، Down =المسافة من طرف شاشة الاكسس ، من فوق ، Width = عرض النموذج ، Height = ارتفاع النموذج 'get the Form size H = Me.WindowHeight W = Me.WindowWidth '0 = metric t = 567 ' Open the Form DoCmd.OpenForm "frm_Items_DS", acFormDS Forms!frm_Items_DS.SetFocus DoCmd.GoToRecord , , acNewRec DoCmd.GoToControl "Receipt_Date" 'select the Form DoCmd.SelectObject acForm, "frm_Items_DS", False DoCmd.Restore 'DoCmd.MoveSize right, Down, Width, Height 'DoCmd.MoveSize (t * 0.1), (t * 0.1), 18000, 13500 DoCmd.MoveSize 1, 1, W - (W * 0.02), H - (H * 0.05) جعفر 2 1 رابط هذا التعليق شارك More sharing options...
kh-bakkar قام بنشر مارس 29, 2021 الكاتب مشاركة قام بنشر مارس 29, 2021 تم الحل جزاكم الله خيرا اخواني الاستاذ جعفر والاستاذ ابو محمد شكرا لكم ❤❤ رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبو إبراهيم الغامدي قام بنشر مارس 29, 2021 أفضل إجابة مشاركة قام بنشر مارس 29, 2021 أهلا بكم.. لجعل الأمور أكثر سهولة ومرونة للمبتدئين.. الشفرة التالية تفي بالغرض! Option Compare Database Option Explicit Dim xp As Single, yp As Single '-- أخذ النقطة الأولية للفارة وإسنادها إلى متغير عام '-- بهذه االطريقة يمكن قبض النافذة من أي نقطة دون الشعور بعدم التركيز Private Sub FormHeader_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) xp = X yp = Y End Sub Private Sub FormHeader_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim l, t If Button = acLeftButton Then l = Me.WindowLeft + X - xp t = Me.WindowTop + Y - yp Me.Move l, t End If End Sub أو هذه أيضا '-- هذه الطريقة تتماشى مع سلوك المستخدم '-- أغلب المستخدمين يقبض النافذة من المنتصف '-- الشعور بعدم التركيز لا يكاد يلحظ Private Sub FormHeader_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim l, t If Button = acLeftButton Then l = (Me.WindowLeft + X) -(Me.WindowWidth/2) t = (Me.WindowTop + Y) - (Me.FormHeader.Height/2) Me.Move l, t End If End Sub Database1.accdb 2 4 رابط هذا التعليق شارك More sharing options...
kh-bakkar قام بنشر مارس 29, 2021 الكاتب مشاركة قام بنشر مارس 29, 2021 جزاك الله خير اخي ابو ابراهيم الغامدي هذا لطف منك لتقديم افكار مساعدة لك مني كل التقدير 🌺🌺 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
قام بكتابته ابو محمد 316,
المشاركة مكتملة الحل مع بعض المحسنات
أوصى به أبو إبراهيم الغامدي
4 reactions
Go to this post
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان