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

adnan94
اعضاء-
عدد المشاركات
106 -
تاريخ الانضمام
-
تاريخ اخر زياره
السمعه بالموقع
9 عاديعن adnan94
-
الرتبة
عضو
معلومات الملف الشخصي
- الجنس ذكر
-
سالم فتحي أعطى سمعة إيجابية لــ إجابة على سؤال: مشاركة قواعد البيانات اكسيس على الشبكة
-
zahrah أعطى سمعة إيجابية لــ إجابة على سؤال: تهنئة للاستاذة الفاضلة والكبيرة الاخت زهرة "ام عهود"
-
adnan94 أعطى سمعة إيجابية لــ إجابة على سؤال: تهنئة للاستاذة الفاضلة والكبيرة الاخت زهرة "ام عهود"
-
تهنئة للاستاذة الفاضلة والكبيرة الاخت زهرة "ام عهود"
adnan94 رد على سلامنا لكم's موضوع في قواعد بيانات Microsoft Access
كل الشكر والتقدير لمعلمتنا الفاضلة أم عهود بارك الله بك وجزاك الله كل خير والشكر موصول لصاحب هذه المبادرة والدكتورة تستاهل كل خير لما لها من بصمات رائعة في هذا القسم تحياتي وتقديري للجميع :)- 50 ردود
-
1
-
جزاك الله خير اخي الكريم وبارك الله بك لو تكرمت علينا بشرح مستفيض عن الجزء الخاص بالتحاليل الطبية بملف صور أو شرح فديو وذلك لمعرفة تفاصيل وآلية البرنامج تحياتي
-
المحاسب المميز - الإصدار الرابع - محاسبة و مخازن
adnan94 رد على alalal's موضوع في قواعد بيانات Microsoft Access
السلام عليكم و رحمة الله و بركاته قد اطلعت على اصداراتك السابقة وهي بصراحة ممتازة وما شاء الله عليك وأجزم أن هذ الأصدار سيكون الأجمل :) جزاك الله خير يا أبو مريم ولك من الدعاء ما طلبت وأكثر تقبل تحياتي -
adnan94 أعطى سمعة إيجابية لــ إجابة على سؤال: المحاسب المميز - الإصدار الرابع - محاسبة و مخازن
-
أفضل الكلام جزاك الله كل خير يا دكتورة وبارك الله بك تحياتي وتقديري لك والله يعطيك الصحة والعافية :)
-
adnan94 أعطى سمعة إيجابية لــ إجابة على سؤال: برنامج Instant Demo Flash Player
-
السلام عليكم هناك مشاركة لمشرفنا العزيز محمد فؤاد تركي طرح فيها برنامج Instant Demo Flash Player وهو خاص بتسجيل عروض الفديو المطلوب عنوان المشاركة أو إعادة رفع البرنامج المذكور مرة ثانية لكم مني كل الشكر والاحترام
-
تثبيت قيمة في caption (الشرح) لمفتاح أمر بالكود
adnan94 رد على adnan94's موضوع في قواعد بيانات Microsoft Access
استخدمت الكود التالي : btn1.Properties("Caption") = 100 وأيضا لم يأتي بالنتيجة المطلوبة بثبيت القيمة في التسمية التوضيحية لدي 224 زر في النموذج عبارة عن أسماء خدمات وأسعار أستخدمهم في برنامجي وليس لدي مشكلة ولكن تشغيل كود التسمية يأخذ وقت كلما فتحنا النموذج علما أنني لا أستطيع تثبيتها بالتصميم لأنها متغيرة فهي أسعار وأسماء خدمات. فهل هناك حل لتثبيت الأسماء وتشغيل كود التسمية كلما دعت الضرورة لذلك ؟ أرجوا المساعدة في الحل لكم تحياتي -
adnan94 أعطى سمعة إيجابية لــ إجابة على سؤال: تثبيت قيمة في caption (الشرح) لمفتاح أمر بالكود
-
تثبيت قيمة في caption (الشرح) لمفتاح أمر بالكود
adnan94 رد على adnan94's موضوع في قواعد بيانات Microsoft Access
شكرا لك أختي أم عهود مسمى المفتاح يتغير حسب منطق المثال لدي ولكن هل ممكن تغييره عندما أريد وتثبيته أيضا ؟؟ علما أنني نجحت في ذلك ولكنني فقدت الكود ولم أستطيع عمله مرة ثانية شكرا لك وبارك الله فيك -
تثبيت قيمة في caption (الشرح) لمفتاح أمر بالكود
adnan94 posted سؤال in قواعد بيانات Microsoft Access
السلام عليكم لدي أربعة مفاتيح btn1 و btn2 و btn3 وbtn4 أريد كود يثبت قيمة محددة داخل ( captionشرح زر الأمر) وقد أستطغت عرض القيمة في (captionشرح زر الأمر) عن طريق الكود التالي : btn1.Caption = 100 btn2.Caption = 200 btn3.Caption = 300 btn4.Caption = 400 ولكن السؤال كيف يمكن تثبيت هذه القمية في أزرار المفاتيح عند الخاصية caption دون الحاجة لتنفيذ هذا الكود كلما تم تحميل النموذج لان هذه القيمة متغيرة ولكن في حالات معينة ولا اريد تنفيذها كلمت دخلت الى النموذج ملاحظة :يمكن عمل ذلك والتعديل على تصميم النموذج كلما أحتجنا ذلك وفي خاصية (caption ) بالذات علما أنني تمكنت من ذلك ولكن عن طريق الصدفة ولم أستطيع إعادة صياغة الأمر مرة ثانية. أرجوا أن يكون طلبي واضحا وشاكر لكم مجهودكم الكريم تحياتي db2.rar -
adnan94 أعطى سمعة إيجابية لــ إجابة على سؤال: تراجع عن التعديل لحقل مرتبط
-
بارك الله بجهودك دكتورة زهرة وجزاك الله كل خير ليس هذا ما أريده وأنا آسف ربما لم أقم بشرح المطلوب كما يجب المطلوب أختي الكريمة ما حذرتيني منه أريد مسح القيمة من الحقل الأول المسمى Item وأريد كود للتراجع بشكل آلي أو وضع 100 في الحقل نفسه عوض القيمة الممسوحة وذلك بشكل آلي أيضا دون ظهور هذه الرسالة المزعجة فهل هذا ممكن برمجيا وإذا كان لا فأنا مضطر أن أستخدم الأمر DLookup لأحضار البيانات والأستغناء عن الربط بين الجدولين الذي يحدث لدي مشكلة في هذه النقطة بالذات. شكرا لك وبارك الله فيك
-
السلام عليكم ورحمة الله وبركاته لدي نموذج اسمه btn1 ومصدر بياناته جدولين مرتبطين عند الغاء قيمة الحقل item تخرج لدي الرسالة التالية : طبعا هذا طبيعي لوجود ربط بين الجدولين ولكني أريد التخلص من الرسالة السابقة ما أريده بالظبط كود تراجع عن التسجيل عند الغاء قيمة الحقل item الى قيمة فارغة أو أن يضع قيمة 100 في الحقل item تقبلوا تحياتي db7.rar
-
أخي الكريم استعمل الكود في الحدث عند الطباعة او عند التسيق في التقرير وفي الجزء الخاص بالحقل المطلوب التعامل معه وللأسف لا املك الآن جهازكمبيوتر لوضع لك مثال كل عام وانتم بخير
-
بارك الله بك أخي عزام على هذه المشاركة الطيبة اختنا الفاضلة الدكتورة زهرة العبد الله السلام عليكم ورحمة الله وبركاته كل عام وأنت وجميع أحبابك بألف خير تقبل الله منا ومنكم صالح الأعمال وجزاك الله خير الجزاء على هذا العمل الطيب والمبارك كل عام والجميع بألف خير
-
أخي الموضوع بسيط .... كلام أخي مالك صحيح فقد تغير الفنط بالتقرير حسب المحدد بالتصميم ...على كل الأحوال جرب هذه الأكواد : لتغيير نوع الخط استعمل الكود : Me![txt].FontName = "Arial Black" لتغيير حجم الخط استعمل الكود : Me![txt].FontSize = 12 لتغيير لون الخط استعمل الكود التالي : Me![txt].ForeColor = vbRed لتغيير أرضية مربع النص استعمل الكود : Me![txt].BackColor = vbYellow حيث txt هو اسم الحقل المراد التحكم به * يمكنك وضع شرط قبل الأمر والتلاعب بهذا الحقل كما تريد
-
morsyyy أعطى سمعة إيجابية لــ إجابة على سؤال: اخفاء البيانات
-
أخي العزيز ليس لدي خبرة بـ PHP وأعتقد أنك تقصد ربما اختصار الكود وذلك للحصول على النتيجة في الاستعلام مباشرة فأرجو ان تمشي معك الطريقة التالية في المحاولة بتوظيفها في دالة تعمل داخل استعلام : On Error Resume Next Dim flag As Integer Dim MsField(15) As String Dim I As Integer flag = 0 Me.TN = Null For I = 0 To 15 MsField(I) = Mid(([FName]), (I), 1) If flag = 1 Then Me.TN = Me.TN & "" & MsField(I) If MsField(I) = "-" Then flag = 1 Next I Exit Sub تم تنفيذ المطلوب الآن عن طريق مصفوفة ربما نكون أختصرنا بعض الشئ من الكود السابق واذا كنت تريد تنفيذ استعلام بالمطلوب فخزن النتيجة في حقل اثناء الادخال او ربما هناك طريقة أخرى لجعل هذا الكود يعمل مباشرة بالاستعلام فإذا توصلت لشئ أفضل من هذا فسأطرحه بإذن الله هذا ما استطعت مساعدتك به مرفق الطريقتين بالمثال وبالتوفيق test1.rar
-
مثال برنامج جميل للصور للاستاذه زهره اريد ان يقراء الصوره من الفولدر فى اى مكان ينقل اليه الفولدر
adnan94 رد على foxman2wy's موضوع في قواعد بيانات Microsoft Access
أخي أبو احمد انا من خلال التعديل السابق اردت أن اعرفك على الطريقة فقط دون الخوض بتفاصيل المثال وعلى كل الأحوال حصل خير واليك الملف بعد التعديل مرة أخرى لكي تبدأ بالعمل على تطويره والذي تم اضافته بالنموذج لجلب مسار ملف الصور بشكل آلي الأمور التالية : عند الحدث عند الحالي فقط أضفت هذا الكود لادخال مسار ملفي الصور [ImagePath1] = CurrentProject.Path & "\empid" & [ImageID] & ".jpg" [ImagePath2] = CurrentProject.Path & "\empid" & [ImageID] & "-" & [ImageID] & ".jpg" وفي مفتاح الطباعة تم اضافة هذا الكود للتأكد من وجود الصورة في المجلد If Len(Dir(ImagePath1)) = 0 Then وذلك عوض الكود السابق : If IsNull(ImagePath1) Or IsNull(ImagePath2) Then أما اضافة الصورة فتابع هذه المشاركة للاستاذة الفاضلة زهرة مأجورة مشكورة http://www.arabteam2000-forum.com/index.php?showtopic=170595 وبالتوفيق اخي الحبيب EMP.rar