jjafferr

السلام عليكم 🙂

صبحكم الله بالخير اخونا العود ابوخليل 🙂

اعطيك حلين لسؤالك:

1. ان ترى طريقى حل المشكلة من هنا: https://www.officena.net/ib/topic/107637-اجعل-برنامجك-يعمل-على-النواتين-32بت-و-64بت/

.

2. او ان تستعمل النسخة الاحدث من هذه الدالة ، والتى تقبل الحروف العربية في اسم الملف والمسار:

جعفر

1 دقيقه مضت, Eng.Qassim said:

المحترف يقوم بأنشاء استعلام توحيد مباشرة 

اما انا ، فاحتفظ باستعلاماتي الاولية ، لأنه اذا استعلام التوحيد اعطى نتائج نريد التاكد منها ، فارجع الى استعلاماتي الاساسية ، ومنها تكون الصورة واضحة 🙂

جعفر

السلام عليكم 🙂

المتعارف عليه ، استخدام استعلام التوحيد هكذا:

.

ولما يكونوا استعلامين ، وبنفس الحقول ، يكونوا هكذا :

.

ولما نجمعهم بنسخ جملة SQL للاستعلامين ، في استعلام توحيد ، نجد ان الاستعلام كما هو موضح في qry_123_456 ، والذي هو نسخ لجملة SQL الاستعلامين اعلاه ، وعليه ، فنحن لسنا بحاجة الى الاستعلامين qry_123 و qry_456 ، ويمكن حذفهما :

.

ولكن وبسبب ان كِلا الاستعلامين يحتوي على نفس عدد الحقول ، وبنفس الترتيب ، فيمكن اختصار استعلام التوحيد الى التالي ، وحينها لا تستطيع حذف الاستعلامين qry_123 و qry_456

.

ونتائج استعلامي التوحيد في الاعلى:

.

جعفر

1603.Union_Query.accdb

56 دقائق مضت, Foksh said:

أرجو أن تقوم بفتح موضوع جديد لطلبك

@Foksh شكرا على التنبيه 🙂

منذ ساعه, moustafa2004 said:

وعند التنفيذ يعطي خطء رقمه 128

على اي سطر تحصل على هذا الخطأ ؟

3 ساعات مضت, عبد اللطيف سلوم said:

حاولت اضع لايك على منشوركم الكريم ولم اتمكن

كبير يا عبداللطيف كبير ، وعلى راسي 🙂

3 ساعات مضت, Foksh said:

إلا أن الفكرة هي بالرد العائد من آكسيس بأن القيمة موجودة في الجدول

3 ساعات مضت, ازهر عبد العزيز said:

جدا صحيح استاذ لكن المشكلة في رسالة التنبية من اكسس التي لايمكن تغيررها

سهله ، وخليني اعلمك كيف تصيد الخطأ 🙂

.

Private Sub Form_Error(DataErr As Integer, Response As Integer)

    'MsgBox DataErr
    If DataErr = 3022 Then
        Response = acDataErrContinue
        MsgBox "هذا الاسم موجود سابقا"
    End If
End Sub

1602.Data_Exists.accdb

وعليكم السلام 🙂

مثل ما يقول المثل: اشلك بالبحر وأهواله و رزق اللَّه على السيف 🙂

وبدون كود: في جدول "الطالب" ، اجعل حقل "اسم_الطالب" : مفهرس (لا يقبل التكرار) 🙂

جعفر

وعليكم السلام اخوب محمد

واهلا وسهلا بك في المنتدى ، وللاستفادة القصوى من المنتدى ، برجى قراءة قوانين المنتدى :

2 دقائق مضت, Foksh said:

دائماً أول خطوة تأكد من لغة اليونيكود في الويندوز .

نعم ، هي اول خطوة بالفعل لما اشوف الكلمة OLE :

في 8‏/4‏/2024 at 17:53, عادل سرور سرور said:

CDate(trial)

وعليكم السلام

مع ان الاكسس ياخذ التنسيق من الاعدادات الاقليمية للوندوز (مثل dd-mm-yyyy) ، الا انه داخلياً وكجزء من برمجته ، فهو يتعامل مع التاريخ بالطريقة الامريكية: mm-dd-yyyy ، 

ومن تجاربنا لا ننصح باستخدام CDate ونترك للاكسس اختيار اليوم من الشهر حسب الارقام 1-12 (حيث انه تمثل اليوم والشهر) ،

فالطريقة الصحيحة هي استعمال الامر DateSerial حيث فيها تحدد السنه والشهر واليوم ، فلا يكون هناك مجال للاكسس ان يختار بين اليوم والشهر.

واذا كان التاريخ عندك عبارة عن نص ، فيجب ان تستعمل كود يشبه التالي :

استخراج تاريخ الميلاد من الرقم القومي
=DateSerial(Mid([raqm_qomy];2;2);Mid([raqm_qomy];4;2);Mid([raqm_qomy];6;2))

انظر هنا لمناقشة شيقة عن التاريخ

جعفر

وعليكم السلام 🙂

عمل خفيف وجميل ، شكرا جزيلا 🙂

جعفر

8 ساعات مضت, gavan said:

اذن هنالك طريقة استعادة للجدول، لو تكرمت بكيفية العمل بها

هناك كود لإسترجاعها، ولكن الاسهل استعمال البرامج الجاهزة 🙂

جعفر

2 ساعات مضت, gavan said:

هل يمكن استرجاع جدول محذوف من قاعدة

الاكسس يحتفظ بالبيانات التي تم حذفها، الى ان يقوم المستخدم باستخدام "ضغط واصلاح" ، حينها يحذف الاكسس كل شيء ما عدا البيانات الموجودة ظاهرا امامنا،

وكذلك بالنسبة الى كود VBA ، فانه يحتفظ ببعض الاكواد القديمة ، الى ان نعمل Decompile ثم Compile 🙂

جعفر

26 دقائق مضت, شايب said:

الحقيقة ان الاولى يعدها اكسس 0

اما البقية فلا يعدها اكسس ونحتاج عند عد احرف الحقل الى استخدام nz حتى لا نحصل على رسالة خطأ

وهنا بيت القصيد في المعادلة التي طرحتها ، فهي معادلة واحدة تفي للأحتمالين 🙂

جعفر

شكرا على المعلومة 🙂

نعم ، ارفاق او عرض رابط انزال لبرامج مع الكراك مخالفة لقوانين المنتدى ، شطرا لك.

واذا حب احد الاعضاء ان يحصل على النسخة منك ، فيمكنه التواصل معك على الخاص.

ولكن (وهذه طريقتي) :

اذا انا استفدت من البرنامج ، وساعدني/انقذني ، فيستاهم ان اشتريه 🙂

جعفر

السلام عليكم ، شبابكم وشيابكم 🙂

اسمحوا لي ان ادلو بدلوي:

بما ان الاكسس عبارة عن 3 برامج مدمجة في برنامج واحد: واجهة الاكسس وكائناته ، جداول الاكسس ، وبرمجة VBA ،

فالنقاش اعلاه يخلط بينهم.

وطريقة معرفة طول حرف بيانات الحقل:

وبدلا عن استعمال مجموعة اوامر لمعرفة اذا الحقل 
به معلومة
او Null
او ""
او Empty

استعمل سطر واحد
if len(me.txt & "")=0 then

وهنا شرحت موضوع الـ NULL 

جعفر

مع انك لم تعطي السؤال كاملا،

ولكن ومن ملاحظتي للبيانات، الظاهر انك استعملت برنامج تجريبي لإسترجاع البيانات، فترك بصمته على بياناتك.

جعفر

اخي عبداللطيف، شكرا لك على دعمك ومساعدتك للآخرين 🙂

وطبعا التزامك بقوانين المنتدى 🙂

قوانين المنتدى لا تسمح بإرفاق:

اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة

عفوا، وين السؤال ؟

النسخة التي في رابطي كامله ولا تحتاج تفعيل 

وعليكم السلام اخوي موسى 🙂

وعمل جميل آخر منك 🙂

جعفر

وعليكم السلام 🙂

طريقة ننتظرها من زمان، شكرا جزيلا لك 🙂

جعفر

اخي عبد اللطيف

هل هذه النسخة مجانية وتعمل بدون تفعيل/كلمة سر ؟

جعفر

السلام عليكم 🙂

عملت على مشروع لمؤسسة خيرية فيه العديد من المستخدمين ، والعمل هو عبارة عن طباعة نحو 1000 كوبون خلال ساعة واحدة لوجبة غذاء مجانية ، وحوالي 600 كوبون خلال ساعة اخرى ، والكوبون يحتوي على شعار المؤسسة، وشعار آخر يتغير شبه كل يوم.

الطرق المتبعة لعرض الصور في التقرير هي:

1. قراءة الصور من مجلد المشاركة، ولكن قراءتها لكل كوبون، يجعل الشبكة مزدحمة بمرور الصور فيه، مما يعمل بطئ في الشبكة،
2. نسخ الصور من مجلد المشاركة الى مجلد محلي على كمبيوتر المستخدم عند تشغيل البرنامج، ومن ثم قراءة الصور من المجلد المحلي عند طباعة كل كوبون،
3. اما الطريقة الاسرع من الطريقتين اعلاه هي:
   1. عرض الصور من مجلد المشاركة عند تشغيل البرنامج، في النموذج الرئيسي للبرنامج في حقل الصور،
   2. عرض الصور في التقرير، بقراءة كل صورة من النموذج الرئيسي، هكذا لصورة واحدة:

في التقرير، على حدث "عند التنسيق" في قسم 
Details  التفصيل

نضع هذا الكود
Forms!frm_Main!myPic  هو اسم حقل الصورة في النموذج الرئيسي
pic هو اسم حقل الصورة في التقرير
  
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

    Me.pic.PictureData = Forms!frm_Main!Mypic.PictureData
End Sub

جعفر

حياك الله اخي الكريم ، وسُعدت بمشاركاتك 🙂

جعفر

السلام عليكم 🙂

هذا الرابط به برنامج مجاني (للإستعمال الشخصي) لإصلاح ملف اكسس معطوب / تالف

جعفر