بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'معلومة وفائدة'.
تم العثور علي 2 نتائج
-
بسم الله الرحمن الرحيم ، خطرت لي فكرة في حماية الجداول ، وهذا المتطلب دائماً يكون من أولويات المبرمج في حماية بيانات العميل من العبث الغير مسموح به .. لذا وددت مناقشة الفكرة بصوت عالٍ في ساحة المنتدى للنقاش . ( والفكرة خاصة غير موجودة في منتديات أخرى على ما أعتقد بعد البحث طبعاً ) نعلم جميعاً أن ملف الجداول لا بد من أن يكون بصيغة يفهمها الأوفيس بشكل عام والآكسيس بوجه خاص ليستطيع التعامل معها وفتحها والكتابة عليها .... إلخ . ولذا قمت بتجربة تغيير إمتداد الملف الخاص بالجداول من Accdb أو Accde إلى Dll مثلاً ( أو أي امتداد آخر قد يبعد الشك عن الملف ) ؛ وعند عملية الربط سنقوم بتعرف ملف الـ Dll على أنه Accdb أو Accde وهنا سيتم إلى حد ما التقليل من خطر العبث بملف الجداول مع الحفاظ على فكرة قفل ملف الجداول بكلمة مرور طبعاً . هذه الفكرة قابلة للنقاش وهنا تجربة بسيطة لبرنامج سحب قرعة أسماء لمحل تجاري لتشجيع متابعيه على مواقع التواصل الإجتماعي لمتابعته في بث المباشر وتوزيع جوائز على الرابحين. الملف على جوجل درايف -
السلام عليكم ورحمة الله وبركاته 🙂 اليوم بفضل الله تعلمت شي جديد وحبيت أحطه في تطبيق عملي مباشرة ً .. 😎 وفي نفس الوقت حبيت أشارككم الفائدة 😄 معلومة اليوم تتحدث عن الحدث : Form.Repaint للنموذج ويمكن كتابته هكذا Me.Repaint ووضيفته مشابهة للـ DoEvents تقريبا إلا أنه مع التجربة والمقارنة وجدته أسرع في التنفيذ . معناه الحرفي ( إعادة الرسم ) ووضيفته بشكل عام هو إظهار أي تحديثات معلقة للنموذج في أثناء تنفيذ أي حدث 😁 .. وللمزيد من المعلومات هنا ستجدون رابط الشرح من مايكروسوفت : <<< اضغط هنا >>>> المهم .. هذا تطبيقي على الحدث وتكمن في تحريك الأزرار عند الضغط عليها بشكل يضفي طابع جمالي وجديد للنماذج 🙂 ( قد لا تبين حركة الأزرار العلوية في الصورة التوضيحية .. لذلك سترونها بوضوح من خلال الملف المرفق 😁 ) وهذا شكلها في الأكواد المستخدمة : Function AnimateBtns1() Dim x As Integer Dim y As Integer For x = 1 To 6 Me("b" & x).Visible = True For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top + y Me.repaint Next y For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top - y Me.repaint Next y Me.repaint Next x End Function Function AnimateBtns2() Dim x As Integer Dim y As Integer For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top + y Me.repaint Next y Me.repaint Next x For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top - y Me.repaint Next y Next x End Function تحياتي 🙂 ✌️🌷🌹 حركة الأزرار.accdb
