بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
-
Posts
2,021 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
72
Foksh last won the day on يوليو 24
Foksh had the most liked content!
السمعه بالموقع
1,032 Excellentعن العضو Foksh
![](https://www.officena.net/ib/uploads/monthly_2020_06/Expert.png.f1698934bdf1ae38ebc9b5dbeba06a68.png)
- تاريخ الميلاد 02 يول, 1982
البيانات الشخصية
-
Gender (Ar)
ذكر
-
Job Title
فني صيانة موبايل وكمبيوتر
-
البلد
الأردن
-
الإهتمامات
برمجة وصيانة الموبايل والكمبيوتر
اخر الزوار
2,859 زياره للملف الشخصي
-
اخي الكريم أهلاً وسهلاً بك معنا ،، بداية لا مانع من استخدامك أي لغة تريدها في برنامجك ، ولكن اللغة الكردية وإن لم أكن مخطئا السورانية قد لا تجد من يحاول تنفيذ الفكرة التي طلبتها . أعتقد أن هناك حل من اثنين إما كتابة المعطيات باللغة العربية أو الإنجليزية !! هذا من وجهة نظري ولست محكوماً بها 😇 تقبل تحياتي لك 💐
-
ما شاء الله أستاذنا الكبير @Barna ، عمل جميل وتحوير الأكواد والأفكار خطوة ذكية 🤗
-
كيف ذلك 🤔 ⁉️ الأصل في التأسيس سلامة منظومة إنشاء البيانات ، فلا يمكن على سبيل المثال أن يكون لمواطنين إثنين نفس الرقم الوطني أو القومي !! وكذلك الأمر للرقم السري .... إلخ. كلام سليم لا غبار عليه ، وللأسف الشديد سيجد النتيجة النهائية غير مرضية مما سيقوده لتلافيها مجبراً لا طوعاً حسب فكرته ، أو الرجوع لنقطة الصفر وإعادة النظر في طريقته وإعادة هيكلتها وتصويبها. في نهاية المطاف لك جزيل الشكر على تعبك ومجهودك العظيم معلمي الفاضل على ما قدمته من تطويع الأفكار حسب رغبة صديقنا الأخ أسعد 😇 وفيما يخص هذه النقطة ، سيترتب عليه وضع شروط أكثر لتحديد وتمييز الطالب الفلاني من بين الاربعة الذين لهم نفس رقم الجلوس عند الاستعلامات والبحث .
-
متابع بصمت روعة الأستاذ @ابوخليل والأخ @2saad في المناقشة والحلول المقترحة من معلمي الحبيب ابو خليل 🥰
-
تفضل أخي الكريم ، الأمر يسير ان شاء الله ، الق نظرة على الكود التالي ، وأعتقد ستعرف كيفية عمل فكرتك Private Sub cbo3_AfterUpdate() Me.CN.Value = Me.cbo3.Column(3) Me.TCN.Value = Me.cbo3.Column(4) Me.R.Value = Me.cbo3.Column(5) End Sub وهذا ملفك بعد التعديل محاولة2.accdb
-
تأخير الاستجابة من نموذج بحث من داخل نموذج فرعى
Foksh replied to AMINYOUSIF's topic in قسم الأكسيس Access
بعد التجربة للطريقتين ، لا يوجد البطئ الذي تتحدث عنه أخي الكريم , هلا قمت بتوضيح المشكلة بشكل منطقي أكثر !!!! -
سأكشف لكم عن سر 👀 كنت قد بدأت منذ عدة أيام بإنشاء طريقة تساعد على عمل قوائم مختصرة للنماذج ، ولكنها أخذت مني وقتاً وجهداً كبيرين ، وتوقفت عند مرحلة إعادة تجميع الأفكار 😇 💡 قريباً النسخة الأولى 💡
-
لديك أكثر من خيار ,, الأول ان تقوم بإرفاق ملف ليتم التطبيق عليه .. ثانياً تقدر تحط الأكواد في حدث عند التحميل ، هذا يعتمد على طريقة تصميمك للنموذج
-
اخي الكريم / أختي الكريمة أولاً لتلافي اغلاق اي موضوع غير متقيد بقوانين المنتدى ، أرجو منك مستقبلاً الإهتمام بطريقة نشر المواضيع الخاصة بك بحيث يتم ارفاق ملف لتطبيق العمل عليه . الآن لنفترض أن الحقول تم تسميتها بالشكل التالي لتسهيل كتابة الأكواد :- الرقم = ID اسم الفاكهه = Name_F الوزن = Wazn اسم الجدول = Hanen الآن سيتم انشاء 3 مربعات نص ( على سبيل المثال = Text1 , Text2 , Text3 ) لعدد الحقول التي وزنها أكبر من 6 كيلو Me.Text1.value =DCount("*", "Hanen", "[Wazn] > 6") لعدد الحقول التي وزنها بين 4 و 6 كيلو Me.Text2.Value = DCount("*", "Hanen", "[Wazn] BETWEEN 4 AND 6") لعدد الحقول التي وزنها أقل من 2 كيلو Me.Text3.Value = DCount("*", "Hanen", "[Wazn] < 2")
-
لا اعلم ان كان الذي فهمته صحيح أم لا ,, تفضل هذا التعديل البسيط 101.accdb
-
تم إصلاح بعض الأخطاء البرمجية ( تحسين أداء ) ، وإضافة ميزة التعرف على لغة أوفيس ( عربي - إنجليزي ) فقط . بحيث :- يتم التعرف على اللغة في واجهة أوفيس للمستخدم بحيث تظهر أسماء أنواع الحقول باللغة الإنجليزية إذا كان إصدار أوفيس باللغة الإنجليزية ، وخلاف ذلك تظهر القائمة المنسدلة لأنواع الحقول باللغة العربية . TBL Maker.accdb
-
تعديل بسيط على كود جلب سيريال المازر بورد
Foksh replied to عادل سرور سرور's topic in قسم الأكسيس Access
أهلا وسهلاً اخي الكريم معنا في عالمنا المتواضع ,, ارجو منك مستقبلاً ان تهتم أكثر بقوانين المنتدى بحيث :- تقوم بشرح المطلوب بشكل واضح و وافي ، وإرفاق ملف ليتم التعديل عليه وضمان النتيجة . جرب هذا الكود من أحد ملفاتي :- Function GetMotherboardSerialNumber() As String Dim wmiObject As Object Dim item As Object Dim computerName As String Dim motherboardUUID As String Set wmiObject = GetObject("winmgmts:\\") For Each item In wmiObject.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct") computerName = item.Name motherboardUUID = item.UUID Next item GetMotherboardSerialNumber = computerName & ", " & motherboardUUID End Function واستدعي النتيجة في أي مربع نص من خلال :- Me.TextBox = GetMotherboardSerialNumber() -
كلامك سليم مهندسنا الغالي .. تم تعديل الخلل في المرفق