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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

السلام عليكم أرجو أن يكون هذا هو المطلوب New Microsoft Access قاعدة بيانات.rar

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

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

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

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

لم أعد أجرؤ أن أرفع بدون ملف الشرح لكن رابط تحميل ملف الشرح أسفل الفيديو مباشرة فى الوصف وفقك الله أخى شيفان الرابط المباشر لتحميل ملف الشرح https://drive.google.com/open?id=0Bw4O7dVd4FBfaF9KeVZydTE4T2s

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

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

هل لكم فيما هو أبسط من ذلك نكرر أمر ال inputbox حسب الحاجة مثلا inputbox لإدخال الصف inputbox لإدخال الفصل

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

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

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

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

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

......

وفقكم الله

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

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

اتفضل ان شاء الله يكون ده المطلوب الاجازات.rar

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

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

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

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

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

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

إذا كان المجلد يحتوي صور فقط .. فهذه الشفرة بعد التعديل Function GetImage(imageName As String) Dim ImagePath As String ImagePath = CurrentProject.Path & "\img\img\" GetImage = ImagePath & Dir(ImagePath & imageName & "*") End Function اكتب اسم الملف بدون اللاحقة.. أو اكتب جزء من اسم الملف.. أو لا تكتب شيء! سوف يعيد اسم أول ملف!

المعذرة لم أتمكن من إكمال المشاركة السابقة لعدم استجابة المتصفح للتحرير 2- إنشاءالوظيفة ()IsMonth وهي تعود بقيمة منطقية، وتستقبل أيضا متغير يعود بقيمة عددية من خلال الحاوية التي أنسأنها 3- يوضح هذا المقطع مستعرض المراجع؛ وهو هنا يسرد قيم الحاوية التي أنشانها 4- هي لنافذة التنفيذ السريعة ويمكن من خلالها فحص الوظفة السابقة ومدى استجابة المحث بسرد قيم حاوية أسماء الأشهر.. يجب أن تظهر هذه القيم عند كتابة الوظيفة وبعد كتابة القوس الأيسير. وهذا مثال للتوضح 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

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