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

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

السلام عليكم جرب الكود التالي في حدث ورقة العمل Private Sub Worksheet_Activate() ActiveSheet.TextBox1.Activate End Sub

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

أخي ابو عائشه انت لما تكتب الكود ، فهذه النافذة تُسمى نافذة اكواد VBA ، ويمكنك ان تبحث عن اي امر تريده مساعدة فيه ، بطريقتين (لإصدارات الاكسس 2000 الى 2010) : في هذه النافذة حقل في اعلى اليمين تكتب الامر اللي تريد تبحث عنه ، فتخرج لك نافذة فيها معلومات عن الكلمة التي تبحث عنها ، او تكتب اي امر في نافذة الاكواد ، مثلا: msgbox وتضع مؤشر الكتابة على اي جزء من الكلمة ، ثم تضغط على الزر F1 ، فتأتيك النافذة كما في الرقم 1 اعلاه ، بمعلومات عن msgbox. من الرقم ا او 2 ، سترى جميع الاوامر الخاصة بالامر msgbox الآن بالنسبة الى الامر msgbox ، فهناك اوامر تنبيه ، والتي تصدر صوت تنبيه كذلك ، وكل أمر له الشكل/الايقونة الخاص به (وهذا كان سؤال موضوعك)، مثلا: MsgBox "تجربة بصوت", vbYesNo + vbCritical او MsgBox "تجربة بصوت", vbYesNo + vbExclamation او MsgBox "تجربة بصوت", vbYesNo + vbInformation ولتكملة الموضوع ، فان الصوت يأتي من اصوات الوندوز ، ويمكنك ان تغيره من هنا (فالسهم يؤشر على صوت Critical ، والذي تناديه من الكود اعلاه بـ vbCritical): . وطبعا تستطيع استعمال أمر Beep كما قال عنه أخي شفان ، في اي مكان من البرنامج جعفر

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

السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. بعد نزع خاصية انشاء شريط القوائم بالأكسس في النسخ بعد 2003 أصبح هناك عائق كبير في إضافة هذه الأشرطة و لأنه يتوجب عليك العمل على ملف 2003 أو استعمال Ribbon بلغة Html و هي أصعب من الفكرة الأولى. مما جعلني أفكر في طريقة تجعلنا نستغني عن هذه الطرق المرهقة بعض الشيء. و قمت بتصميم برنامج يستطيع أن يضيف شريط قوائم للنموذج الرئيسي لقاعدة البيانات مهما كانت نسختها 2003 أو النسخ التي تأتي بعدها. نبدأ على بركة الله في شرح البرنامج: بعد فتح البرنامج نتبع الخطوات التالية: 1 - أكتب اسم القوائم التي تريد أن تضيفها مع وضع رقم كل قائمة بالترتيب (1,2,3,....و هكذا) 2- أضف العناصر أو الأوامر التي تندرج تحت كل قائمة في النموذج الفرعي رقم العنصر , تسمية العنصر ثم الكود الذي تريد أن ينفذه هذا العنصر 3- أختر قاعدة البيانات سواءا كانت 2003 أو ما بعدها ثم اختر اسم النموذج الذي تريد أن تضيف له الشريط 4- قم بالضغط على زر "إنشاء الشريط" 5- افتح قاعدة بياناتك و أنظر للشريط المضاف حتى لو كان النموذج منبثق و شاشة الأكسس مخفية سوف ترى الشريط شروط استخدام البرنامج: 1- قبل البدئ أحفظ نسخة إحتياطية من قاعدة بيانات 2- يجب أن لا يكون لديك في قاعدة بيانات نماذج بهذه الأسماء : list1,list2,list3..... و هكذا 3- يجب أن يكون حدث عن النقر للنموذج الرئيسي خال من أي كود 4-بعد الإنتهاء أدعولي و لوالدي و لعائلة بالخير و الصلاح. هذا هو البرنامج انشاء شريط قوائم.rar

السلام عليكم و رحمة الله تعالى و بركاته إخوتي الكرام حياكم الله أقدم لكم برنامج إستخراج أسماء الملفات و المجلدات الفرعية داخل مجلد دور البرنامج : استخراج اسماء الملفات الفرعية داخل مجلد و فتح الملف عند النقر مرتين على اسمه. شرح البرنامج: 1 - اختر النوع الذي تريد إظهاره المجلدات فقط أم المجلدات و الملفات معا 2- اختر المجلد الذي تريد استعراض ملفاته. 3- اضغط على الزر استخراج الملفات لظهور أسماء الملفات داخل مربع النص. 4- عند الضغط المزدوج على اسم الملف أو المجلد يقوم البرنامج بفتحه. أدعوا لي و لوالدي بالتسهيل في قرعة الحج إن شاء الله هذا هو البرنامج استخراج اسماء الملفات الفرعية لمجلد.rar

السلام عليكم ورحمة الله وبركاتة جعل الادخال في الحضور والانصراف عن طريق دبل كليك فقط ولا يمكن الكتابة اليدوي Book1.rar

اخى الكريم : معى بالخطوات 1-Control Panel 2- Language and region 3-Administrative كما بالصورة قم بتغييرها الى موقعك او الى الموقع اللى هيظبط معاك

جرب هذا المرفق اخي الكريم systray.zip

حسب علمي ، لا يمكن اي طريقة اسرع من الطريقة الاولى "لجمع فى نهاية الصفحة" للأسف ، في ثمن ندفعه للبرنامج ليقوم بعمله وبالذات للتقارير ، وهذا الثمن اسمه البطء جعفر

تفضلي تم تعديل استعلامات نماذج "مواعيدك" الاربعة جعفر 630.ننظام متابعة مواعيد مرضى السكر.accdb.zip

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

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

مشكور على مرورك استاذى الفاضل بالنسبة لتحديث الكود ل64 بيت يجب التحديث لان فى رسالة خطأ بتظهر بتطلب تحديث الكود ل64 Declare Function بالنسبة لمثالك هنزل اصلى واجرب واوافيك النتيجة

هناك ملاحظة * انت ما حطيت نموذج الفرعي على نموذج الفرعي , انا عملت ذلك اضفت لنموذج فرعي مربع نصي باسم تيكست 10 و كتتبت فيها اي خليت مصدره هذا =Sum([الدرجة]) وفي مربع نصي Sum_Total لنموذج الرئيسي كتبت هذا اي خليت مصدره هذا =[frm_sub].[Form]![Text10] واذا تريد ان تستخدم DSum من الافضل ان تأخذه البيانت من الجدول او الاستعلام و ليس من النموذج اتفضل قاعدة بياناتك 623.stu new.rar تقبل تحياتي

اتفضل اليك هذا لحقل شهر 1 اعمله لكل الحقول اولا انا غيرت اسم المربع لشهر 1 من "01" الى "sh01" واستخدمت هذا الكود عند الفتح النموذج Private Sub Form_Open(Cancel As Integer) If DCount("[شهور]", "[qr1]", "[شهور]=" & "01") < 1 Then Me.sh01.ControlSource = "" Else Me.sh01.ControlSource = "01" End If End Sub اليك قاعدة بياناتك بعد اضافة الكود الاعلاه rr2.rar

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

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

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

أخى أبو عبد الله هل الإجابة على سؤالى فيه حرج لكم؟ السؤال بعيد عن الأكسيس تماما ما المقصود بحد الرسوب و حد النجاح فى نظامكم التعليميى وفقكم الله

السلام عليكم ....... 1- العمل بصفة شهرية 2 - الموردين ثابتين . 3- لكل مورد حساب جاري .

هلا والله ، وحياك الله والوحدة النمطية modTextHeightWidth تعمل عمل آخر كذلك ، لذلك اشجعك بإنزال المرفق والذي به نموذجين ، نموذج لكل لتصغير الخط ، ونموذج لتصغير/تكبير حجم الحقل ليتناسب مع حجم الخط (يعني عكس عمل الخط) جعفر

وعليكم السلام رجاء الانتباه الى ترتيب اجاباتي ، فهي غير ترتيب اسئلتك 2. في جدول المواعيد ، اضيفي حقل بإسم Appointment_Cancelled (تم الغاء الموعد) ، ويكون الحقل بصيغة نعم/لا ، وقيمته الافتراضية 0 (صفر ، اي لا) ، وفي الاستعلام الذي هو مصدر بيانات النموذج الفرعي ، اعملي هذا المعيار للحقل (لا يساوي ناقص واحد ، لأن ناقص واحد "علامة الصح" معناها انه تم إلغاء الموعد) : <>-1 وسترين هذا الحقل الجديد في النموذج الفرعي ، ويمكنك النقر عليه لإلغاء موعد ذلك اليوم ، علامة الصح يعني تم الغاء الموعد ، ويجب ان لا يظهر في المواعيد في هذا الاستعلام ، لذلك يجب ان تضعي الكود التالي على حدث النقر على هذا الحقل: docmd.runcommand accmdsaverecord me.requery وعندها سيختفي هذا الموعد من القائمة. 1. كما قال الاخ اكرم ، في الاستعلام الذي هو مصدر بيانات النموذج الفرعي ، اعملي هذا المعيار لحقل التاريخ: >Date() 4. رجاء قراءة الرابط التالي ، ابتداء من "ومصدر بيانات النموذج الفرعي اصبح:" ، وقراءة المعلومة بين الخطين الاحمرين ، فهي ما طلبتيه: 3. اعملي نفس الطريقة للنموذج اعلاه جعفر

الحمد لله تم الحل باستخدام الكوج التالي Total: Nz(DSum("Quantity";"QYR";"[IdProduct]=" & [IdProduct] & " And [Xdate] between#" & Format([forms]![aa]![a];"yyyy/mm/dd") & "#and #" & Format([forms]![aa]![b];"yyyy/mm/dd") & "#")) واكرر الشكر لاخي الفاضل عبدالفتاح كيرة والشكر للجميع تحياتي

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

رابط جديد https://drive.google.com/open?id=0B5oTVOnhU-rrOXZhZlZLbjFBSFk اخي الفاضل جزاك الله خير ا ماكنت غير اني سبب والكن الشكر كل الشكر للاستاتذه الذين ساهمو معي في هذا البرنامج ويرجع الفضل في هذا البرنامج للمولي عز وجل / ثم لا ستاذي الفاضل sandanet الذ ي بذل مجهود كبير جدا حتي وصلت به الي هذه الدرجه والشكر ايضا لاستاذي الفاضل محمد سلامه / واستاذي الفاضل ابا جودي / ولاستاذنا الكبير ومعلمنا الفاضل jjafferr الذي شرفنا بلمساته الفنيه الجميله الف شكر لكم استاتذتي الافاض لكم مني كل الشكر والتقدير وجعلكم الله عونا لكل محتاج للعلم وبارك الله لكم وعليكم وجراكم خير الجزاء ارجو من كل من يستفيد من هذا البرنامج الدعاء لكل من ساهم في هذا البرنامج في الرابط الجديد وضعت زر امر لفتح الاسكان عن طريق شورت كت علي سطح المكتب واستدعاء المسار من نموذج تغير مسار حفظ البرنامج زر النموذج في الشاشة الرئيسية لكي تستطيع فتح الاسكنر من داخل البرنامج دون الخروج

تسلم اخى @صالح حمادي لقد قمت بانزالها وحفظها لدى فى ملف وبرجع اليها دائماً برجاء تكملة باقى الدروس .

السلام عليكم ورحمة الله وبركاته الان انا عم اعمل تجربة على القاعدة بيانات و رقم سري له مكونة من 14 رقم والحروف اذا نجحت فيها ساخبرك واقول لك ارسللي لكن صار تقريبا ساعة و ... بعد وصل الى حد 9 بالمائة اي يعنني سيطول الامر لذا انتظرني تقبل تحياتي

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

تفضل اخي ان شاء الله هو المطلوب حركة المخزن.rar

السلام عليكم هذا هو الفديو الثانى فى شروح أكسيس و لا أدعى أن فى هذه الفديوهات أشياء جديدة على معظمكم لكنها شروح أرجو أن ينتفع بها عدد غير قليل من زوار المنتدى و كل إنسان له بداية ضعيفة ثم بالبحث و المران اكتسب المعلومات و الخبرة و قد كنا و نحن فى البدايات نبحث عن مثل تلك الشروح أرفق لكم ملف الأكسيس قيد الشرح و نتعرض للموضوعات التالية فى هذا الفديو خاصية القيمة الافتراضية و فوائدها استخدام الخاصية فى إدراج معرف الموظف تلقائيا استخدام خاصية وقف علامات الجدولة دالة iff dcount dmax و أشكر الأخ المراقب أبا خليل لتشجيعه وفقكم الله

السلام عليكم موضوع بحثت عنه قديما و لم أتوصل لإجابة شافية - هذا إذا افترضنا أنه ممكن- معيار الاستعلام هل يمكن تخزينه فى جدول و نستدعيه بدالة dlookup لا أقصد قيمة المعيار بل أقصد صيغة المعيار مثلا: لو كان المعيار : >7 أو يشتمل على محددات مثل > < or and <> هل يمكن تخزين صيغة المعيار كاملة فى حقل بجدول و استدعاؤها بدالة البحث أو حتى تخزينها فى مربع تحرير و سرد أفيدونا فى هذا الموضوع أفادكم الله

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

اتفضل اخي محمد استخدمت هذا الكود Dim i As Integer Dim sCount As Integer sCount = DateDiff("d", Me.StartDate, Me.enddate) DoCmd.GoToRecord , , acNewRec For i = 0 To sCount Me.XDate = DateAdd("d", i, Me.StartDate) Me.IdMonth = Format(Me.XDate, "mm") DoCmd.GoToRecord , , acNext Next DoCmd.Requery db11.rar

السلام عليكم بعد العديد من المحاولات أخي محمد توصلت إلى كود يقوم بتصدير الباركود كما هو: Dim objWord As Object Dim oDoc As Object Dim i As Integer Dim j As Integer Dim sTemp As String DoCmd.OpenReport "report1", acViewPreview, , , acHidden Set objWord = CreateObject("word.application") Set oDoc = objWord.Documents.Add With objWord .Visible = True .selection.Font.Name = "MW6 Matrix" .selection.Font.Size = 22 .selection.ParagraphFormat.LineSpacing = 11 .selection.ParagraphFormat.SpaceAfter = 0 .selection.ParagraphFormat.SpaceBefore = 0 .selection.InsertAfter Reports![Report1]![Text0] End With oDoc.SaveAs2 CurrentProject.Path & "\ss123.docx" objWord.Quit DoCmd.Close acReport, "report1" Set objWord = Nothing Set oDoc = Nothing Desktop10.rar

جزاك الله خيرا

دفعة واحدة عبر الاستعلام وحده لا اعلم ولكن اظن تحقيق ذلك بالاستعانة بالكود بالنسبة ليوم الجمعة انظر التعديل على الاستعلام db3.rar

هذا الملف بصيغة 2003 ارجو تحويله لصيغة 2003 او 2007 وشكراً لا تقلق أخي هذا ليس إزعاج نحن نعمل ما نستطيع فعله و لا يمكن أن يزعجنا شخص يطلب العلم تأثيرات 2003.rar و هذا الملف الآخر 2003.rar

السلام عليكم أخي تفضل هذه هي الأكواد التي تحتاجها: 1- بالنسبة لحفظ المرفق بمكان معين في الكمبيوتر: Set db = CurrentDb Set rstable = db.OpenRecordset("tblFonts") Set rsfile = rstable.Fields("attach").Value rsfile.Fields("FileData").SaveToFile txtpath بحيث : txtpath هو مسار الحفظ و إذا أردنا فتح الملف بعد حفظه مباشرة نضيف هذا الكود: Application.FollowHyperlink txtpath & "\" & rsfile.Fields("Filename") 2- أما بالنسبة لفتح المرفق مباشرة فنستعمل هذا الكود: Dim db As DAO.Database Dim rsEmployees As DAO.Recordset Set db = CurrentDb Set rsEmployees = db.OpenRecordset("tblFonts") OpenFirstAttachmentAsTempFile rsEmployees, "attach" و نحفظ الكود التالي في وحدة نمطية جديدة: Public Function OpenFirstAttachmentAsTempFile(ByRef rstCurrent As DAO.Recordset, ByVal strFieldName As String) As String Dim rstChild As DAO.Recordset2 Dim fldAttach As DAO.Field2 Dim strFilePath As String Dim strTempDir As String strTempDir = Environ("Temp") ' Get the Temp directory from the environment variable. If Right(strTempDir, 1) <> "\" Then strTempDir = strTempDir & "\" ' Make sure the path always ends with a backslash. Set rstChild = rstCurrent.Fields(strFieldName).Value ' the .Value for a complex field returns the underlying recordset. strFilePath = strTempDir & rstChild.Fields("FileName").Value ' Append the name of the first (and only) attached file to temp dir. If Dir(strFilePath) <> "" Then ' the file already exists--delete it first. VBA.SetAttr strFilePath, vbNormal ' remove any file attributes (e.g. read-only) that would block the kill command. VBA.Kill strFilePath ' delete the file. End If Set fldAttach = rstChild.Fields("FileData") ' The binary data of the file. fldAttach.SaveToFile strFilePath rstChild.Close ' cleanup VBA.Shell "Explorer.exe " & Chr(34) & strFilePath & Chr(34), vbNormalFocus ' Use Windows Explorer to launch the file. End Function 'OpenFirstAttachmentAsTempFile و هذا ملفك بعد التعديل: fonts.rar

السلام عليكم: 1 - نقوم بإضافة تجميع حسب أحد الحقول أو نضيف حقل فارغ إلى الجدول و نقوم بالتجميع حسب هذا الحقل. 2- نذهب لخصائص المؤسسة رأس (في مكان المؤسسة نجد اسم الحقل المختار). 3- نغير خاصية تكرار المقطع إلى نعم في التبويب تنسيق.

شكرا لك المزيد موجود بفضل الله تفضل هنا https://www.youtube.com/playlist?list=PL5PD6GA0B7hUkLyg2lxQl0UnLQppmW7QK

بسم الله الرحمن الرحميم الاحوة الكرام السلام عليكم ورحمة الله وبركاته عند الجمع التراكمي بدالة DSum اقوم بجمع كمية الشراء من جدول المشتريات بمعيار حقل المسلسل Id هكذا Total: Nz(DSum("Quantity";"Purchase";"[IdProduct]=" & [IdProduct] & "and [Id]<=" & [Id]);0) يكون الناتج صحيح وعند تنفيذ نفس الامر بمعيار التاريخ Xdate لا يعمل هكذا Total: Nz(DSum("Quantity";"Purchase";"[IdProduct]=" & [IdProduct] & "and [Xdate]<=" & [Xdate]);0) فهل يمكن حل المشكلة لاستيدالها بمعيار التاريخ Xdate ولكم وافر بتحية والسلام عليكم ورحمة الله وبركاته

هذا صحيح لأن اكسس ينتهي من العمل من تضبيط وحساب بيانات راس الصفحة قبل ان يذهب الى قسم التفاصيل (الذي به البيانات) ، ثم الى قسم ذيل الصفحة حيث يلقى مجاميع البيانات جاهزة للعرض جعفر

1. هكذا نسحب عدد المتغيّر المطلوب ، 2. جرب جعفر

سامحوني ان اشارك معكم اليك فونتات للباركود ما عليك الا ان تقوم بعمل نموذج و تقرير وفي مربع نصي للباركود تغير فونت المربع الى احد الفونتات مع رغبتك مع تقدير ALLBarcode_Font.rar

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

اخوي جربها راح تشوف هل راح يفتحها او راح يطبعها مع تقدير تحياتي

تم تعديل المرفق فقط باقى الرسائل الجماعية ان شاء الله قريبا مرفق المراسلة2.rar

السلام عليكم 1) صديقي الغالي استاذ جمال الفار جزاك الله خيراً على التشجيع دائما واسعدني مرورك الكريم 2 ) استاذ جمااااال أ ) بعتذر عن الملف المرفق الذي وضعته في المشاركة رقم 8 حيث اننى وضعت ملف فارغ فيه صفحة النسب فارغة دون الحل والمعادلات التي قمت بشرحها رغم انني كنت انوي ان اضع ملف به حل وتنفيذ ما شرحته في المشاركة ونظراً لاني خارج البيت فعند كتابة اول مشاركة فسوف اضع الملف المرفق. ب ) أخي لو كانت الطريقة هذه مملة فلك ذلك وسيتم تنفيذ المطلوب مباشرةً دون شرح. ج ) في انتظار ردك أخي الكريم...