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

السلام عليكم بالفعل فكرة ممتازة ، ولكن: للأسف الشديد ، الكثير من المبرمجين يعتمدون على حقل الرقم التلقائي في ربط حقول الجداول ، مع ان حقل الرقم التلقائي المُفهرس لا يجب استخدامه إلا للاكسس ، لا للمبرمج ولا لبرنامجه ، لذلك ، فنقل البيانات من جدول الى آخر ، فإن حقل الرقم التلقائي سيلخبط البيانات والعلاقات بين الجداول انا في برامجي ممكن استفيد من هذه الفكرة ، فحقل رقم التسلسل الذي استخدمه لا علاقة له بحقل الرقم التلقائي جعفر

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

لازلت مرفوع من الخدمه مؤقتا لعدم توفر الامكانيات التى تساعدنى على اتمام العمل ولازلت اذكركم الصبـــر وبشر الصابرين ان شاء الله تعالى فى القريب العاجل جدا جدا جدا ازف اليكم البشارة والمفاجأة الساره

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

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

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

كالعادة عم اطلب ان ترفع مع شروحاتك ....... وشكرا لك على هذا الشرح الجميل تحياتي

السلام عليكم ورحمة الله تفضل اخى الكريم 1.rar

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

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

اتفضل المطلب الاول 1- يقبل القواعد الجديده والتي بامتداد accdb last_compare 2.rar

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

السلام عليكم ورحمة الله وبركاته اخواني الكرام عندي مشروع انني اعمل ارشفة الكترونية للوثائق في الادارة تبعنا فكرة الارشفة انني اضع اسماء ١- الموظفين ٢- رقم الهوية الوطنية الخاصة بهم ٣- وثائق الخاص بكل موظف الوثائق هي تكون ادخالها من الماسح الضوئي او استعراضها من الكمبيوتر وادراجها على الاكسس ليتم البحث عنها بٲسم الموظف او رقم الهوية ليتم طباعتها لاحقاً اما جميع الوثائق او اختيار مجموعة معينه من الوثائق على كامل الصفحة ٤- الوثائق لابد من تصنيفها بمجموعات مثلاً ( صورة رقم الهوية الوطنية ، صورة الشهادة الجامعية ) المشكلة انني لا اعرف كيف يتم ادخالها في الاكسس مع الانتباه ان الوثائق تكون اكثر من ١٠ وثائق للموظف هل هذه العملية تثقل برنامج الاكسس ارجوا من الله ثم منكم مساعدتي في عمل هذا حل او اي نصيحة لعمل هذا البرنامج للعلم انني مبتدىء لحد الان في برنامج الاكسس

الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين ، وقال {وَوَصَّى بِهَا إِبْرَاهِيمُ بَنِيهِ وَيَعْقُوبُ يَا بَنِيَّ إِنَّ اللّهَ اصْطَفَى لَكُمُ الدِّينَ فَلاَ تَمُوتُنَّ إَلاَّ وَأَنتُم مُّسْلِمُونَ} نحمده تعالى وهو الرب الجليل ، الهادي إلى سواء السبيل ، الذي لا يخفى عليه الكثير ولا القليل ، وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جاء بالحق المبين ، فكان رحمة للعالمين ، صلى الله عليه وعلى آله واصحابه وسلم تسليماً كثيراً . طلب مني أحد الأخوة تطوير برنامج الشيكات الإصدار الأول الذي تم طرحه مسبقا علي الرابط وبحمد الله تم اضافة بعض وظائف البرنامج وشاشة تقارير حسب جهة الصرف او بين تاريخين مع الطباعة وتم تعديل الشيك حسب قرار وزارة المالية كما ورد بطلب الاخ الكريم شرح مبسط للفورم الملف بالمرفقات الشيكات الأصدار الثاني.rar

‏‏السبت‏، 28‏/10‏/1430هـ الموافق ‏17‏/10‏/2009م السلام عليكم و رحمة الله وبركاته هذه فكرة برنامج اقساط جاري تنفيذها تستطيع الإختيار بين تحديد عدد الشهور - اذا سوف يتم توزيع المبلغ المتبقي على عدد الشهور تحديد قيمة القسط الشهري - اذا سوف يتم تقسيم المبلغ المتبقي على القسط الشهري = عدد الشهور 1-تم عمل قائمة منسدلة تشمل اسماء العملاء ليتم اختيار اسم العميل منها 2-اكتب في الخلايا الصفراء فقط و لا تكتب في الخلايا الحمراء 3-تم عمل التحقق من صحة للخلايا التي لايجب الكتابه فيهااذا ادخلت تاريخ هجري لن تستطيع الكتابة في خانة تاريخ ميلادي الا بعد مسح بيانات التاريخ الهجري و كذلك العكس صحيحاذا ادخلت قيمة القسط الشهري لن تستطيع الكتابة في خانة عدد الأقساط و كذلك العكس صحيح 4-تم عمل حماية للورقة بحيث يمكنك التنقل بين الخلايا المسموح بالكتابة بها ولا يمكن الوقوف على أي خلية غير مخصصة للكتابةبدء العمل على ورقة حفظ بيانات الأقساط 1_توزيع_الأقساط_ومتابعتهاQest.rar

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

ريما يعجبك هذا الملف اذا كانت الخلية فارغة تستطيع ان تكتب فيها ما تشاء(دون دوبل كليك) واذا لم تكن فارغة يتطلب ذلك الاذن بواسطة كلمة المرور(موجودة بالملف و يمكنك حذفها بعد معرفتها) كل ذلك فقط بالجدول من H9:J33 Protect_Me.rar

استاذنا ابو خليل الله يعطيك الف عافيه صحيح ضبط حجم الشريحه هو كان السبب وتم ضبطه واشتغل الف الف شكر يالغالي

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

Private Sub Alhasm_AfterUpdate() Me.نص32 = Me.Alhasm / Me.n1 End Sub اتفضل مع القاعدة عملت فقط في فاتورة شراء اكمل الباقي برنامج مخزون.rar

شغال بدون اى رسائل خطأ ok_تطويع فورمة.zip

بحاول اعمل برنامج فى القيمة الرأسمالية

اى تعديل تريده ربنا يقدرنى

تفسير هذا النص يعني أنك لا يمكن استخدام DoCmd.Openform مباشرة لفتح النموذج ولاكن من داخل الوظيفة.. أما استخدامه كواجهة رئيسية فهذا راجع لك!

كل شكر والتقدير 100% بارك الله فيك ..........

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

تفضل يا أخى أسف على التأخير عليك okk_تطويع فورمة.zip

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

جزاكم الله خيرا شرح رائع جدا جدا

......

وفقكم الله

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

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

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

اخى الكريم فضلا وكرما وليس امرا ارفق قاعدة حتى تيسر على من يريد مد يد العون

غدا ان شاء الله راح القي نظرتا الى طلبك

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

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

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

بارك الله فيك وفينا اجمعين

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

لا يمكن أن تعيد Enum قيما نصية للأسف.. لكن لها شقيقة تدعى Type تقوم بتعريف البيانات التي تستقبلها وتعيدها ولكي نطوعها للعمل كسابقتها نحتاج إلى عدة خطوات.. إليكم الخطة سوف نقوم أولا بتعريف البيانات كما يلي Type T_MonthNames Jan As String Feb As String Mar As String Apr As String May As String Jun As String Jul As String Aug As String Sep As String Oct As String Nov As String Dec As String End Type كما أشرت سابقا يمكن تعريف المطليات ونوع البيانات حسب متطلباتكم.. نحن هنا بحاجة إلى معطيات تحمل قيم نصية هي أسماء الشهور فقط. إذا بعد تعريف المعطيات نحن بحاجة إلى إسناد البانات لهذه المطيات.. ولهذا الغرض سوف نقوم بإنشاء وظيفة ونعرف بياناتها من نوع T_MonthNames التي أنشأنها للتو كما يلي Function MonthName() As T_MonthNames '-- هذه البيانات كمثال '-- أكمل إسناد البيانات إذا أردت MonthName.Jan = "يناير" MonthName.Feb = "فيبراير" MonthName.Mar = "مارس" MonthName.Apr = "أبريل" End Function في نافذة التنفيذ السريعة يمكنكم تجربة الوظيفة كمايلي ? MonthName.Apr 'سوف تعيد شهر أبريل إليكم المثال T004.zip

السلام عليكم ورحمة الله وبركاته فضلاً مراجعة المرفق تحياتي ranger.rar

بارك الله فيك

بالعكس ، انا دائما اقول: جعفر

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة تم ارفاق كود الحل من الفاضل ا / أبوعبد الله مرفق الملف CHEQUES PROGRAM.rar و لا تنسونا من صالح الدعاء تحياتى

الســـــــــــــلام عليكم ورحمة الله تعالى وبركاته اولا انا اول مرة اشارك فى هذا القسم وهذا بسبب جهلى فى الاكسل ولكن اعجبنى العنوان فقررت الدخول من باب حب الاستطلاع ولكـــــــــــــــــــــــــــــــــن Module1 Option Explicit Public IdleTime As Date Private Sub DeleteAllVBA() 'NOTE: The Following Procedures Run Every 5 Seconds, So We Want Execution Time 'To Be As Short A Time As Possible So That They Doesn't Interfere Unduly With Normal 'Workbook Operation, So Delete All Comments, Indenting, And Blank Lines In These 'Three Procedures When Finished. '------------------------------------------------------------------------------------ With ThisWorkbook If Sheet1.[A1] = "123" And .BuiltinDocumentProperties("Comments") = "123" Then 'In This Case Both Passwords Are Entered Correctly, So 'The Timer And The Rest Of This Procedure Are Redundant Run "DisableTimer" Exit Sub Else If .VBProject.Protection = 0 Then 'Unlocked Run "DisableTimer" 'Use Late Binding So No GUID Reference Is Needed Dim Component As Object 'Delete All VBA For Each Component In .VBProject.VBComponents With Component.CodeModule .DeleteLines 1, .CountOfLines End With Next Component 'Save And Close To 'Fix' The Changes .Save MsgBox "Sorry! An Incorrect Password Was Entered - All VBA Code Deleted - Re-enter Password To Check...)" Workbooks.Open (.FullName) '< Open 2nd Instance Of Saved Book .Close '< Close The 1st Instance Else 'Restart The Timer If The Project's Locked Run "StartTimer" End If End If End With Exit Sub End Sub Private Sub StartTimer() 'This Procedure Interferes With Work In The VBE If Accidentally Set Running, 'So We Disable It So The Developer Can Work There Uninterrupted... If Sheet1.[A1] = "123" And ThisWorkbook.BuiltinDocumentProperties("Comments") = "123" Then Exit Sub '<< Set Your Own Idle Time Below >> IdleTime = Now + TimeValue("00:00:05") Application.OnTime IdleTime, "DeleteAllVBA" End Sub Private Sub DisableTimer() On Error Resume Next Application.OnTime EarliestTime:=IdleTime, Procedure:="DeleteAllVBA", Schedule:=False End Sub ThisWorkbook Option Explicit Private Sub Workbook_Open() 'Test To Ensure Access Is Allowed (For 2002 Onward) If Application.Version > 9 Then Dim VisualBasicProject As Object On Error Resume Next Set VisualBasicProject = ActiveWorkbook.VBProject If Not Err.Number = 0 Then MsgBox "Your Current Security Settings Do Not Allow The Code In This Workbook " & vbNewLine & _ " To Work As Designed And You Will Get Some Error Messages." & vbNewLine & vbNewLine & _ "To Allow The Code To Function Correctly And Without Errors You Need" & vbNewLine & _ " To Change Your Security Setting As Follows:" & vbNewLine & vbNewLine & _ " 1. Select Tools - Macro - Security." & vbNewLine & _ " 2. Click The 'Trusted Sources' Tab" & vbNewLine & _ " 3. Place A Checkmark Next To 'Trust Access To Visual Basic Project.'" & vbNewLine & _ " 4. Save - Then Close And Re-open The Workbook", vbCritical End If End If 'Disable The Esc Key And Start Timer Application.EnableCancelKey = xlDisabled Run "StartTimer" End Sub 'All Subs And Event Procedures Should Have Run "DisableTimer" At The Head 'Of The Code And Run "StartTimer" At The End As Per The Examples Below. Private Sub Workbook_SheetCalculate(ByVal Sh As Object) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Run "DisableTimer" Run "StartTimer" End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Run "DisableTimer" End Sub