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

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

السلام عليكم جرب الكود التالي في حدث ورقة العمل 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 بالتوفيق

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

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

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

ظهرت عندي مصغرة عند الساعة .. نظام تشغيلي ويندوز 8 64bit مع اوفيس 2007 عربي .. وتمت التجربة بنجاح ايضاً على ويندوز 7 32bit مع اوفيس 2003 انجليزي

لدى نموذج لسداد مصاريف الطلاب اريد بمجرد كتابة كود الطالب يظهر اسم الطالب

اخي الكريم ما الفائدة من اخفاء الكومبوبوكس ؟؟؟ (طبعا هذا هو سبب رسالة الخطا ) اما بالنسبة الى فتح النموذج الثاني عند النقر على الاسم استخدم هذا الكود DoCmd.OpenForm "frm-general", , , "[surname]'=" & Me.SurName & "'"

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

حياك الله اخي حسين

تفضل اخي الفاضل https://drive.google.com/file/d/0B5oTVOnhU-rrOFhDOHFxN2c2T1k/view?usp=sharing

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

ما تريد اخي ابو عبدالله ما فهمت شيء من قاعدة بيانات المشاركتك الماضية هل تريد شي اخوك شفان ريكاني

اتفضل اليك هذا لحقل شهر 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

اعتقد ان الجزئية الثانية ممكن تطبق عن طريق الحلقة Do Until Condition --- Loop لكن امكانياتى لا تسمح بتطبيقها اما التصغير بجوار الساعة تم تطبيقها بالفعل ولكن لا تعمل بالشكل الصحيح وكلها اخطاء تشرفت بمرورك

فى حال كان التقرير بالعرض نغير مقاس ارتفاع الورقة إلى 21 و هو عرض ورقة a4 هذا للفائدة

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

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

وعليكم السلام جرب الكود التالي ..ضع ما تريد من أكواد مكان سطر التعليق في الكود Sub LoopThroughClosedWBs() Dim wbk As Workbook Dim folderPath As String Dim fileName As String Dim founter As Double folderPath = ThisWorkbook.Path & "\" fileName = Dir(folderPath & "*.xl*") Application.ScreenUpdating = False Application.Calculation = xlManual Do While fileName <> "" If fileName <> ThisWorkbook.Name Then Set wbk = Workbooks.Open(folderPath & fileName) With wbk.Sheets("Sheet1") 'Your Stuff End With wbk.Close SaveChanges:=True End If fileName = Dir() Loop Application.Calculation = xlAutomatic Application.ScreenUpdating = True MsgBox "Finished ...", 64 End Sub

أخي عبد الفتاح أشكرك على عودتك و اهتمامك مرة اخرى انظر المرفق لايوجد فيه جمع لأي من الحدود ولكن الجمع يكون للدرجات في النموذج الفرعي واظهاره في نموذج الرئيسي لكل طالب الجمع فقط للدرجات مع كل احترامي وتقديري بانتظارك 623.stu new.rar

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

السلام عليكم ورحمة الله استبدل هذا السطر : If c > 1 And ws.Range("BH" & LS) <> "" Then بهذا السطر : If c > 1 And ws.Range("BH" & LS) <> "" And ws.Range("BI" & LS) = sm.Range("F1") Then

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

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

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

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

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

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

السلام عليكم لقد أضفت جميع أنواع وسيطات الرسائل هنا في هذا الدرس:

السلام عليكم أصل هذا الموضوع هنا أحببت أن أفرد الرد فى موضوع مستقل لنستفيد جميعا إن شاء الله و هو يختص بكيفية المحافظة على الترتيب داخل جدول حسب حقل المعرف فى حال حذف أحد السجلات و هذا هو الكود المستخدم Option Compare Database Private Sub Form_Current() If Me.NewRecord Then Dim MySQL As String, MyDB As DAO.Database, rst1 As DAO.Recordset Dim rst2 As DAO.Recordset MySQL = "Select [DashNum] From tblTest Order By DashNum;" Set MyDB = CurrentDb() Set rst1 = MyDB.OpenRecordset(MySQL, dbOpenSnapshot) Set rst2 = rst1.Clone rst1.MoveFirst: rst2.Move 1 'move to the 2nd Record in rst2 Do While Not rst2.EOF 'If the difference between 2 consecutive Dash Numbers is not 1, since 'they are ordered, this would indicate a gap in sequence If rst2![dashnum] <> rst1![dashnum] + 1 Then Me.dashnum = rst1![dashnum] + 1 rst2.Close rst1.Close Set rst2 = Nothing Set rst1 = Nothing Exit Sub End If rst1.MoveNext rst2.MoveNext Loop rst2.Close rst1.Close Set rst2 = Nothing Set rst1 = Nothing End If End Sub المحافظة على الترتيب.rar

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

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

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

اتفضل اخي محمد استخدمت هذا الكود 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

هل تريد العمل على الملف شهرى ام سنوى ؟ هل الموردين اسامى ثابتى ام متغيرة باستمرار هل لكل مورد حساب جارى ؟ ( يعنى بتسحب منه مهمات وتقفلها فى اخر الشهر فى فاتورة ) ولا حسابات الموردين نقدية ( الدفع عند استلام المهمات ) ؟ برجاء التوضيح

السلام عليكم هذه المرة مع ملف الشرح لأجل الأخ شيفان حمل ملف الشرح من هنا https://drive.google.com/file/d/0Bw4O...بهذا الملف جلب أسماء و مسارات الملفات لمجلد معين متضمنا المجلدات الفرعية لأعمق مستوى فتح موقع الملف – المجلد الموجود فيه-ز البحث فى أسماء الملفات و المجلدات فتح أى ملف من نفس الموضع داخل أكسيس تخزين أسماء الملفات فى جدول أكسيس يمكن تصديره و استخدامه كود استخلاص مسار المجلد من مسار الملف متضمنا شرحا لدالتى instr و instrrev و الفرق بينهما و كذلك شرح دالة left

السلام عليكم فيديو لشرح إضافة وظيفة فىvba

بسم الله الرحمن الرحميم الاحوة الكرام السلام عليكم ورحمة الله وبركاته عند الجمع التراكمي بدالة 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 ولكم وافر بتحية والسلام عليكم ورحمة الله وبركاته

مع الحقول التواريخ بيستخدم "#" مع المعيار اي سيكون المعيار الاعلى هكذ واحيانا لازم نستخدم دالة فورمات مع تاريخ لكي يحدد نوع التاريخ [Xdate]<=#" & [Xdate] &"#" تحياتي

الفكرة الجديدة هي: خلينا نستعرض كل صفحة ونشوف نتيجة الجمع اسفل الصفحة ، ولما نشوف نتائج كل صفحة ، خلينا نحفظ هذه المعلومة في مكان ما (انا استعملت Array ، ولكن يمكن استعمال جدول مؤقت كذلك) ، وعلشان نستعرض كل صفحة ، فيجب استعراضها يدويا ، او طباعة التقرير ، انا طبعت التقرير بصيغة rtf (فحصلت على مجموع كل صفحة في Array ، ثم حذفت ملف rtf المؤقت ، ثم اعرض التقرير بطريقة عادية ، وتكون النتائج في رأس الصفحة ولكن يجب عليك فتح التقرير عن طريق النموذج علشان هذا العمل ، لازم تكون عندنا وحدة نمطية للإحتفاظ بالقيم ، الرقم 100 معناه 100 صفحة تقرير (يعني انا كتبت رقم كبير ، واذا تقريرك فيه صفحات اكثر ، فرجاء تكبير الرقم): Option Compare Database Public A1(100), B1(100), C1(100) وكود جمع البيانات كما عملناه سابقا ، بالاضافة الى إضافة النتائج الى Array : Option Compare Database Private A, B, C As Integer Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) If Me.Sec = "الاستقبال" Then A = A + 1 ElseIf Me.Sec = "الصيانه" Then B = B + 1 ElseIf Me.Sec = "المطبعه" Then C = C + 1 End If End Sub Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer) Me.txt_A = A A1(Me.Page) = A Me.txt_B = B B1(Me.Page) = B Me.txt_C = C C1(Me.Page) = C A = 0 B = 0 C = 0 End Sub Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer) On Error GoTo err_PageHeaderSection_Print Me.txt_A1 = A1(Me.Page) Me.txt_B1 = B1(Me.Page) Me.txt_C1 = C1(Me.Page) Exit Sub err_PageHeaderSection_Print: If Err.Number = 9 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 576.الجمع بشرط فى تقرير.accdb.zip

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

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

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

كود بسيط لهذا الغرض Sub xx() Columns.Hidden = True Range("a1,c1,e1,j1,o1,z1").EntireColumn.Hidden = False End Sub

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

تفضل آمل ان يحقق مطلبك Private Sub A_AfterUpdate() If (DLookup("B", "tbl1", "B=form!B")) Then MsgBox "هذا السجل مكرر " Undo End If End Sub Private Sub B_AfterUpdate() If Not IsNull(DLookup("A", "tbl1", "A=form!A")) Then MsgBox "هذا السجل مكرر " Undo End If End Sub NoDuplicates.rar