دروب مبرمج
-
Posts
204 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
4
Community Answers
-
دروب مبرمج's post in تسجيل القيمة في الجدول الفرعي تلقائيا حسب القيمة الموجودة في الجدول الرئيسي was marked as the answer
تفضل بهذه الطريقة
استبدل الكود في الموديل بالتالي
' القيمة الافتراضية للشراء Public Function sellVal(Val As Integer) As Integer [Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate2].DefaultValue = Val End Function 'القيمة الإفتراضية للبيع Public Function buyVal(Val As Integer) As Integer [Forms]![customer account]![حساب العملاء]![customer_account_sub]![rate].DefaultValue = Val End Function في حدث ضع التالي بعد التحديث لمربعة النص ( Text59 / text61 )
' القيمة الافتراضية لسعر البيع =sellVal([Forms]![customer account]![حساب العملاء]![Text59]) ' القيمة الافتراضية لسعر الشراء =buyVal([Forms]![customer account]![حساب العملاء]![Text61])
test rate (4).zip
-
دروب مبرمج's post in التاكد من عدم تكرار المفتاح الاساسي عند تشغيل الاستعلام الالحاقي was marked as the answer
وتفضل هذه مشاركة مع الاخوان
DD409.accdb
-
دروب مبرمج's post in معيار داخل استعلام اكسيس يسحب من حقل تاريخ بيانات اخر ثلاث سنوات من تاريخ اليوم was marked as the answer
يكون المعيار بهذا الشكل
WHERE Year([datein] Between Year(Now()) And Year(Now())-3 النتيجة
New Microsoft Access Database 1.accdb
-
دروب مبرمج's post in رسالة الخطأ معلمات قليلة جدا المتوقع هو2 was marked as the answer
تفضل التعديل
Database3.accdb
-
-
دروب مبرمج's post in نقل عمود مرفق من جدول الى جدول was marked as the answer
تفضل هذا مثال على ما طلبت
الاضافة و الحذف (1).accdb
-
دروب مبرمج's post in عرض الصور المخزنة خارج قاعدة البيانات في تقرير was marked as the answer
تفضل التعديل
baset.zip
ملاحظة في محلها فعلا يوجد تعارض
لديه ارشيف صور غير مرتبط بجدول
يريد اضافة الصورة لمربع النص في التقرير و لم يتم تحديد صورة معينة
لكني جعلت آخر صورة تم اضافتها في المجلد هي الاساسية
فعلا يجب على صاحب الموضوع التمعن جيدا في كلامك لأنه هو المنطق بعينه شكرا لك
-
دروب مبرمج's post in مشكلة بفورم الفلترة was marked as the answer
تفضل هذا التعديل
برنامج الأرشفة الالكترونية1.accdb
-
دروب مبرمج's post in رسالة الحفظ was marked as the answer
تفضل هذا الاقتراح
الفكرة هي كالتالي :-
- يكن التعديل في جدول مشابه للجدول الرئيسي و مرتبط بالنموذج
- في حال وجود تغييرات سيتم تحديث السجلات التي طرأ عليها تغيير
bbb.accdb
-
دروب مبرمج's post in تحويل تقرير إلى WORD was marked as the answer
تفضل التعديل
حدد مكان وجود القالب
و اسم و موقع حفظ الملف الجديد
بهذا الشكل
SendData.zip
-
دروب مبرمج's post in حفظ مستندات في مجلد خارجي بجانب قاعدة البيانات was marked as the answer
تفضل التعديل
base1.accdb
-
دروب مبرمج's post in هل يمكن الاتصال بقواعد بيانات mysql من الاكسس was marked as the answer
نعم بالإمكان الاتصال بقاعدة البيانات الخارجية من خلال الاكسس
و الأمر يسيط جدا باستخدام معالج الاكسس للاتصال بقواعد ODBC
تعال القي نظرة على هذا الاختيار
بعدها روح لهذا الاختيار و قوي قلبك معايا بدون خوف
الآن راح نضيف جملة الاتصال او عنوان الاتصال بقاعدة البيانات الخارجية
كمل الخطوات للنهاية و مبروك عليك الاتصال بقاعدة البيانات
و اي سؤال لا تتردد
و افتح موضوع جديد يخص الاضافة و الحذف و التحديث
عشان نكمل الفكرة للأخير
-
دروب مبرمج's post in المساعدة فى انشاء تقرير was marked as the answer
تفضل
و اكمل الباقي حسب حاجتك
test.accdb
-
دروب مبرمج's post in نقل و ترحيل سجل معين الى جدول اخر was marked as the answer
تفضل هذه المشاركة
medecin.accdb
-
دروب مبرمج's post in استحراج بيانات الطلبة حسب المستوى و الفوج والمادة (معدل) was marked as the answer
تفضل
bdd2 (5).accdb
-
دروب مبرمج's post in المساعدة في عدم امكانية الحذف والتعديل was marked as the answer
تفضل هذا التعديل
project no 3.zip
-
-
دروب مبرمج's post in اظهار (التاريخ الميلادي و الهجري) تلقائيا بالتقرير was marked as the answer
تفضل
سامي.mdb
-
دروب مبرمج's post in برجاء المساعدة في استعلام تحليلي was marked as the answer
الى هذه الخطوة تفضل
Graff.zip
-
-
دروب مبرمج's post in مساعدة في عمل استعلام was marked as the answer
تفضل اضف هذا الكود
ملاحظة : قد تجد بعض الصعوبات بالتعامل في الأكود بسبب المسميات العربية
انشئ Module جديد و الصق فيه الكود الخفيف السهل هذا
عبارة عن وظيفة أو دالة او سمها ماشئت
Public Function SubSuoer(ID As Integer) As Integer Dim TbName, ColName TbName = "[ادخال الاخلاءات]" ColName = "[اسم مشرف القطاع]" ColName = "[اسم مشرف القطاع] = " & ID SubSuoer = DCount("*", TbName, ColName) End Function ولاستخدام الدالة بهذه الطريقة
[TEXTBOX1] = SubSuoer(1) أو في الاستعلام SubSuoer(1) رقم 1 يعني رقم المشرف بناء على رقم المشرف سوف يقوم الكود بجمع عدد الاخلاءات مرفق برنامج بعد التعديل
التعديل في الاستعلام
التعديل في الاستعلام
التعديل في الاستعلام
Graff.zip
-
-
دروب مبرمج's post in رصيد الصنف لا يظهر في كارت الصنف was marked as the answer
القاعدة كبيرة و لم استطع ارفاقها
قمت بحذف الجداول لكي يتضح المثال
الصق الشفرة التالية في موديول جديد و يجب عليك التدقيق في اسماء الأعمدة
التي في الشفرة و التأكد من انها هي المستهدفة في عملية الاحتساب
Public Function GetSubProduct(Product_NO As String) As Integer Dim SubProduct As Integer, OutProduct As Integer, SubTotal As Integer SubProduct = Nz(DSum("[UOM_UNIT_QTY]", "[ITEMS]", "[ITEM_CODE] Like '" & Product_NO & "'"), 0) OutProduct = Nz(DSum("[QTY_UNITS]", "[MISCELLANOUS_SALES_LINES]", "[ITEM_CODE] Like '" & Product_NO & "'"), 0) SubTotal = SubProduct - OutProduct GetSubProduct = SubTotal End Function
و لإستدعاء الوظيفة اعلاه
GetSubProduct("كود الصنف") و هنا تم التطبيق على الاستعلام
مرفق مثال مصغر
Database1.mdb
-
دروب مبرمج's post in ارسال رساله نصيه من الاكسس الى الجوال _ وتعريب النص was marked as the answer
نعم النص العربي يحتاج الى تشفير لحظات و يكون عندك التعديل
تفضل التعديل
و هذا هو كود التشفير المستخدم لتمرير النصوص عبر الويب
Function EncodeQP2(s As String) As String Dim i As Long Dim p1 As Long Dim p2 As Long Dim r As String Dim n As Long For i = 1 To Len(s) n = AscW(Mid(s, i, 1)) If n < 128 Then r = r & "%" & Hex(n) ElseIf n < 2048 Then p1 = n \ 64 r = r & "%" & Hex(p1 + 192) p2 = n Mod 64 r = r & "%" & Hex(p2 + 128) Else End If Next i EncodeQP2 = r End Function
sms (1).accdb
-