بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
ابوخليل
-
Posts
12,452 -
تاريخ الانضمام
-
Days Won
231
Community Answers
-
ابوخليل's post in ازاي اضيف جميع بنود مربع تحرير وسرد من عن طريق زر was marked as the answer
IT2.mdb
-
-
ابوخليل's post in تعديل نموذج بحث was marked as the answer
وحتى لا تتوه ادرجت لك
Dim rs As Recordset Dim na0, na1, na2, na3 As String On Error Resume Next Set rs = CurrentDb.OpenRecordset("QAAA") rs.MoveLast rs.MoveFirst DoCmd.Hourglass True Do While Not rs.EOF na0 = "": na1 = "": na2 = "": na3 = "" na0 = Split(rs!AsmGded, " ")(0) na1 = Split(rs!AsmGded, " ")(1) na2 = Split(rs!AsmGded, " ")(2) na3 = Split(rs!AsmGded, " ")(3) rs.Edit rs!Rmz = Mid(na0, 1, 2) & Mid(na1, 1, 2) & Mid(na2, 1, 2) & Mid(na3, 1, 2) rs.Update rs.MoveNext Loop DoCmd.Hourglass False Beep MsgBox "تم توليد الرموز بنجاح", , "" End Sub السطرين .. فقط استبدل الكود بهذا
-
ابوخليل's post in إنشاء تقرير تتبع رصيد الأصناف عند كل حركة(تاريخ) في برنامج المخازن was marked as the answer
مشكلتك في الفرز
انت عملت الفرز في التقرير حسب التاريخ .. والكود تعامل معه على هذا الاساس ..
طيب ما المشكلة لما تفرز حسب المعرف ... هو نفسه سوف يفرزه حسب التاريخ بل هو ادق بحيث لو تاريخين متشابهين راح يجيب لك الذي تم تسجيله اولا ويضعه في الأعلى
---------------------------------------------------------------------------------
كود الرصيد يعتمد على معرف الجدول (id) وهو تلقائي غير قابل للتكرار
والتاريخ مؤكد سوف يتجدد حسب السجل الجديد
بمعنى ان اي تاريخ يتم تسجيله كجديد سوف يكون التاريخ اكبر من الذي قبله أو مساويا له
الكود لا ينظر للتاريخ وانما ينظر للمعرف ويتعامل معه من الاصغر الى الأكبر
اكبر دليل لما تكون فاتح نموذج التقارير وتختار المواد الغذائية والبطاطا .. افتح الاستعلام وانظر
stock19 .rar
-
ابوخليل's post in ما الخطأ في الكود was marked as the answer
شكرا للمشاركة اخي ابو بسملة
تفضل تعديل كامل على الكود مع المرفق
Dim db As Database Dim td As TableDef Set db = CurrentDb() For Each td In db.TableDefs If Left(td.Name, 4) = "MSys" Or Left(td.Name, 1) = "~" Then GoTo Continue DoCmd.RunSQL "DELETE * FROM " & td.Name & ";" Continue: Next MsgBox " all records in all tables are deleted" Me.Requery
Database2.rar
-
ابوخليل's post in طلب مساعدة في تصميم جدول تقييم أداء الموظفين was marked as the answer
الخلل بسيط
بسبب اني غيرت في مسميات بعض الحقول كونها تتشابه في الجدولين
تم الضبط والاصلاح
baseM_7 .rar
-
ابوخليل's post in كيف تم عمل هذا التدرج اللونى لخلفية النموذج was marked as the answer
مشاركة مع اخي محمد
يمكن الاستعانة بوسيط لإخراج الصور على النحو التالي :
افتح البرنامج على عرض التصميم
في جزء التنقل :
- حدد النموذج الذي يحتوي على صورة خلفية أو تنسيق تلقائي تريده
- انقر بزر الماوس الأيمن على النموذج في جزء التنقل وحدد تصدير >> XML
في الصفحة الأولى من المعالج ، حدد مكان الحفظ
انقر التالي او موافق
سيظهر لك مربع حوار صغير به ثلاثة مربعات اختيار
قم باختيار الخيار الأول (البيانات) والخيار الثالث (العرض التقديمي) ثم اضغط موافق
انقر فوق الزر "إغلاق" في الصفحة الأخيرة من المعالج بعد اكتمال عملية التصدير
اذهب الى مكان الحفظ ستجد جميع صورك في مجلد Images
-
ابوخليل's post in تعديل على كود الاسم مدخل سابقا was marked as the answer
تفضل تم تغيير الحدث
Dim x As Integer x = Nz(DCount("asm", "tbl1", "asm='" & Me.asm & "'"), 0) If x > 0 Then Beep MsgBox "هذا الاسم موجود سابقا", , "" DoCmd.CancelEvent Exit Sub End If
الاسم موجود سابقا3.rar
-
ابوخليل's post in توزيع ارقام عشوائي على الطلاب was marked as the answer
بعد اذن الاستاذ محمد
تفضل
توزيع عشوائي على طلاب.rar
-
-
ابوخليل's post in جمع المبلغ مع ما قبله was marked as the answer
اهلا وسهلا بك اخي الكريم ضيفا جديدا في بيتك
تفضل
bb: DSum("a";"tbl1";"id<=" & [id])
2الجمع ما ماقبله .rar
-
ابوخليل's post in محتاج تصفية لنتيجة طلبة was marked as the answer
بما انه يظهر لديك في النتيجة اكثر من نوع
ناجح / ناجحة / له برنامج علاجي / لها برنامج علاجي / (غ)
لذا عملت لك دالة تقوم بتصفية (غ) فقط وابقيت على الانواع الأخرى
2تعديل بالنشاط.rar
-
ابوخليل's post in العلاقات بين الجداول بعد تقسيم قاعدة البيانات was marked as the answer
أعد ربط الضروري منها
لن تحتاج الى ربط علاقة اذا مصدر الفورمات او التقارير استعلامات .. لأن العلاقات والربط ستكون داخلها
المشكلة فقط اذا الفورم عبارة عن رئيسي وفرعي ومصدرهما جداول مباشرة صريحة
-
ابوخليل's post in اريد ترقيم للاشخاص بحيث لا يتكرر هذا الرقم was marked as the answer
عليكم السلام
انت بحاجة لعمل استعلام تجميعي لللإسم فقط بحيث تظهر الاسماء بدون تكرار .. ثم تعمل بها جدول وتعمل في الجدول ترقيم تلقائي
الآن لديك جدولا جديدا بالاسماء غير مكررة مرقمة
الآن كيف تنقل هذه الأرقام الى الجدول الرئيسي ؟
تعمل استعلام تحديث تحدث به الرقم في الجدول الرئيس وتضع فيه معيارا : ( الرقم في الجدول الرئيسي= الرقم في الجدول الجديد ) المعيار : تطابق الأسماء في الجدولين
-----------------------
على كل حال في مثل حالتك يتبين اهمية عمل جدول رأس وجدول فرعي للسجلات التي تتكرر العمليات فيها
-
ابوخليل's post in تنسيق شرطي في تقرير was marked as the answer
الخلل لديك عجيب
وهو في لون خلفية الحقول الأساسي ، بمعنى ان الخلل فني وليس برمجي
انظر
baseT2.rar
-
ابوخليل's post in ضبط تقرير حسب شروط معينة was marked as the answer
حتى مع فصل الدرجات لن تتمكن من عرض النتيجة في التقرير كما رسمت
الا بعد عمليات طويلة يدخل فيها انشاء جداول مؤقتة او استعلامات توحيد .
لا اخفيك حاولت بشتى الطرق واخذ مني وقتا طويلا .. خلصت فيه ( حتى احقق الفكرة) الى وجوب ترحيل البيانات الى جدول مؤقت يتم فيه تحويل الاعمدة الى حقول افقية
(( معلومة مهمة جدا للمبرمج : لا يتم الشروع في بناء الجداول حتى يستوفى العلم التام عن المخرجات وصيغتها ))
-------------------------------
على كل حال الحل القريب لطلبك وهو يسير ايضا ويمكنك انت عمله وتريح راسك هو: ان تجعل كل من النظري - التطبيقي - الامتحان كل واحد منها في تقرير مستقل
ويمكنك جمعها في ورقة واحدة بشرط ان تجعل كل واحدة في تقرير فرعي داخل التقرير الاساسي
-
ابوخليل's post in مساعدة في بحث عن التكرار was marked as the answer
هو كذا دوما في غالب طلباته مقصر في الشرح والايضاح ..
من شرحه الاخير اعتقد فهمت له
------------------------------------------------
استاذ عبدالقدوس لا يصلح تربط بين المفاتيح في الجدولين كعلاقة
تم تحقيق طلبك انظر المرفق
الحقل الذي اعتقد لا يمكن تكراره بين الاشخاص هو الرقم الخاص لذا اعتمدته في البحث والعد
Dim i1, i2 As Integer Me.Form.Filter = "numt Like '" & textsearch & "'" Me.Form.FilterOn = True i1 = Nz(DCount("*", "tabl1", "numt = '" & textsearch & "'"), 0) i2 = Nz(DCount("*", "tabl2", "numt = '" & textsearch & "'"), 0) t1 = i1 t2 = i2 tt = i1 + i2 مثال2.rar
-
ابوخليل's post in مساعدة فى تصميم تقرير سجل قيد التلاميذ was marked as the answer
تفضل
بيانات الطلبة4.rar
-
ابوخليل's post in محتاج كود استعلام عن الطلاب was marked as the answer
الملف مضغوط بعد تنزيله تفك الضغط عنه
وعلى كل حال هذا الملف بدون ضغط فقط خففت من حجمه بازالة الصور
egypt 2.accdb
-
ابوخليل's post in التعديل على برنامج مخازن was marked as the answer
اخي العزيز الغالي ابو بسملة .. جميلة جدا هذه الاستعارة ..
في ردي السابق نسيت ان اربط النموذج بالبيانات .. تجدون ادناه تعديل لمرفقي السابق
test12.rar
-
ابوخليل's post in مطلوب تنفيذ فكرة فاتورة مرتجع مبيعات ومشتريات was marked as the answer
شكرا اخي خالد على هذا الاطراء
تفضل
جرب المرفق الجديد واجر جميع العمليات وكأنك تعمل حسابات حقيقية .. ووافني بمرئياتك وملاحظاتك
buy_Sell2.rar
-
ابوخليل's post in إضافة تعديلات في برنامج مخازن was marked as the answer
تم التعديل
تم التعديل
تم التعديل
تم التعديل .. باضافة زر حذف اما الحفظ فاكسس يحفظ تلقائيا
تم التعديل .. انظر تقرير الارصدة وطبق على البقية
نعم تصلح ومنطقية .. لأن الاصل عند الادخال يوجد ضوابط تمنع صرف او اتلاف صنف رصيده لا يغطي .. تم التعديل
هذه التي لا يمكنك التحكم فيها .. حتى لو جعلنا حقل التسمية النصي فريد غير قابل للتكرار .. لأنك لو كتبت مثلا صنف : لبن وموجود الصنف نفسه ولكن التسمية : اللبن سوف يقبل لاشك
stock15 .rar
-
ابوخليل's post in هل فيه طريقة لتسديد الأقساط آليا was marked as the answer
تفضل
عمل محرك آلي احترافي .. ماركة مسجلة لأبي خليل .. ولا فخر
التحكم بقيم الرسوم
إدخال المدفوعات وعرض ومشاهدة التوزيع ... حسب فكرتك تماما .. كلها في نموذج بسيط
عرض تقرير شامل لتسديد مبالغ الطالب .. المدفوعات والمتبقي
--------------------------------------
لكل من مر من هنا واستفاد .. دعواتكم لأخيكم بظهر الغيب
fees.rar
-
ابوخليل's post in هل هناك دالة تعمل لجلب الصور من الجدول الى التقرير في الاكسس ؟؟ was marked as the answer
حسب علمي .. حقل المرفقات يختلف عن الحقل النصي لأن الوصول الى خصائص الصورة داخل حقل المرفقات مختلف
بمعنى الصورة التي يحتويها ليس لها خصيصة : picture
فأمامك حل من اثنين :
اما يكون الجدول مصدر للتقرير واما ان يتم اخراج المرفق كصورة خارج قاعدة البيانات وهنا يمكننا اظهار الصورة في التقرير
وبما انك ذكرت ان مصدر التقرير ليس الجدول فإليك الحل الآخر .
Sub SaveAttach() On Error Resume Next Dim rs As dao.Recordset Dim strobj As dao.Recordset Dim strPic As String strPic = CurrentProject.Path & "\pic.JPG" Set rs = CurrentDb.OpenRecordset("Table1") Set strobj = rs.Fields("logo").Value strobj.Fields("FileData").SaveToFile strPic Me.Image0.Picture = strPic End Sub Private Sub Report_Load() Call SaveAttach End Sub
220.rar
-
ابوخليل's post in مشكلة عند عمل تحديث علي الملف الاصلي المفتوح المصدر was marked as the answer
ابو عبد الرحمن .. اخي .. لا اعلم .. فلست خبيرا في التركيبات ..
اخر معلوماتي عن اللاب .. انه يمكن تحديثه ويكون سريع وسعة كبيرة جدا عند استبدال الهاردسك القديم بالمنتج الحديث اعتقد من نوع ssd او هكذا .. لعلي كتبته صحيحا