• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

helmy_foad

اعضاء
  • عدد المشاركات

    80
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

9 عادي

عن helmy_foad

  • الرتبة
    عضو

أحدث الزائرين لملفلك الشخصي

3,209 زياره للملف الشخصي
  1. ارجو المساعدة فى استكمال هذا البرنامج  هذا برنامج أرشفة بسيط ليس من ابتكارى و انما اخذت  الافكار و الاكواد الخاصة به من المنتديات و المواقع المختلفة و حاليا يعمل بكفاءة الا اننى اريد فى شاشة البحث ان يكون هناك بحث بالمدة بين تاريخين  حيث اننى قد وضعت اثنين من ال text box لكى اضع فيهم تاريخ بداية و نهاية الفترة  و زر لتشغيل البحث  و اريد ان يعمل هذا الزر على نفس النموذج بنفس الطريقة التى يعمل بها ال text box الاساسى الذى يعمل على البحث فى جزء من كلمة او رقم  علما بان حقل التاريخ فى الجدول هو DOC_DATE و شكرا مقدماً الأرشيف الالكترونى (1).rar
  2. السلام عليكم فى الملف المرفق  نموذج اسمة PROGRAMS  به نموذج فرعى هذا النموذج الفرعى به حقل اسمة USER_ID  عبارة عن كومبو بوكس مبنى على جدول TABLE1 اريد عند اختيار رقم الموظف  ينزل تلقائياً اسم الموظف فى حقل USER_NAME  و كذلك من الممكن اضافة حقول اخرى على جدول TABLE1 يتم ادراجها ايضا بنفس طريقة  الاسم مثل ادارة الموظف مثلا  و اشكركم New Microsoft Office Access 2007 Database.rar
  3. نسخة mdb  اوفيس 2003 للأخ أبو فتحى Database.rar
  4. سأحاول عمل نسخة 2003 ، فقط حالما احصل على اوفيس 2003 لاننى استغنيت عنه منذ وقت طويل لكن انت اذا اتبعت انت الخطوات اعتقد انك ستنجح لان الموضوع سهل و غير معقد
  5. ردك على موضوعى أخت زهرة هو شرف لى و لى الفخر بان الموضوع اعجبك أشكرك شكراَ جزيلا :ty: :ty: :ty:
  6. 39 مشاهدة و 11 تحميلات للمرفقات و لا تعليق واحد واضح اننى الوحيد المهتم بهذا الموضوع :wacko: :wacko: :wacko: :wacko: :wacko: :wacko: :wacko: :wacko:
  7. اليوم أقدم لكم موضوع يبحث عنة الكثيرين الموضوع هو كيفية إظهار بيانات محددة فى التقرير على هيئة QR CODE  و هو الباركود الثنائى الابعاد 1 - مرفق مجلد مضغوط به ملفين DLL  احدهم للويندوز 64 بت QRCodeFont_x64.dll و الاخر للويندوز 32 بت QRCodeFont.dll ما عليك الا وضع الملف المناسب للويندوز الخاص بك فى مجلد SYSTEM32   2 - و يوجد ايضا ملف MW6Matrix.TTF و هو يوضع فى مجلد C:\Windows\Fonts   3 - الكود التالى يتم لصقة فى محرر الفيجوال بيزك فى التقرير المراد إظهار الباركود به Option Compare DatabasePrivate Declare Sub QRCodeEncode Lib "QRCodeFont.dll" _(ByVal Message As String, ByVal Version As Integer, ByVal Level As Integer, ByVal Mask As Integer)Private Declare Function QRCodeGetRows Lib "QRCodeFont.dll" () As IntegerPrivate Declare Function QRCodeGetCols Lib "QRCodeFont.dll" () As IntegerPrivate Declare Function QRCodeGetCharAt Lib "QRCodeFont.dll" (ByVal RowIndex As Integer, ByVal ColIndex As Integer) As IntegerPrivate Const Version = 0Private Const Level = 0Private Const Mask = 0------------------------------------------------------------------Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)Dim RowCount As LongDim ColCount As LongDim Message As StringDim EncodedMsg As StringMessage = Field1.TextMessage = Message & vbCrLf & Field2.TextMessage = Message & vbCrLf & "________"Message = Message & vbCrLf & " "Call QRCodeEncode(Message, Version, Level, Mask)RowCount = QRCodeGetRows()ColCount = QRCodeGetCols()EncodedMsg = vbCrLfFor I = 1 To RowCountFor J = 1 To ColCountEncodedMsg = EncodedMsg & Chr(QRCodeGetCharAt(I - 1, J - 1))Next JEncodedMsg = EncodedMsg & vbCrLfNext IText0.Value = EncodedMsgEnd Sub4 - هذان السطران Message = Field1.TextMessage = Message & vbCrLf & Field2.Textهما يعبران عن حقلى البيانات المراد إظهارهما فى الQR CODE الحقل Field1 و الحقل Field2   5 - و يمكنك إضافة المزيد من الحقول بإضافة السطر التالى Message = Message & vbCrLf & -----------.Textو يوضع اسم الحقل المراد إظهارة بدلا من -----------     6 - فى السطر قبل الاخير فى الكود Text0.Value = EncodedMsgText0هو اسم ال textbox الذى سيظهر به الكود و يمكنك تغييرة بالإسم الذى تريدة   7 - اخر شئ هو تغيير نوع الفونت (الخط) الخاص بال text box  الذى سيظهر به الQR CODE إلى نوع الفونت MW6 Matrix و الذى وضعناه بمجلد الخطوط سابقا   و شكرا لكم Desktop.rar
  8. السلام عليكم و رحمة الله و بركاتة هذا مثال لقاعدة بيانات بها حقل أسمه name فى جدول table1 هذا الحقل يتم فية تكرار القيم بصورة كبيرة و هذا طبيعى تماماً لأن المفترض أن هذا هو اسم المستخدم الذى قام بإدخال هذا السجل فإذا رغبنا فى عمل إحصائية عن مقدار السجلات التى ادخلها كل مستخدم فى تاريخ معين او بين تاريخين ، فكيف يتم عمل هذا الإستعلام المطلوب ان تكون النتيجة على الشكل التالى و طبعاً بدون تكرارات لأسم المستخدم العدد --------------المستخدم 5--------------------a 2 -------------------b 3 ------------------ c و هكذا .... مع عدم وضع أسماء المستخدمين فى الcriteria للبحث عنهم ، بل يقوم بعد جميع المستخدمين حتى لو أضفنا مستخدمين جدد فى أى وقت و شكراً لكم New Microsoft Office Access Application.rar
  9. سلمت يداك أستاذة زهرة هذا هو ما طلبت بالفعل و بعد ان رايت الحل فهمت لماذا لم أستطع ان افعلها بإستعلام التحديث فقط فأنا لم اذكر لك أننى لى يومين و أنا احاول فيها و لم أنجح و كنت احصل على نتائج مضحكه و لم أفكر أبداً فى ان أقوم بعمل جملة select فى كود VBA فى الفورم لإستدعاء قيمة الحقل emp اولاً ثم أنادى عليها من إستعلام التحديث بالنسبة لفهمى المتواضع هذا حل عبقرى بالفعل أستاذتنا العزيزة زهرة ، ألف الف شكر و سلمت يداك ، و وفقك الله و رعاك و حفظك من كل سوء و ادعو الله أن يزيدك من علمه بما ينفعك و ينفع الاخرين و شكراً للأستاذ kh202067 على محاولة مساعدتى ، و لكن لم يكن هذا هو المطلوب و كما قلت سابقاً يبدو أننى أنا الذى لم أوضح المطلوب من البداية بطريقة سليمة
  10. يشرفنى أن تقوم الأستاذة زهرة بالرد على سؤالى ، و هذا من دواعى سرورى و لكن يبدو أننى لم اوضح الامر بصورة كافية فى المثال المرفق من حضرتك إذا وضعنا رقم 1 فى الpt_num و رقم 40 فى ال payor المفترض أن يكون تحديث حقل emp فى جدول mpi_details أمام رقم 1 pt_num هو رقم 500 لأنة هو المقابل لرقم payor 40 فى جدول emp_payor
  11. السلام عليكم و رحمة الله و بركاتة هناك مثال مرفق و معة ملف وورد به شرح المشكلة بالضبط و هى كما هو واضح من العنوان استعلام تحديث قيمة فى جدول بناء على قيمة فى جدول أخر و قد شرحت المشكله فى ملف وورد لأننى أضطررت إلى عمل جدول به بيانات الجداول للتوضيح Desktop.rar
  12. حسب خبرتى المحدودة فأنت تحتاج إلى وضع حقل من نوع yes/no و ذلك لتأكيد من حضر و من غاب ، فمن يحضر تضع امامة علامة و من لا يحضر تتركها فارغة و تضع هذا الحقل فى الإستعلام و تضع الcriteria الخاصة به ( =no ) أى أن الإستعلام سيبحث عن أولئك الذين لم يتم وضع علامة حضور عليهم ثم فى حقل التاريخ فى الإستعلام تضع criteria من نوع between [from]and[to] و ذلك للبحث عن الغياب بين فترتين و أنا ضبطت الإستعلام ليبحث عن قيمة التاريخين فى نموذج كما أننى جهزت لك التقرير المطلوب و أرجو أن يكون هذا هو ما طلبتة db4 (1).rar
  13. السلام عليكم عندى مشكلة بسيطة فى عملى لدينا قاعدة بيانات اوراكل و تطبيقات تعمل عليها لا يوجد لدينا دعم فنى للبرامج ، و مصدر البرنامج الأصلى غير متوفر للتعديل عليه و قمت بعمل بعض البرامج بالأكسيس للإستعلام عن البيانات المختلفة ، و إستخراج بعض التقارير التى لا يوفرها التطبيق المستخدم ، بإستخدام ال ODBC و تعمل بكفاءة لكن تواجهنى مشكلة بسيطة التواريخ فى الجداول الأصلية الخاصة بقاعدة بيانات أوراكل توضع فى حقول (أرقام ، Numbers ) و ليست DATE/TIME كما فى الأكسيس يعنى تاريخ اليوم سوف يكون على هيئة 201007070 طبعاً المستخدمون يواجهون مشاكل فى كتابة التاريخ بهذة الطريقة فى ال text box فأحياناً ينسون صفر أو أكثر و كما قلت هى أغلبها تكون فى حالات إستعلام أو تقارير ، أى أننى لا أستخدم النماذج لإدخال البيانات بل لإستخراجها فإذا أردنا الإستعلام عن حدث فى تاريخ معين نكتب الرقم فى حقل غير مرتبط ، و نشغل الإستعلام ( الذى يأخذ قيمة هذا الحقل الغير مرتبط ) عن طريق نموذج لكى يعطينا البيانات المطلوبة و فى التقارير أيضاً نفس الشئ ، لكن التواريخ فى التقارير يكون شكلها سئ جداً و هى بصيغة رقمية هل هناك حل لكتابة التاريخ على هيئة تاريخ 2010/07/07 أو 2010/7/7 ثم يتحول تلقائياً فى الإستعلام إلى الصيغة الرقمية العادية لكى يتعرف علية الإستعلام و يستدعى البيانات الصحية من الجداول و كذلك التواريخ التى يتم إستدعاؤها فى التقارير على هيئة رقم ، كيف اجعلها تظهر على هيئة تاريخ ؟ مع الأخذ فى الإعتبار أنه من غير المسموح التعديل فى قاعدة البيانات الأصلية و جعل الأرقام على هيئة تواريخ ، لان ذلك لن يجعل التطبيقات الأصلية تعمل هل هناك حل لهذة المشكلة ؟ و شكراً