rudwan

أخي الكريم نأسف لتلبية الطلب كون المنتدى لم يخصص لذلك راجع الرابط التالي http://www.officena.net/ib/index.php?showtopic=23060 - الحل الوحيد أمامك هو البحث في قسم الأمثلة و التطبيقات في الأرشف ففيه العديد من الأمثلة و البرامج و التطبيقات

جار العمل على معالجة مشكلة المرفقات حيث تحميل المرفقات لايعمل حاليا حاول مؤقتا رفعه الى أحد مواقع التحميل

الى أن يتم حل مشكلة الملفات أنشأ جدولا اسمه Serial يكون فيه حقل اسمه Number أنشأ نموذجا فيه مربعي نص StartNO - EndNo و زر أمر ضع فيه الكود التالي عند حدث النقر On Error GoTo Err_Command9_Click Dim I As Long Dim Sql As String Dim K As DAO.Recordset Set K = CurrentDb.OpenRecordset("Serial") If K.BOF = False Then K.MoveFirst Do Until K.EOF K.Delete K.MoveNext Loop End If For I = 0 To (EndNo - StartNo) K.AddNew K![Number] = StartNo + I K.Update Next K.Close Exit_Command9_Click: Exit Sub Err_Command9_Click: MsgBox Err.Description Resume Exit_Command9_Click قم بتعبئة أول رقم شيك و آخر رقم شيك ثم اضغط زر الأمر الآن اذهب الى الاستعلامات : جديد ( و قبل كلمة موافق ) - اختر آخر أنواع الاستعلامات - استعلام القيم المفقودة اختر أولا جدول Serial ثم اختر جدول الشكيات و ليكن الرابط على حقل الرقم في كلا الجدولين بتشغيل الاستعلام ستظهر لك باذن الله القيم المفقودة لآرقام الشيكات

انسخ الكود التالي في وحدة نمظية جديدة Private Type BROWSEINFO hOwner As Long pidlRoot As Long pszDisplayName As String lpszTitle As String ulFlags As Long lpfn As Long lParam As Long iImage As Long End Type Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long Private Const BIF_RETURNONLYFSDIRS = &H1 Public Function BrowseDirectory(szDialogTitle As String) As String On Error GoTo Err_BrowseDirectory Dim X As Long, bi As BROWSEINFO, dwIList As Long Dim szPath As String, wPos As Integer With bi .hOwner = hWndAccessApp .lpszTitle = szDialogTitle .ulFlags = BIF_RETURNONLYFSDIRS End With dwIList = SHBrowseForFolder(bi) szPath = Space$(512) X = SHGetPathFromIDList(ByVal dwIList, ByVal szPath) If X Then wPos = InStr(szPath, Chr(0)) BrowseDirectory = Left$(szPath, wPos - 1) Else BrowseDirectory = "" End If Exit_BrowseDirectory: Exit Function Err_BrowseDirectory: MsgBox Err.Number & " - " & Err.Description Resume Exit_BrowseDirectory End Function الآن ضع الكود التالي في حدث عند النقر لزر أمر ليضع مسار المجلد في مربع نص اسمه : tbDirectoryName On Error GoTo Err_bBrowse_Click Dim sDirectoryName As String ' Me.tbHidden.SetFocus sDirectoryName = BrowseDirectory("Find and select where to export the report files.") tbDirectoryName = sDirectoryName Exit_bBrowse_Click: Exit Sub Err_bBrowse_Click: MsgBox Err.Number & " - " & Err.Description Resume Exit_bBrowse_Click

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

الأخ الكريم تابع سؤالك في نفس موضوعك الأول و لاتقم بانشاء مواصيع متكررة مع التحية

بانتظار حل مشكلة المرفقات

بانتظار حل مشكلة تحميل المرفقات ليتم فهم الموضوع من خلالها حيث المطلوب غير واضح

هذا مثال على رقم مسلسل جديد لكل سنة يمكنك تعديله ليكون حسب كل شهر DiffYearSerial.rar

السلام عليكم و رحمة الله و بركاته هذا القسم مخصص لعرض البرامج و الأمثلة التي يقدمها أعضاء منتدانا الغالي من مجهوداتهم الشخصية السخية فتفصل و شارك و اعرض ماتملك من أمثلة حتى و لو كانت بسيطة عسى أن يكون فيها تشجيعا للكل , و نتمنى أن تمتلىء هذه الصفحة بالمزيد و المزيد منها برنامج ثوابي للمخازن و الحسابات برنامج محاسبة الجمعيات السكنية برنامج محاسبي مبسط برنامج تنمية مهارات تعلم الانكليزية برنامج حساب الوقت و العمل اليومي برنامج جميعة و أقساط و قروض و أسهم- كمال النحال برنامج التعاميم - AT-AZIZ برنامج خلط أوراق المتسابقين - عبد الله الثبيتي برنامج مخازن - ياسر سوري

جزاك الله خيرا أخي منذر على هذا الاستدارك المهم

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

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

هذا مثال بسيط عما أردت تم تعريف مستخدمين في جدول USERS و مجموعة الصلاحيات في جدول SecLevels قم أولا بتحديد مجموعات الصلاحيات حسب التريب الأبجدي أي الأقل صلاحية في المجموعة رقم 1 , ثم الأعلى رقم 2 و هكذا الآن قم في جدول المستخدمين بتحديد مجموعة كل مستخدم افتح البرنامج تظهر لك شاشة الدخول ادخل برقم أي مستخدم من A الى D و كلمة السر من 1 الى أربعة بعد ادخال بيانات صحيحة لاسم الميتخدم و كلمة السر سيفتح لك نموذج CATIGOREIS المستخدم الذي مجموعته 1 يحق له الاضافة فقط و المستخدمون الذين صلاحياتهم أعلى سيتم اختبار فيما اذا تم التعديل سابقا من قبل مستخدم صلاحيته أعلى أم لا و سيسمح له بالتعديل أم لا Sec.rar

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

ضع في معايير الاستعلام المعادلة التالية Like "*" & [Enter Search Creteria] & "*"

أشكرك أخي علاء على رحابة صدرك و سعة علمك و لطف أخلاقك و مرحبا بك دائما في منتدانا أخ كريم و عالم خبير تحياتي

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

السلام عليكم اطلع على الموضوعين التاليين ففيهما فائدة ان شاء الله حماية قاعدة البيانات من الحذف حماية القاعدة من النسخ

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

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

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

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

بالنسبة لسؤالك عن تغيير الخلفية حاول الاستفادة من المثال التالي http://www.officena.net/ib/index.php?showt...amp;#entry48622

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