بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
1,347 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
29
Community Answers
-
kha9009lid's post in فصل المادة عن الشعبة was marked as the answer
جرب المرفق
للمادة
: Left([subname];Len([subname])-9) للشعبة
: Right([subname];9)
Database2.mdb
Data2000.mdb
-
kha9009lid's post in اهداء للمنتدى -- برنامج محاسبة الشركات الاصدار الرابع was marked as the answer
الف شكر استاذ عبد اللطيف ولي عودة بعد اختبار البرنامج
-
kha9009lid's post in العدد العشري او الكسري was marked as the answer
واذا ترغب البقاء في الجدول ممكن تظيف حقل في الجدول بالبونص المستحق
جرب المرفق
Database102.accdb
طبعا استعنت بحل استاذنا جعفر
-
kha9009lid's post in طريقة البحث عن الاسم في مربع البحث بدون اضغط على enter was marked as the answer
استاذي @essam rabea وضع الحل عن طريق نموذج فرعي مخفي يتم اضهارة وتحديثة عند التغيير
وهنا حل اخر بدون الحاجة الى نموذج فرعي
test2.accdb
-
kha9009lid's post in Application lcon was marked as the answer
هذه لتغيير ايقونة برنامجك
ومالها علاقة بالنسخ الاحتياطي
-
kha9009lid's post in اريد طريقه لعمل زر cler was marked as the answer
فيه حلول لا تقلق
الاصدار المعدل بالامس هل يعمل بدون مشاكل ?
هنــا
اذا كان يعمل فقط ادخل عرض التصميم واعمل زر امر وضع الكود التالي
On Error Resume Next DoCmd.GoToRecord , , acNewRec Me.u_s = Null Me.sh = Null وان لم يعمل قم بانشاء قاعدة جديدة فارعة واستورد كافة كائنات القاعدة القديمة
جرب الحل الاول اولا
علما بان الكود المقدم من الاستاذ على يعمل جيد
بالتوفيق
-
kha9009lid's post in كيف المقارنه بين بيانات جدولين و حساب الفرق بين الخلايا المتقابله was marked as the answer
هل هذا المطلوب مقارنة واحتساب الفرق عند تساوي رقم الايصال
مثال.accdb
-
kha9009lid's post in طباعة تقرير بشرطين was marked as the answer
الحمد لله انك وجدت الحل
اخي بارك الله فيك معرفة الحقل ونوعة امر مهم لتحصل على الاجابة الصحيح
في هذا الرد سوف اضع لك اكواد لدالة واحدة وتاخذ البيانات من نفس الجدول يختلف كتابة الكود جزئيا باختلاف نوع الحقل ولو لم تضع التنصيص الصحيح فلن تعلم
DLookup("[items_Name]", "items", "code_items=" & Forms!frm1!txtItemsCode) DLookup("[items_Name]", "items", "code_items='" & Me.txtItemsCode & "'") DLookup("[items_Name]", "items", "code_items=#" & Me.txtItemsCode & "#") لذا فان ما طلبة الاساتذة الكرام ليس تطفل وانما امر مطلوب لوضع الحل الصحيح
وايضا الاكواد التي وضعها الزملاء صحيحة وربما لم تعمل معك لاختلاف المعيار
اسأل الله لي ولك التوفيق والسداد
-
kha9009lid's post in دمج 3 جداول في جدول واحد جديد was marked as the answer
في المرفق
الخطوة الاولى استعلام توحيدي يدمج الجداول الثلاث
SELECT * FROM tbl1 UNION SELECT * FROM tbl2 UNION SELECT * FROM tbl3; الخطوة الثاني استعلام اخر يقوم بانشاء جدول جديد
SELECT استعلام1.id, استعلام1.n_name INTO tbl4 FROM استعلام1;
Database471.accdb
قم بتشغيل استعلام 2 سيقوم بانشاء جدول tbl4 والذي يحتوي على كافة سجلات الجداول الثلاث
الامر الاهم ان تكون بنية واسماء الحقول متطابقة
-
kha9009lid's post in الترقيم التلقائى autornumber was marked as the answer
نعم يمكن وبعدة طرق
الطريقة الاولى في خصائص الحقل الخاص بالترقيم في خانة تنسيق ضع الرقم الذي ترغب
الطريقة الثانية ترقيم عن طريق الكود
id = Nz(DMax("[id]", "tbl1"), 0 & Format(5000)) + 1 في المرفق نموذج للطريقتين
Database451.accdb
-
kha9009lid's post in المساعدة في عملية ضرب كمية الصافي في سعر الوحدة was marked as the answer
اجمع المبلغ بنفسك يدويا تجدة 1052.855 وليس 1052.856
وتجد ان الاجمالي الصحيح هو 442199100
-
kha9009lid's post in تجميع حقل في استعلام was marked as the answer
اعتذر منك لم افهم المطلوب بشكل صحيح
على كل حال لحساب المجموع التراكمي
Nz(DSum("[حقل المجموع]";"الجدول";"[id]<=" & [id]);0)
-
kha9009lid's post in مربع نص بشرط was marked as the answer
جرب المرفق
123.accdb
Private Sub n_AfterUpdate() If IsNumeric([n]) Then m = 0 Else m = 20 End If End Sub
-
kha9009lid's post in استفسار حول اظهار مجمع حقل في النموذج الفرعي داخل النموذج الرئيسي was marked as the answer
في i كان فيه خطاء في اسم مربع النص انت كتبت رقم غير صحيح
في k كان الخطاء انك حاولت تجمع عنوان الحق وليس الحقل
في x1 انت وضعته محسوب في النموذج وبالتالي يحصل خطاء عند تجميع حقل محسوب وبالتالي لتخطي المشكلة قمت بتعديل عملية الضرب في الجدول مباشرة
2.accdb
-
kha9009lid's post in جمع شرطين في زر واحد was marked as the answer
ممكن جرب المرفق واعمل مثله
علي =1
خالد =1
aceess55.accdb
-
kha9009lid's post in اضافة الاسماء وحذفها والتعديل عليها was marked as the answer
جهود مبارك وكرم كبير منك يا ابا اشرف
حبينا الموقع وخصصنا جزء كبير من وقتنا له لوجودك وانت وامثالك
-
kha9009lid's post in طريقة بحث عن الاسم بواسطة اكواد فيجوال بيسك was marked as the answer
جميل جدا وبسيط
الله يعطيك العافية استاذنا ابو اشرف
-
kha9009lid's post in تنسيق ضبط لنص في حقل Rich Text في نموذج و في تقرير was marked as the answer
السلام عليكم وكل عام وانتم بخير
بخصوص ضبط المحاذاه توجد عدة طرق
منها عن طريق وحدة نمطية اسمها clsJustifyText وهي تضبط النص ولكن مشكلتها السطر الاخير اذا كان ناقص تكون المحاذاه لهذا السطر يسار
ايضا عن طريق ملف مرجع يحمل في مجلد الويندوز اسمه RTF.ocx اذكر اني استخدمته مع قاعدة بيانات اصدار 95 او 97 لست متأكد ويضبط المحاذاه بدون مشاكل ولا اعلم هل يعمل مع الاصدارات الاخرى ام لايعمل
وايضا في اصدار 2019 جربت ضبط المحاذاه لحقل من نوع نص طويل للنموذج والتقرير عن طريق الاكسيس بدون اي اضافات وعمل بشكل جيد ماعدا السطر الاخير اذا كان قصير يكون يسار وليس يمين
جربت الملف مع اصدار 19 و16 ولم اجرب اصدارات اقدم
جرب الملف المرفق ربما تكون خطوة اولى لتحقيق المطلوب
Database51.accdb
-
kha9009lid's post in البحث باللغة العربية فى الانترنت was marked as the answer
تعمل بشكل جيد
غيرنا كود البحث وهي محاولة لعلها تنجح
579.1.test1900.accdb
-
kha9009lid's post in هل توجد طريقة لاضافة رقم خاص لا يتكرر لكل تقرير was marked as the answer
في المرفقات
ا٠٠تغ٠ر (1).accdb
-
kha9009lid's post in ترقيم شهرى للاستعلام was marked as the answer
في حقل تاريخ المنصرف انت كنت عامل مايكرو رفريش
انا الغيت المايكرو وعمل كود يقوم اولا ريفرش الى انت كنت عملها وثانيا وضعت قيمة المنصرف تساوي حقل الترقيم
Me.Refresh Me.no_esal = Me.نص92 العفو استاذي