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

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

تابع الصور

تفضل ربما هذا طلبك اسم المستخدم هناك kanory و 1 الباس للجميع هو 1 ويمكن تعديل اليوزر والباس من خلال النموذج prog_قاعدة البيانات الشهادات المدرسية 02.accdb

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

جرب المرفق بعد التعديل ..... الان لايمكن تعديل اليوزر من نفس اليوزر دون الحاجة للدخول بيوزر اخر كيف يعني تغير في النموذج ...؟؟ ما فهمت عليك ؟؟؟ فصدك تغير التصميم ؟؟؟ prog_قاعدة البيانات الشهادات المدرسية 02.accdb

ادخل باسم اليوزر 1 والباس 1 وعدل بيانات kanory لانه يرفض تعديل اليوزر اذا دخل به

تابع الصور

الأستاذ الفاضل المحترم الخلوق : سليم حاصبيا تحية طيبة ... وبعد فعلا أنا مش عارف أقول إيه لحضرتك على هذا المجهود الجبار الأكثر من رائع بارك الله في حضرتك وزادك الله من فضله ونفعك والأمة العربية جميعًا بعلمك وجعل الله جميع أعمالك في موازين حسنات حضرتك . بقي الطلب الأخير هل ينفع عمل جمع للحسابات ( مدين ودائن ) أمام كل حسب أو عميل في صفحة الداتا Data في الأعمدة F . G بارك الله في حضرتك وجزاك الله كل الخير

مثل ما اشار استاذنا الفاضل جعفر اذا لم تحل المشكله بالحل المقدم من استاذنا جعفر وهو الحل المقدم من مايكروسوفت فقد يكون السبب استخدام اصدارات مختلفة من اوفيس مثل تم عمل القاعدة على اصدار من 2013 واحدث واحد الاجهزة لديه اصدار اقدم لذا ينصح الخبراء بانشاء القاعدة على الاصدار الاقل 2007 الاصدار المحدث اذا كنت ستستخدمها على اصدارات مختلفه وهناك سبب اخر اذا حصل Bad sectors على الهارد وكان جزء من البرنامج على هذا الجزء التالف تحصل هذه المشكله ويمكن التاكد من وجودة التلف عن طريق فتح موجة الاوامر كمسئول اكتب CHKDSK ثم انتر وشاهد النتيجة اذا كان لديك قطاعات تالفة استخدم الامر CHKDSK C:/F للاصلاح فقط او الامر CHKDSK C:/F/R لاصلاح واستعادة ما يمكن من بيانات دائما وابدا استخدام اوامر الدوس وخاصة ما يتعلق باصلاح محركات الاقراص خطيرة لمن لايملك الخبرة الكافية

مشاركة مع استاذي العزيز جعفر اعتقد ان المشكلة ليست بالحروف وانما بالقيم الفارغة Function m_ar(a As Variant) As String If IsNull(a) Then m_ar = "عربي" ElseIf Val(a) < 20 Then m_ar = "عربي" Else m_ar = "" End If End Function وهذه محاولة ارجو ان تكون موفقة

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

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

اخوي ابوخليل ، ظاهرا انك ما لاحظت وجود هذا الحقل المخفي ، واللي يأخذ قيم مربعات سرد "نوع العدد" ، سواء اللي فوق او اللي تحت : . . واستعلامات البرنامج تأخذ قيمها من حقول هذا النموذج ، فمجرد عمل نموذج واجهة آخر لن يجعل البرنامج يعمل ، واذا اردناه ان يعمل ، فيجب عند اختيار اي من الحقول في النموذج الجديد ، ان نرسل القيمة الى الحقل في النموذج القديم (اجعله مفتوح ومخفي) ، ومن ثم نشغل النماذج او التقارير 🙂 لماذا اجعل برامجي تعمل هكذا ؟ حتى لا اعمل عشرات الاستعلامات ، وكل استعلام يعمل لنموذج معين فقط ، بينما بالطريقة هذه ، فمهما عملت من نماذج ، ارسل قيمها لنموذج الواجهة ، ونفس الاستعلام يعمل لجميع النماذج/التقارير ، لأن معيارها هو نموذج الواجهة المفتوح دائما 🙂 جعفر

في هذه الحالة تقوم باستدعائهم على حسب اسم الماكرو عل سبيل المثال نضعهم في زر معين وليكن macro1,macro2,macro3 sub bring all macros() call macro1 call macro2 call macro3 end sub

تفضل جرب هذا الملف قوم بالضغط ضغطه امام اسم الشخص officena.xlsm

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

عسى يكون المطلوب استخلاص غ المكرر.xlsm

تم التعديل كما تريد Sub fILTER_PLEASE() Dim D As Worksheet Dim m%, i%, Rod, RoH% Dim Ft_rg As Range Dim Ar_sh(), itm Dim Cret_range As Range Set D = Sheets("DATA") Set Ft_rg = D.Range("a5").CurrentRegion Rod = D.Cells(Rows.Count, 1).End(3).Row RoH = D.Cells(Rows.Count, "H").End(3).Row With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Application.DisplayAlerts = False For i = Sheets.Count To 1 Step -1 If Sheets(i).Name = "print" Or Sheets(i).Name = "DATA" Then Else Sheets(i).Delete End If Next Application.DisplayAlerts = True taj If Rod < 6 Or D.Cells(6, "H") = vbNullString Then GoTo Bay_Bay_Ya_Helween End If For i = RoH To 6 Step -1 If Not Application.Evaluate("ISREF('" & _ D.Range("H" & i) & "'!A1)") Then Sheets.Add(, after:=Sheets("DATA")).Name = _ D.Range("H" & i) End If Next For i = 1 To Sheets.Count If Sheets(i).Name = "print" Or Sheets(i).Name = "DATA" Then Else ReDim Preserve Ar_sh(m) Ar_sh(m) = Sheets(i).Name m = m + 1 End If Next For Each itm In Ar_sh With Sheets(itm) .Range("A:A").CurrentRegion.Clear .Range("C6") = D.Range("E5") .Range("D6") = D.Range("D5") .Range("E6") = D.Range("B5") .Range("F6") = D.Range("C5") .Range("B:B").EntireColumn.Hidden = True With .Range("A6:F6") .Font.Size = 16 .Font.Bold = True .Borders.LineStyle = 1 .HorizontalAlignment = 3 End With .Range("A:A").ColumnWidth = 10 .Range("C:C,E:E,F:F").ColumnWidth = 25 .Range("D:D").ColumnWidth = 30 .Range("H1") = D.Range("A5") .Range("H2") = .Name .Range("c2") = .Name With .Range("C2") .Font.Size = 18: .Font.Bold = True .Interior.ColorIndex = 6 .Borders.LineStyle = 1 .HorizontalAlignment = 3 End With Set Cret_range = .Range("H1:h2") End With Ft_rg.AdvancedFilter 2, Cret_range, Sheets(itm).Range("C6:F6") With Sheets(itm) .Range("H1:H2").Clear m = .Cells(Rows.Count, 3).End(3).Row .Range("a7").Resize(m - 6) = _ Evaluate("ROW(1:" & m - 6 & ")") .Range("d" & m + 1) = "SUM" .Range("e" & m + 1).Resize(, 2).Formula = _ "=SUM(E7:E" & m & ")" .Range("D" & m + 1).Resize(, 3) _ .Interior.ColorIndex = 24 .Range("D" & m + 2) = "TOTAL" .Range("E" & m + 2) = _ .Range("E" & m + 1) - .Range("F" & m + 1) .Range("D" & m + 2).Resize(, 2) _ .Interior.ColorIndex = 35 With .Range("A7").Resize(m - 4, 6).SpecialCells(12) .Font.Size = 16 .Font.Bold = True .Borders.LineStyle = 1 .InsertIndent 1 .Columns(1).HorizontalAlignment = 3 End With End With Sheets(itm).Range("C6").CurrentRegion.Value = _ Sheets(itm).Range("C6").CurrentRegion.Value Next itm D.Select If D.FilterMode Then D.ShowAllData Bay_Bay_Ya_Helween: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .CutCopyMode = False End With End Sub Issa_New.xlsm

تذكير : حاول دائما رفع آخر نسخة تم التعديل عليها من قبلي او من غيري ، هذا من اجلك حتى يكون التطوير تراكمي تم التعديل على نسخة 2007 مشكلة ظهور بعض العناصر فوق الإطار حلها سل جدا وهو ان آخر عنصر يتم اضافته او قصه ثم لصقه يكون له الأولوية في الظهور فوق العناصر الأخرى ، لنترك حل التحايل ونعمل على غيره الحلول كثيرة : منها ان نتعامل مع العناصر من خلال الكود عنصر عنصر ومنها ان نخصص للمستخدمين الآخرين فورم خاص وهذا ما عملته لك في المرفق ادناه Data5.rar

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

للاسف لا يمكن التعديل او الاضافة في مثل هذا استعلام تحياتي

بارك الله بك ولك المعادلات المرفقة تفي بالمطلوب جزاك الله كل الخير أخي الكريم أ. سليم حاصبيا

السبب لا يمكن التعديل او الاضافة في مثل هذا استعلام تحياتي

وعليكم السلام ورحمة الله وبركاته جرب اخي الكريم واخبرني بالنتيجة Database3.rar تحياتي

اخبرني احد الأخوة أن المرفق لا يعمل ويبدو وكانه فيرس سأقوم بتحميل المرفق بصيغة accdb أشكر أخوتي أ/ @kanory و أ/ @abouelhassan علي مروهم الكريم وكلماتهم الطيبات ولا انسا تقديم الشكر للأستاذ أحمد عبدالمنعم صاحب هذا الفيديو فقد كان من المصادر الهامة أيضا هذا MenuAndShortCutMenu.accdb

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

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

وعليكم السلام ورحمة الله وبركاته ان شاء الله يكون هذا المطلوب وعليك النسخ واللصق لبقية الاعمدة استبيان.xlsx

عمل رائع يخدم الناس حفظك الله اخي

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

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

تأكد من ارتباط النوذج الفرعي بالرأيسي

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

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

ضع هذا في حدث الفورم خاص لتعبئة تيكسبوكس53 اخر خلية العمود 1 sheet1 Private Sub UserForm_Initialize() Dim lr With Sheets("Sheet1") lr = .Cells(Rows.Count, 2).End(xlUp).Row TextBox53.Value = .Range("b" & lr).Offset(, -1) End With End Sub وهذا في حدث الشيت1 لادراج مسلسل Private Sub Worksheet_Change(ByVal Target As Range) Dim lr lr = Cells(Rows.Count, 2).End(3).Row If Intersect(Target, Range("a" & lr)) Is Nothing Then Range("a11:a" & lr).Formula = "=IF(B11="""","""",SUBTOTAL(103,$B$11:B11))" End If End Sub yousef (1).xlsb

بارك الله بك وجعله في ميزان حسناتك

جرب المرفق التالي واعلمني بالنتيجة kan_mosnad.accdb

مشاركة مع اساتذتي الاجلاء تفضل هذه المحاولة ارجو ان تكون موفقة SortNass.rar

بفرض ان لدينا نموذج به مربع نص اسمه NewDefult و زر اسمه ChangeDefult ونريد عند الضغط على زر ChangeDefult أن يقوم بتغيير القيمة الافتراضية لحقل Price الموجود فى جدول Products وجعل القيمة الفتراضية مساوية للقيمة الموحودة فى مربع النص NewDefult نفوم بكتابة هذا الكود فى حدث Click للزر ChangeDefult Private Sub ChangeDefult_Click() Dim TAbleName As String Dim FieldName As String TAbleName = "Products" FieldName = "Price" CurrentDb.TableDefs(TAbleName).Fields(FieldName).DefaultValue = Me.NewDefult End Sub