نجوم المشاركات

السلام عليكم هذا الكود لتعبئة الكمبوبوكس بما يناسبه Sub ListCmb(sName As String, sCmb As String) Dim MyStr, MyList, i Set MyList = CreateObject("Scripting.Dictionary") MyStr = sName & "*" For Each i In Ary If i Like MyStr Then MyList(i) = "" Next i Me(sCmb).List = MyList.keys End Sub وصيغة استدعائه تكون (مثال للكمبو الاول) ListCmb "Boitie", "ComboBox7" وهذا الكود لتعبئة السعر حسب ماتختار من الكمبو مع حساب مجموع التكسات Sub Sher(sShr As String, sText As String) Dim cc Dim n: n = 11 Me(sText).Value = "" Me.TextBox126.Value = "" MyStr = sShr & "*" For Each ii In Ary n = n + 1 If ii = sShr Then Exit For Next ii If sShr = "" Then Me(sText).Value = "" Else Me(sText).Value = ws.Cells(n, 3).Value End If For cc = 1 To 5 Me.TextBox126.Value = Val(Me.TextBox126.Value) + Val(Me("TextBox12" & cc).Value) Next End Sub وصيغة استدعائه تكون (مثال للكمبو الاول) Sher Me.ComboBox7, "TextBox121" ان شاء الله يكون المطلوب تحياتي للجميع Originale14.rar

معلومة : سبب عدم قبول التعديل هو ان جميع خاصية تم تأمينه=نعم لجميع عناصر النموذج الفرعي ! بالتوفيق

بارك الله فيك أخي الغالي شوقي مجرد هفوة صغيرة جدا If Not Intersect(Target, Range("a2:g2" & lastColumn)) Is Nothing Then يجب أن يحذف الرقم 2 من g2 If Not Intersect(Target, Range("a2:g" & lastColumn)) Is Nothing Then تقبل تحياتي

اخى واستاذنا شوقى بالفعل الملف يعمل جيدا تقبل حياتى

السلام عليكم اليك الحل دالة الترتيب التنازلى =LARGE($B$2:$B$12;ROW($A1)) دالة الترتيب التصاعدى =SMALL($B$2:$B$12;ROW($A1)) تحياتى ترتيب قراءات المطر.rar

أقتراح جميل جداً لكن العائق أمامنا هو عدم وجود حلقة للتواصل بين الأعضاء (كرقم هاتف أو ما شابه) رغم وجود موضوع للتعارف

السلام عليكم ثلاثة برامج لمن يبحث عن برامج جمعبات خيرية والبرامج الثلاثة مع بعض قابلين لتعديل مكتب هيئة الإغاثة .zip رقم سري :1 ContributorData.rar رقم سري :1234 جمعية الوفاء.rar

بسم الله الرحمن الرحيم دروس فى VBA Excel هذه الدروس نتيجة جهد مستفاد من شروحات وأعمال السادة أساتذة منتديات أوفيسنا أسأل الله عز وجل لهم أن تكون فى ميزان حسناتهم http://www.officena.net/ib/index.php الدرس الأول قبل أن نبدأ، دعونا نتأكد من أن الأدوات التي نحتاجها موجودة. إذا كنت تستخدم ( Excel 2007) أو إصدار أعلى click ". Office button, then click Excel Options بالاسفل سيتم إضافة علامة تبويب جديدة وهى Developer سوف نحتاج فى العمل مع التعليمات البرمجية ل VBA ، محرر، يتم تثبيته بشكل افتراضى. يمكنك فتحه عن طريق الضغط على تركيبة مفتاح الاختصار " Alt+ F11 ": او انقر على الشكل المشار له بالسهم بالصورة السابقة انتهى الدرس الأول مرفق ملف PDF يرجى ان كان هناك أى استفسار يكون فى مضمون الدرس حتى لا يتم التشتيت وتقبلوا منى وافر الإحترام والتقدير الدرس 1VBA Excel.rar

بسم الله الرحمان الرحيم السلام عليكم اولا ما هو النص التنبئي باختصار هو تنبئ البرنامج او الدالة او الكود بالكلمات التي تبحث عنها من خلال كتابة اول حروف الكلمة مثل مايحدث اثناء البحث عن طريق محرك البحث قوقل هذا الموضوع ليس جديد فهناك كود في المنتدى يعتمد على مربع نص وليست بوكس لاكني منذ فترة حاولت تطبيق الامر على الكمبوبوكس الى ان وفقني الله الى ذلك وها انا الان اشارككم الموضوع ما هي الفائدة من هذا الموضوع كثيرا ما يكون لدينا قاعدة بيانات كبيرة مثلا الاصناف في الفواتير و غالبا متكون عمليات الادخال خاصتا مكررة و كثيرة فهذه الطريقة ستساعدك كثيرا في ادخال الاصناف بسلاسة وسهولة بدل عناء اعادت كتابت الصنف مرارا وتكرارا لا اطيل عليكم في المرفق تجد مثال توضيحي احدهما مطبق على الشيت وهو مايهم اصحاب ادخالات الفواتير والثاني مطبق على الفورم صورة توضيحية بالنسبة للمثال المطبق على الشيت كما في الصورة من جهة اليمين عند الضغط على اي خلية ملونة بالاخضر تظهر كمبوبكس اكتب داخلها اي حرف لتجلب لك الكلمات التي تحمل تلك الحرف كما في الصورة يمكنك التنقل بين النتائج بواسطة سهم الاعلى والاسفل من الكبيور اضغط انتلر لادخال النتيجة في الخلية وانتقال الكمبو الى اسفل الخلية المفعلة بالنسبة للمثال المطبق على الفورم كما في الصورة من جهة اليسار نفس الامر كما في المثال الاول فقط الاختلاف في ان ادالبحث يكون من الفورم ارجو ان يكون الموضوع مفيد للجميع تحياتي للجميع تنويه تم استبدال المرفق بعد 23 تحميل texte prédictive 2007 2003.rar

حياك الله اخي الكريم ,,, اسف على التأخير لإنشغالي في الحقيقة كنت على وشك ارفاق العمل ولكن اتضح لي ان به خطاء ... سأحاول التعديل هذا المساء ان شاء الله. بالتوفيق ان شاء الله ...

حياك الله اخي الكريم المرفقات في مشاركتي السابقة تحتوي على ماتبحث عنه وهو حماية القاعدة حتى من ناحية عدم العبث في محتوياتها. .. في حال لم تجد فيها ما تبحث عنه .. افتح موضوع جديد ,,, واذكر طلبك بالتحديد , وفقنا الله واياك ..

ماشاء الله لماح

جرب الكود بهذا الشكل Sub oddinho2z() Dim X As Long, Y As Long X = 5: Y = 5 Range("BU7:BU169,BV7:BV169").Copy Range("DC7").Select Do Until ActiveCell.Value = "" ActiveCell.Offset(, 1).Select X = X - 10 If X = 0 Then GoTo 1: Exit Sub Loop ActiveCell.Select ActiveSheet.Paste 1 Range("H7:H169,I7:I169").Copy Range("KF7").Select Do Until ActiveCell.Value = "" ActiveCell.Offset(, 1).Select Y = Y - 10 If Y = 0 Then Exit Sub Loop ActiveCell.Select ActiveSheet.Paste Application.CutCopyMode = False End Sub

السلام عليكم مجرد رئي عند التعامل مع الشيت من الافضل استخدام الدول في المثال الذي ارفقته مثلا دالة SUM قايمة بالواجب وحتى عند تغير القيم كما طلبت في اخر رد تعمل اتو ماتيكايا ان كنت تريد استخدام العمليات الحسابية من خلال vba فالافضل استخدامها مع Object مثال التكسات في الفورم تحياتي

السلام عليكم ورحمة الله وبركاته عندي نموذج اسمه form1 به نموذج فرعي يتم الفلتره فيه عن طريق مربعات نص في النموذج الرئيسي المشكلة التي واجهتني اني اريد التعديل في حقل معين في النموذج الفرعي لااستطيع وعند تفعيل الادخال في النموذج الفرع لا تظهر لي البيانات هل من طريقه لحل هذه المشكله مع العلم اني استطيع التعديل من خلال نموذج اخر عن طريق استعلام لاكن لااريد ذالك انا اريد التعديل من داخل النموذج الفرعي . ولو امكن عند النقر علي السجل مرتين في النموذج الفرعي ليفتح لي السجل في نموذج اخر للتعديل عليه وجزاكم الله خيرا اليكم المرفق للتوضيح برنامج التليفون 2015.rar

السلام عليكم اريد رئي الاساتدة في هاد البرنامج اول شيء انا مبتدا في الاكسس --- تقريبا حوالي شهرين لا اكثر وما ساعدني هو درايتي ببرمجة لغات اخرى مثل PHP +HTML اقوم ببرمجة قوالب وورد بريس فالاكسس من البرامج التي اعجبتني فحاولت الخوض فيه واريد من الاخوة الاساتدة وعلى رئسهم الاستاد الفاضل ابو خليل ان يعطيني رئيه في هاد البرنامج فهو الاصدار الاول وشكرا على رئيكم مسبقا فهو برنامج بسيط برنامج ادارة محل خياط https://www.youtube.com/watch?v=HSIUw3ia_aM&feature=youtu.be

بعد إذن الجميع الموضوع لا يخص أسماء الشيتات الموضوع يخص أسماء الإجراءات sub والصواب تغيير اسم الإجراء إلى sheet1 بدون مسافات كما أخبر الأستاذ ياسرخليل

السلام عليكم تفضل اخي اعتقد هذا ما تريد بالتوفيق برنامج التليفون 2015.rar

السلام عليكم الخطئ في هذا السطر If Not Intersect(Target, Range("a2") & lastColumn) Is Nothing Then يجب ان تكون هكذا If Not Intersect(Target, Range("a2:g2" & lastColumn)) Is Nothing Then

اعزائي مداخلة كمعلومة : مصدر النموذج الفرعي استعلام واسمه : جدول الموظفين2 اخي عبدالرحمن : ماقمت بتحديده هو مصدر الكائن وليس مصدر السجلات فمصدر الكائن هو اسم النموذج بقائمة النماذج والذي مصدره استعلام . ولكن انقر على زاوية النموذج العليا اليسرى ستظهر خصائص النموذج وليس الكائن الفرعي ! اخ حسين : اعود لك ان شاء الله تحياتي

اخي عبدالله اشكرك أولا على التجربة ووصف العمل بالمميز !! ثانيا موضوع سحب عدة صفحات اصبح سهلا والحمد لله بعد معرفة سيناريو الحل ومن الأكسس 100% !! لا يوجد لدي سكنر متعدد السحب ! الحل موجود والفكرة ! ولكن اريد اختبارها لدي وقبل رفعها وعند اتاحة الجهاز وكذلك الوقت وقريبا ان شاء الله! تحياتي

انا اعتذر ، ما انتبهت اني اشير الى وحدات نمطية غير موجودة ، فاليك الكود بدونهم: ونعم هي للـ Backup Private Sub Form_Close() On Error GoTo err_Form_Close 'make a backup of BE BE_Address = application.currentproject.path & "\Personnel_Images\Personnel_BE.accdb" BK_Address = application.currentproject.path & "\Program\Personnel_BE_" & Format(Now(), "yyyy-mm-dd_-hh-mm-ss") & ".accdb*" Call Shell("xcopy " & BE_Address & " " & BK_Address, vbHide) Exit Sub err_Form_Close: If Err.Number = 2450 Then 'ignor Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

الاخ والاستاذ / ياسر بارك الله فيك ونفعك بعلمك ونفع بك وزادك علما اشكرك شكرا جزيلا لقد طبقت الكود على قاعدة بياناتي واشتغل مضبوط الحمد لله اشكرك على تجاوبك معي وعلى صبرك على كثر الاسئلة انك رائع في منتدى اروع

اخى الحبيب ابوايمان اختى الفاضله شيماء شرح دالة larage تقوم بارجاع اكبر قيمه LARGE(array, k) array هو نطاق البيانات التى تريد ترتيبها k هو رقم الترتيب الذى تريده مثلا ارجاع اكبر اول رقم ثم ثانى رقم ......وهكذا فمن المكن ان يكون ال k رقم 1 او 2 او 3 وحنى نستطيع ارجاع هذا الرقم بشكل تلقائى تم ادارج الداله row() row() وهى تقوم بارجاع رقم الصف كذلك الداله small ولكنها تعيد اصغر قيمة ================================================================================================================== يمكن استخدام خاصية الفرز والتى تقوم بنفس الوظيفه ايضا يمكن استخدام خاصية pivottable تحياتى اليكم

الاستاذ حسام الكود الخاص بالاستاذ شوقي ربيع هو البحث والإكمال ( يبدأ بـ ) والكود الخاص بك البحث والإكمال ( يحتوي علي ) أي سيظهر لك كل كلمة او حرف في النطاق يحتوي علي الحرف او الاسم.للعلم والإحاطة فقط جزاكم الله عننا خير الجزاء

أخي الغالي شوقي عمل في منتهى الروعة والجمال والإبداع لاحرمنا الله من إبداعاتك المنقطعة النظير وفي انتظااااااااااااااااار المزيد من الإبداعات ..متبخلش علينا باللي عندك

أخي علي ، خلينا نمشي على النقاط التالية: 1. اذا كان عندك الاكسس 2007 في اول اصداراته (يعني بدون تحديثات ، وللأسف هذه النسخة موجودة ورأيت الكثير منها ، والكثير من الناس يأخذوها من CD او DVD غير مشروع) ، ففي هذه النسخة ، اذا كنت طلبت من البرنامج: Compact on close ، فالفرصة كبيرة بأن يعمل Corruption لقاعدة البيانات في بعض الكمبيوترات. 2. لهذا السبب يجب عمل التحديثات (Service pack او SP) على الاكسس (لجميع الاصدارات ، لهذا السبب ولأسباب اخرى) ، وهذا الموقع يحتوي على رابط لآخر تحديثات الاوفيس: http://pcsupport.about.com/od/keepingupwithupdates/a/office-service-pack.htm وهناك العديد من الاشخاص الذين للاسف الشديد لا يقومون بتحديث الـ Windows ولا الاكسس ، لهذا السبب اسمح لي اخبرك ، بأن اول تحديث للاكسس 2000 تم فيه تصليح 200 عيب وثغرة من البرنامج الاصل 3. عند حذف السجلات في الاكسس ، فان الاكسس لا يقوم بحذفها نهائيا من البرنامج ، إلا عندما تقوم بعملية Compact and Repair. مثال: قم بعمل قاعدة بيانات بجدول واحد مثلا ، وادخل فيه آلآف السجلات ، اغلق البرنامج ، لاحظ حجم الملف ، افتح البرنامج ، احذف كم هائل من السجلات ، اغلق البرنامج ، لاحظ حجم الملف ، سترى انه تقريبا نفس الحجم الاصلي ، الآن افتح البرنامج ، اعمل Compact and Repair ، واغلق البرنامج ، لاحظ حجم الملف 4. بالنسبة لي انا ، فمعظم برامجي تحتوي على FE و BE الذي يحتوي على الجداول (في البداية ، البرنامج يكون غير مقسم ، الى ان يأخذ البرنامج شكله وعمله الصحيح ، فعندها اقسمه) ، في FE ، في النموذج الرئيسي ، فاستخدم مثل الكود التالي ، والذي يعمل لي نسخة من BE في مجلد خاص للـ Backup ، كلما يغلق المستخدم برنامجه ، ويكون اسم الملف مختوما باليوم والساعة والدقيقة والثانية ، وطبعا السؤال الذي يسأله الكثيرين هو ، سيصبح لدينا الكم الهائل من هذه الملفات ، وجوابي هو: أ. حجم الهارد ديسك هذه الايام مهول ، فلا مشكلة ، ب. معظم مشاركاتي في النتدى ، اضع بين ايديكم وقائع حصلت لي في العديد من برامجي ، وهذه الطريقة انقذت بعض المؤسسات من مشاكل عويصة ، نظرا لحذف سجلات بالخطأ او .... Private Sub Form_Close() On Error GoTo err_Form_Close 'make a backup of BE Call BE_or_FE Call Backup_Folder BE_Address = Replace(BE_Path, "\Personnel_Images", "") & "\Personnel_BE.accdb" BK_Address = Backup_Folder & "\Program\Personnel_BE_" & Format(Now(), "yyyy-mm-dd_-hh-mm-ss") & ".accdb*" Call Shell("xcopy " & BE_Address & " " & BK_Address, vbHide) Exit Sub err_Form_Close: If Err.Number = 2450 Then 'ignor Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

استاذى القدير شوقى ربيع عمل اكثر من رائع وهذا ما تعودناه منكم زادكم الله علما اذا سمحت لى باضافه بسيطه واكيد انت اعلم بها منى وما العبد الا قطره فى بحر علمكم الفياض يمكن استبدال هذا السطر d = UCase(Me.ComboBox1) & "*" بالسطر التالى d = UCase("*" & (Me.ComboBox1) & "*") للبحث عن الحرف فى اى كلمة من الخلية فى النطاق المحدد مرفق ملف كمبوبوكس بالبحث.zip

السلام عليكم (نموذج الطباعة) هو شيت خاص بطباعة الراسبين أو الناجحين اختر الشيت من الخلية J1 ثم اختر رقم أول سطر (وليس رقم الطالب) من الخلية J2 ثم غير ما يلزم في اسفل الورقة ملاحظة تحتاح الآن لنقل كود الدوائر الحمراء إلى شيت (نموذج الطباعة) لطباعة الراسبين جرب المرفق ayman1.rar

تم حل المشكل و تم استبدال المرفق في المشاركة الرئيسية

الفكرة غير مفهومة!، ما هي الاختصارات التي تريد تغييرها؟

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

دائما متميز في أعمالك جزاك الله خيرا

مبارك للجميع على الترقية تمنياتي لكم بالتوفيق ان شاء الله

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

بسم الله الرحمن الرحيم وبه نستعين أخى العزيز الاستاذ الفاضل // ابو ايمان السلام عليكم سبب استعجال الرد تحت عبارة " للرفع " لان الموضوع تم رفعه تقريبا من منتصف شهر فبراير دون رد من أى زميل وخاصة أننى على علم تام أن هناك تواصل تليفونيا مع أكثر من زميل ومعلوم أخى الكريم أن السيدة الفاضلة الست // أم عبدالله صاحبة مبدأ ومبدأ محترم الا وهو الاعتكاف والصمت عن الرد فى حالة مايسوء غضيها ولكن أن يكون هناك انقطاع كامل دون سابق انذار فكان لزاما السؤال من منطلق اننا اسرة واحدة فيأم عبدالله أن كان هناك مايسوء غضبك فعذرا شقيقتى نيابة عن من أخطأ ولتعادودى نشاطك المعهود فانتى ليست الاولى فهناك الكثيرممن افتقدناهم لانهم على ذات مبدأكم المحترم اما إن كان هناك مايعلمه سوى الله فليرحمنا الله أمواتا واحياءا

السلام عليكم اخى الكريم هل تقصد هكذا book 206.rar

السلام عليكم ورحمة الله وبركاته ... افتح النموذج في عرض التصميم حدد حقل التاريخ واضغط على خصائص من خصائص اختر بيانات من بيانات اختر القيمة الإفتراضية وضع هذا الكود = DMax("date_sequence";"student")+1 ملاحظة : عند تسجيل اول سجل يجب ان تقم بتسجيله يدويا وبعدها سيتم التسجيل تلقائي . وإليك المرفق .. اتمنى ان يكون ماطلبت . بالتوفيق ان شاء الله . New تطبيق Microsoft Office Access.rar

السلام عليكم ورحمة الله وبركاته ,,,, الق نظره على المرفق اخي .... لاحظ الجداول تم تعديل بيانات بعضها وحذف البعض وربطها بالعلاقات.. ملاحظة : انت تكثر من وضع المفتاح الأساسي مثلا: في جدول المدرسين هوية المدرس هي المفتاح الأساسي ,, بالإمكان استخدامها في تسجيل الدورات ولكن تسجيل الدورات لها المفتاح الأساسي الخاص بها. وهكذا بالنسبة للدفعات بالأمكان عملها بالإستعلامات مستقبلا .. بالتوفيق ان شاء الله corses.rar

السلام عليكم ورحمة الله وبركاته ,,, هذا رابط فيديو يشرح التقسيم وفي المرفق برنامج الا ستاذ مهند عبادي لعمل نظام صلاحيات ,, وكذلك شرحه للاستاذ علي العتيبي .. جزاهم الله خير .. وهي مفيده جدا ان شاء الله. وفقنا الله واياك .. users.rar

أخي الكود يعمل بشكل ممتاز جرب الملف التالي ‫Move Data To Another Sheet Using Worksheet_Change V1.rar

السلام عليكم ورحمة الله وبركاته .. هنا موضوع مماثل نوقش هذا الأسبوع في المنتدى . ان شاء الله تجد فيه ما تبحث عنه . http://www.officena.net/ib/index.php?showtopic=59145&hl=%D8%AA%D9%84%D9%88%D9%8A%D9%86

السلام عليكم ورحمة الله وبركاته .. وبارك الله فيك ,,, * بالنسبة لطلبك اقرب موعد متاح ..... فكل السنة بالإمكان التسجيل وكل السنة متاحة ويمكن التسجيل فيها ولكن ان كنت تقوم بتسجيل المواعيد بشكل متتابع فذلك يعني انه بإمكانك استخدام الأمر في النموذج المرفق في مشاركتي السابقة البحث عن اكبر تاريخ . ما اعنيه هنا انه قد يأتيك مريض ولديك موعد متاح الأسبوع القادم ولكنه لايرغب في ذلك الموعد لسبب ما ... فيطلب موعد بعد شهر مثلا .. وهكذا. عوضا عن ذلك تمت اضافة خانة بحث بالتاريخ : ادخل التاريخ ويفيدك بعدد المواعيد المسموح بها والمواعيد المسجلة وكذلك المتاحة لهذا التاريخ ... وهي بنفس الأكواد السابقة . * بالنسبة لسؤالك الثاني عند تغيير العطل وعدد الحجوزات فالجواب نعم وبإمكانك التجربة حتى دون السؤال . * تطبيقة على باقي العيادات ............... هذي بالذات البركة فيك ان شاء الله انت اعمل بالظبط نفس المعمول في النموذج المرفق ... مع تغيير المسميات على حسب العيادة وكما نصحتك سابقا استخدم المسميات باللغة الإنجليزية (( لم اجرب اللغة الفرنسية ولكن اعتقد ان لامشكلة فيها كما في العربية عند استخدام الأكواد)). *اسم مستخدم وكلمة مرور وحماية القاعدة : هنا بعض الروابط وهي مفيده ان شاء الله. http://www.officena.net/ib/index.php?showtopic=58376&hl= * هذا مجرد رأي ومادامت القاعدة لديك تؤدي المطلوب فخير وبركه .... رائيي في القاعد وانا لست بالخبير ولكنه مجرد رأي : 1- جدول خاص بالمريض : رقم الملف , الاسم ..... الخ . 2- جدول خاص بالأطباء : الاسم , التخصص ..... الخ 3- جدول خاص بالعيادات : اسم العيادة , الطبيب ... 4- جدول خاص بأيام العمل للعيادات : العيادة ,عدد ايام العمل أوعدد الأيام المستثناه. . 5- جدول لتسجيل المواعيد لكافة العيادات . 6- نموذج واحد لتسجيل كافة المواعيد لكافة العيادات . وفقنا الله واياك لما يحب ويرضى . hoospiital.rar

اخى الفاضل حتى يتم عمل المطلوب من اى عضو فاضل ...فقد اتاحت وزارة العمل السعودية على موقعها الالكترونى خدمة احتساب نهاية الخدمة للموظف على هذا الرابط ... اطلع عليه لربما يفيدك حساب مكافأة نهاية الخدمة تحياتي

السلام عليكم ورحمة الله وبركاته ,, اخي الكريم الق نظرة على المرفق وفي نموذج sss وهو مثال على عيادة C ملاحظة : قمت بتغيير اسماء بعض الحقول إلى اللغة الإنجليزية وذلك لسهولة كتابة الأكواد .. وانصحك بعدم استخدام اللغة العربية . المحتويات : 1- في حالة كان التاريخ المدخل ليس يوم عمل للعيادة سيتم تنيهك بذلك . 2- في حال كان عدد المرضى للتاريخ المدخل اكبر من العدد المسموح به في daily2015 سيتم تنبيهك بذلك . 3- هناك مربع بحث عن اخر موعد تم تسجيله للعيادة .. اي اكبر تاريخ . ويوجد شرح ايضا في المرفق عن طريقة استخراج كل معلومة .. جرب التاريخ 24/02/2015 كذلك جرب التاريخ 10/01/2015 واضغط على امر حفظ سيتضح لك كل شئ ان شاء الله في حال راق لك المثال بإمكانك تطبيقة على باقي العيادات .. ولو ان لي وجهة نطر اخرى حول طريقة تصميمك للقاعدة كليا... لو لك اسألة حاضرين بالتوفيق ان شاء الله .. hoospiital.rar

السلام عليكم ورحمة الله وبركاته ..... تفضل اخوي ابو عبدالله هذا المرفق عله ماتبحث عنه .... مع الشكر لجميع الأساتذة على جهودهم .. بإمكانك تغيير تاريخ الجهاز وملاحظة ذلك في حال وجود مواعيد تسليم ام لا وذلك بناء على البيانات المدخلة في الجدول receiving وفقنا الله واياكم لكل خير ,,,, تنبيه.rar

السلام عليكم ورحمة الله وبركاته ,, عزيزي مركز كلمات : يبدو انك لاتستخدم الأكسس كثيرا ,, عموما سوف ارفق لك قاعدة لتكون حجر أساس يمكن التعديل والتغيير فيها ,, هي جيده لإدخال البيانات وارسالها للحفظ في القاعدة ولكن اذا كان طلبك غير ذلك فأمامك برأيي اسئلة كثيرة .... افتح النموذج وقم بإدخال البيانات وبعدها الضغط على امر حفظ ,,, افتح الجدول ستجد المعلومات قد اضيفت .. وبإنتظارك وفي خدمتك ,,, bdlat.rar

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

يبدو ان الامور تحسنت هذا هو التعديل studEhsa.rar

بفضل الله اليك الحل وبخطوة واحدة فقط نعرض فيه الاستعلام من خلال النموذج الفرعي باستخدام هذا السطر البرمجي Me.subfrm.SourceObject = "Query.qrRadiology" فتح استعلام جدولي متغير داخل نموذج.rar