helmy_foad

المطلوب هو تكويد للمنتج بصيغة معينة انا شرحتها داخل النموذج 111.rar

أشكرك استاذ ابو عبد الله بارك الله فيك و رزقك من حيث لا تحتسب هما دول رجالة الصعيد الجدعان الله يكرمك

استاذ ابو عبد الله هل من الممكن ان السبب هو Dim SearchDate As String حيث يجب ان يكون Dim SearchDate As Date و بالتالى يجب ضبط الفورمات للحقول Format(Me.dateSearchfrom.Value, Shortdate) و لا انا بأخرف

أدعو لك بالخير و التوفيق استاذ ابو عبد الله و اشكرك على اهتمامك و تعبك لكن انا ادخلت بعض التواريخ و البحث بالتاريخ لا يعمل الأرشيف الالكترونى (1).rar

نعم استاذ ابو عبد الله

ارجو المساعدة فى استكمال هذا البرنامج هذا برنامج أرشفة بسيط ليس من ابتكارى و انما اخذت الافكار و الاكواد الخاصة به من هذا المنتدى ومن المواقع المختلفة و حاليا يعمل بكفاءة الا اننى اريد فى شاشة البحث ان يكون هناك بحث بالمدة بين تاريخين حيث اننى قد وضعت اثنين من ال text box لكى اضع فيهم تاريخ بداية و نهاية الفترة و زر لتشغيل البحث و اريد ان يعمل هذا الزر على نفس النموذج بنفس الطريقة التى يعمل بها ال text box الاساسى الذى يعمل على البحث فى جزء من كلمة او رقم و شكرا مقدماً الأرشيف الالكترونى (1).rar

السلام عليكم هو سؤال مش عارف له اجابة و لا لأ بس قلت احاول يمكن تكون موجودة انا حاليا أقوم بملئ شيت اكسيل ببيانات احصائية المفروض ملئ 200 صف و حوالى 150 عمود و سيتم تكرار الامر فى شيتات اخرى المطلوب ان فى العمود ِA مثلا يتم ملئ 50 خلية برقم 1 ، 44 خلية برقم 2 ، 54 خليه برقم 3 . 31 خليه برقم 4 و 21 خليه برقم 5 بهذاا الشكل يكون قد تم ملئ 200 خليه ف العمود الاول ثم ادخل على العمود الثانى و ادخل نفس القيم (1-2-3-4-5) و لكن بكميات اخرى يعنى فى العمود A كانت 50 خلية برقم 1 ، و لكن فى العمود B مطلوب وضع 16 خلية برقم 1 اى ان القيم واحدة و لكن الكميات تختلف هل هناك طريقة سهلة بحيث ادخل ال range من A1 : A200 ثم كل قيمة بالكميه الخاصة بها فيقوم الاكسيل بملئ الخلايا ؟

اشكرك شكرا جزيلا على سرعة الرد فهذا هو ما كنت احتاجة بالفعل

السلام عليكم فى الملف المرفق جدول و تقرير مبنى على هذا الجدول فى التقرير يوجد صورتان احداهما لورقة شجر و الاخرى صورة لزهرة وهما غير مرتبطتان المطلوب هو اذا كانت قيمة الحقل eat = 1 تظهر صورة ورقة الشجر و اذا كانت القيمة = 2 تظهر صورة الزهرة و اذا كانت القيمة = 3 تظهر الصورتان سوياً و اذا كانت القيمة null فلا تظهر اى صور و شكرا لكم hhh.zip

اريد حساب الضرائب الخاصة بالموظفين فإذا كان هناك خلية بها رقم و هو اجمالى الدخل و ليكن 86000 جنية مثلا اريد خلية أخرى بجانبها بها معادلة تحسب الضرائب على اساس التالى : مجموع اول 25000 جنية تضرب فى 10% ثم ثانى 15000 جنية تضرب فى 15% ثم ما زاد عن ذلك يضرب فى 20%

الله يكرمك يا استاذ على هذا هو المطلوب فعلا و أضفت حقول اخرى و اشتغلت معايا تمام متشكر جدا جدا

السلام عليكم فى الملف المرفق نموذج اسمة PROGRAMS به نموذج فرعى هذا النموذج الفرعى به حقل اسمة USER_ID عبارة عن كومبو بوكس مبنى على جدول TABLE1 اريد عند اختيار رقم الموظف ينزل تلقائياً اسم الموظف فى حقل USER_NAME و كذلك من الممكن اضافة حقول اخرى على جدول TABLE1 يتم ادراجها ايضا بنفس طريقة الاسم مثل ادارة الموظف مثلا و اشكركم New Microsoft Office Access 2007 Database.rar

نسخة mdb أوفيس 2003 Database.rar

ال QR Codes تتميز بانه أصبح من السهل الان على أى شخص معة هاتف يعمل بنظام الاندرويد و به كاميرا ان يقوم بمسح الكود و إظهار محتوياته و يتميز ال QR Codes عن الاكواد الاحادية بانه من الممكن ان يحتوى على سطور متعددة و روابط انترنت و إحداثيات مواقع و غير ذلك و يمكنك تحميل برنامج قارئ من متجر الاندرويد و افضلهم هو هذا القارئ https://play.google.com/store/apps/details?id=la.droid.qr

33 مشاهدة و 8 تحميلات للمرفقات و لا تعليق واحد واضح اننى الوحيد المهتم بهذا الموضوع

اليوم أقدم لكم موضوع يبحث عنة الكثيرين الموضوع هو كيفية إظهار بيانات محددة فى التقرير على هيئة QR CODE و هو الباركود الثنائى الابعاد 1 - مرفق مجلد مضغوط به ملفين DLL احدهم للويندوز 64 بت QRCodeFont_x64.dll و الاخر للويندوز 32 بت QRCodeFont.dll ما عليك الا وضع الملف المناسب للويندوز الخاص بك فى مجلد SYSTEM32 2 - و يوجد ايضا ملف MW6Matrix.TTF و هو يوضع فى مجلد C:\Windows\Fonts 3 - الكود التالى يتم لصقة فى محرر الفيجوال بيزك فى التقرير المراد إظهار الباركود به Option Compare Database Private 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 Integer Private Declare Function QRCodeGetCols Lib "QRCodeFont.dll" () As Integer Private Declare Function QRCodeGetCharAt Lib "QRCodeFont.dll" (ByVal RowIndex As Integer, ByVal ColIndex As Integer) As Integer Private Const Version = 0 Private Const Level = 0 Private Const Mask = 0 ------------------------------------------------------------------ Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) Dim RowCount As Long Dim ColCount As Long Dim Message As String Dim EncodedMsg As String Message = Field1.Text Message = Message & vbCrLf & Field2.Text Message = Message & vbCrLf & "________" Message = Message & vbCrLf & " " Call QRCodeEncode(Message, Version, Level, Mask) RowCount = QRCodeGetRows() ColCount = QRCodeGetCols() EncodedMsg = vbCrLf For I = 1 To RowCount For J = 1 To ColCount EncodedMsg = EncodedMsg & Chr(QRCodeGetCharAt(I - 1, J - 1)) Next J EncodedMsg = EncodedMsg & vbCrLf Next I Text0.Value = EncodedMsg End Sub 4 - هذان السطران Message = Field1.Text Message = Message & vbCrLf & Field2.Text هما يعبران عن حقلى البيانات المراد إظهارهما فى الQR CODE الحقل Field1 و الحقل Field2 5 - و يمكنك إضافة المزيد من الحقول بإضافة السطر التالى Message = Message & vbCrLf & -----------.Text و يوضع اسم الحقل المراد إظهارة بدلا من ----------- 6 - فى السطر قبل الاخير فى الكود Text0.Value = EncodedMsg Text0هو اسم ال textbox الذى سيظهر به الكود و يمكنك تغييرة بالإسم الذى تريدة 7 - اخر شئ هو تغيير نوع الفونت (الخط) الخاص بال text box الذى سيظهر به الQR CODE إلى نوع الفونت MW6 Matrix و الذى وضعناه بمجلد الخطوط سابقا و شكرا لكم Desktop.rar

اخى العزيز بارك الله فيك ظاهريا هو المطلوب لكن للاسف لا لان لو البيانات حجمها زاد مثلا إذا اصبح الإسم رباعى أو طول السيريال زاد ، فستتداخل السطور معا و إذا قمت بتوسيع ال textbox ايضا تتداخل السطور انا اريد حل فى الكود المكتوب بحيث يكون هناك إجبار للبدء فى سطر جديد

تم ارفاق ملف مبسط للتوضيح السؤال فى ال form text.rar

السلام عليكم عندى textbox يقوم بتجميع بعض حقول الجدول اى ان ال control source الخاص به غير مرتبط بحقل واحد بل هو بهذا الشكل : ="السيريال:"+" "+[serial]+" "+"---"+"الإدارة:"+" "+[dept]+" "+"---"+"أسم صاحب العهدة:"+" "+[name_owner] أى انه يجمع حقل السيريال مع حقل الإدارة مع حقل صاحب العهدة فى حقل واحد و هو مصمم لغرض خاص بالنسخ ثم اللصق فى احد برامج توليد ال QR Codes و هذا غير مهم الأن المهم هو أنه عند تشغيل ال form يظهر بهذا الشكل السيريال: 8786876 ---الإدارة: التغذية ---أسم صاحب العهدة: احمد أنا اريد كل حقل أن يظهر فى سطر منفصل بدلا من "--- " هذة اى يكون بهذا الشكل : السيريال: 8786876 الإدارة: التغذية أسم صاحب العهدة: احمد هل هذا ممكن ؟ و هل هناك حل أخر غير إستخدام الtextbox لهذا الغرض ؟ شكرا لكم مقدما

السلام عليكم هذا هو برنامجى الخاص بأخصائيين التغذية و جداول تحليل الأطعمة و هذا هو الإصدار الثانى من البرنامج ، فقد سبق نشر هذا البرنامج فى المنتدى منذ فترة ، و لكن تم تطويرة و تحديثة و إضافة الكثير من الإمكانيات له بمساعدة مشرفى و أعضاء هذا المنتدى الرائع أريد رأيكم فى البرنامج http://www.4shared.com/file/qnT2gfIl/___.html

السلام عليكم سؤالى الاول : هل من الممكن أن يوجد كود يقوم بتخفيض مستوى الامان برمجياً عند فنح الأكسيل بحيث لا يتم إيقاف الأكواد البرمجية و الماكرو ؟ و هل يختلف هذا الكود (إن وجد) بإختلاف نسخة الأوفيس سؤالى الثانى : إذا كان ملف الأكسيل به sheet هى قاعدة بيانات - و فى مثالى أنا فهى العناصر الغذائية الخاصة بالعديد من الأطعمة ( أنا أخصائى تغذية علاجية أساساً)- إذا قام البعض بتحميل الملف عندهم، و العمل به لفترة ما ، ثم إذا قمت أنا بعد ذلك بتحديث قاعدة البيانات بإضافة أطعمة جديدة بعناصرها الغذائية ، فهل يمكن أن يقوم المستخدم بتحميل ملف فية الsheet الخاص بقاعدة البيانات فقط ، ثم عن طريق كود برمجى يتم تحديث ورقة قاعدة البيانات القديمة بالحديثة، مثلاً عن طريق وضع الملفين فى مجلد واحد ، ثم فتح ملف الupdate فيقوم بتحديث الملف الأخر ، أرجو أن لا يكون كلامى هذا تخريفاً و إذا كان فأعذرونى فأنا لست فى مثل خبرتكم الكبيرة و شكراً لكم

أستاذى لقد وجدت حلاً للمشكلة و هو حل بسيط فقد إخترت (قمت بتظليل) الخلايا فى العمود الذى به الأصناف ، أى أننى قمت بإختيار الأصناف كلها ، و أكثر قليلاً لاترك مكان لإضافة أصناف أخرى ثم قمت بتسمية هذا النطاق من Name box و وضعت هذا الإسم فى ال row source الخاص بخصائص الكومبو ، و هو يعمل معى الأن دون فتح صفحة الداتا و اقوم الأن بإختبار الموضوع شكراً أستاذ الحسامى

استاذ الحسامى الف شكر الفورم يعمل بالفعل بكفاءة لكن هناك مشكلة بسيطة الكومبو لا تظهر به أى قيم لإلا إذا كان sheet ال database مفتوح فإذا كان زر فتح الفورم موجود فى sheet أخر فالكومبو لا تظهر به أى قيم أرجو المساعدة مع الشكر

السلام عليكم مرفق ملف به فورم userform تعمل فى إدخال البيانات بكفاءة و لكن اريد فورم أخرى لإستعراض كل السجلات و تعديلها كما فى الأكسيس أى اننى يمكننى تعديل أى سجل سبق إدخالة و إذا كانت هناك إمكانية لإلغاء السجلات ايضاً بحيث عند الضغط على زر الحذف يتم إلغاء الصف كلة من ال sheet و ليس البيانات فقط بحيث لا تكون هناك صفوف خاليةفى قاعدة البيانات و شكراً لكم New Microsoft Excel Worksheet (2).rar

السلام عليكم و رحمة الله سؤالى عن دالة count و كيف يكن وضع شرط لها بحيث تبحث عن كلمات معينة داخل حقل معين فى التقرير يعنى مثلاً هناك أدوية كثيرة و تورد من شركات مختلفة كل شركة من الممكن أن تقوم بتوريد 5 أو 10 أصناف أدوية من إجمالى 100 صنف مثلاً لو عندى تقرير به جميع الأدوية بأسماءها و تاريخ توريدها و كل شئ عنها و كذلك الشركة الموردة فى جدول ، و هذا تم عملة و لا توجد به مشكلة إذا أحببت أنة فى نهاية التقرير يصدر ملخص يقول لى : شركة النيل للأدوية 30 صنف شركة القاهرة للأدوية 45 صنف شركة كذا للأدوية 20 صنف أنا أريد أن تقوم دالة count بقراءة حقل معين فى جدول و تقوم بعّد الشركات الموجودة فى هذا الحقل ، و تقول لى الملخص السابق و ذلك فى نهاية التقرير ، و بنفس الشكل و شكراً لكم