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

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

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

الدالة الغبية والدالة العبقرية الدالة () DLookup والدالة () ELookup هل تصدق ان هناك دالة غبيه قد تستغرب ان اقول لك انها دالة () DLookup والكل منا يعرفها ويعرف استخداماتها فهي ببساطة تعيد او تسترجع قيمه واحدة من الجدول . عيوبها : 1. تعيد اول قيمة فقط تم وضعها في الدالة في عملية البحث . 2. لا تستطيع بإي حال من الاحوال اعادة الحقل المفهرس . 3. قد تحصل على نتائج متناقضة ومتقلبة حتى من نفس نوع البيانات التي تبحث عنها اذا كان لا يوجد مفتاح اساسي في الجدول وقمت بعملية ضغط قاعدة البيانات . ( جرب بنفسك وأنظر النتائج الغبية التي تعطيك هذه الدالة ) . 4. اداء هذه الدالة سيئ للغاية فهو لا يقوم بمسح ما تم البحث عنه سابقا ويفترض ان تكون القيم خالية بعد عملية كل بحث . 5. ظهور العديد من الاخطاء والرسائل من الاكسيس عندما تكون القيم خاليه . الدالة () ELookup العبقرية هل احد منكم سمع عن هذه الدالة ( دالة جديده تم اختراعها ) لنرى إمكانات هذه الدالة 1. قمة في الاداء والابهار والقوة والمتانة والمرونه . 2. تسمح لك بتحديد اي نوع من البيانات ولا تتقيد يحقول معينه . 3. تسمح لك بإستخدام الاقل MIN والاعلى MAX من القيم . 4. بعد عملية البحث والبدء بعملية استخدام جديده تجد القيم خالية وجاهزة لتقبل اي امر . 5. اسرع من الدالة () DLookup بعشر مرات . 6. قد ترغب في تعديل مسار البحث قبل استعمال الدالة فتستطيع ذلك بدون ظهور رسائل MsgBox لكل صف . 7. تقوم هذه الدالة بتمييز وتحسس ومعرفة ان هذا الحقل Zzero-length( طول صفري ) او خالي من البيانات Null . 8. اذا استخدمت في الاستعلامات فأنظر الى النتائج الباهره حتى لو استخدمت معها اربعة معايير مختلفه . قد يكون عيبها الوحيد انها تحتاج الى مكتبة DAO وهذا ليس بعيب ولكن لانها ليست من دوال برنامج الاكسيس . امثلة على طريقة استخدامها 1. ايجاد القيمة الاخيرة متضمنة الـ DESC ELookup("[Surname] & [FirstName]", "tblClient", , "ClientID DESC") اذا رغبت في اضافة حقول اضافية قم بالاضافة فهي تقبل جميع الحقول ولا تقتصر على حقل معين 2. ايجاد القيم الاقل الغير خالية Null بإستعمال المعايير ELookup("ClientID", "tblClient", "Surname Is Not Null" , "Surname") واليكم الدالة الجباره بكل معنى الكلمة ويفضل مقارنة نفس النتائج مع الدالة السابقة لتروا الفرق كل ما عليك هو وضعها في وحدة نمطية ومن ثم استخدامها سواء في النماذج او الاستعلامات او التقارير او الماكرو . Function ELookup(Expr As String, Domain As String, Optional Criteria, Optional OrderClause) On Error GoTo Err_ELookup ' DAO ملاحظة: تحتاج الى مرجع مكتبة Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSql As String 'بناء جملة الاستعلام strSql = "SELECT TOP 1 " & Expr & " FROM " & Domain If Not IsMissing(Criteria) Then strSql = strSql & " WHERE " & Criteria End If If Not IsMissing(OrderClause) Then strSql = strSql & " ORDER BY " & OrderClause End If strSql = strSql & ";" 'البحث عن القيم Set db = DBEngine(0)(0) Set rs = db.OpenRecordset(strSql, dbOpenForwardOnly) If rs.RecordCount = 0 Then ELookup = Null Else ELookup = rs(0) End If rs.Close Exit_ELookup: Set rs = Nothing Set db = Nothing Exit Function 'zahrah Err_ELookup: MsgBox Err.Description, vbExclamation, "ELookup Error " & Err.Number Resume Exit_ELookup End Function

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

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

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

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

:: من بعد اذن الأستاذ عبد الله قدور والاخ ابو زاهر .... تفضل DoCmd.RunSQL "UPDATE invoice INNER JOIN helpbuy ON invoice.fatora_no = helpbuy.fatora_no SET invoice.mvdate = [helpbuy]![xdate],invoice.supplier = [helpbuy]![supplier], invoice.paytyp = [helpbuy]![pay] WHERE (((invoice.fatora_no)=[Forms]![invoicebuy]![fatora_no]));" 177_UP.accdb

هكذا يكون الاستعلام بالكود DoCmd.RunSQL "UPDATE invoice INNER JOIN helpbuy ON invoice.fatora_no = helpbuy.fatora_no SET invoice.mvdate = [helpbuy]![xdate], invoice.supplier = [helpbuy]![supplier], invoice.paytyp = [helpbuy]![pay] " & vbCrLf & _ "WHERE (((invoice.fatora_no)=[Forms]![invoicebuy]![fatora_no]));"

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

السلام عليكم ورحمة الله وبركاته كفــــارة المجــلس سبحانك اللهم وبحمدك ، أشهــد أن لا إله إلا أنت أستغفرك وأتوب إليك جزاكم الله خيرا وجعل كل ايامكم رضا والسلام عليكم ورحمة الله وبركاته

بعد اذن استاذي وصديقي الغالي@عبد الله قدور اعتقد هذا طلبه والله اعلم فضلا وليس امرا : يرجى ان يكون الاستعلام بالكود لاني سوف اكرره في نماذج اخري ولا اريد تكرار الاستعلام العادي حتي لا تكبر معي قاعدة البيانات هههههههههه نفس طريقتي تحياتي 177.accdb

ال سلام عليكم قمت بتجربة مثال الاستاذ صالح وهويعمل 100% اي انه يحفظ بمجرد القراءة النتيجة : افحص اعدادات قارىء الباركود عندك يجب ان تضبطه على Enter او Tab

السلام عليكم الخطا في الدالة sum بسبب وجود تعبير في النموذج الفرعي ضع هذا التعبير في الاستعلام في مصدر النموذج

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

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

تفضل لك ما طلبت نموذج مبيعات ومرتجعات - 1.xlsm

شكرا من القلب اخي شفان رائع انت

لكن هناك ملاحظة السجلات رقم 1 و 2 و 4 تاريخ المناصب هم اكبر من تاريخ النتخابات و السجل رقم 3 تاريخ المنصب هو يساوي تاريخ الانتخابات لذلك يجب ان اعرف على اي اساس سيكون النتائج هكذا لا عادي اخي ... هنا مدرسة

السلام عليكم اخوي خلف كان عندك خطأ في الاستعلام tblm1 والاستعلام tqwarr (مسافة زائدة ومسافة ناقصة وتغيير الاسم الى *) ، فقمت بتعديلهم وارفاقهم لك ، استوردهم الى برنامجك وشوف اذا بيغير النتيجة او لا !! واستعمال اكثر من احتمال في جملة iif يبطئ الاستعلام ، لأن الاستعلام يجب ان ينظر في جميع الاحتمالات ، وخصوصا جميع احتمالاتك Dcount !! فالافضل ان تكتب وحدة نمطية ، وتستخدم فيها if او Seclect case ، وتضع جمل Dcount فيها ، فسيكون الكود اسرع ، لأنك ستستخد جلة واحدة منهم فقط . كما اعتقد بأن سؤالك غير واضح ، فاذا ممكن ترفق مثال يكون اسهل لفهمنا طبعا هذه مجرد ملاحظاتي ، وفي انتظار روائع الزعيم شيفان جعفر 972.accdb.zip

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

وعليكم السلام الاكسس برنامج يعمل على نظام الوندوز والماك ، فيمكنك استعماله عن طريق كمبيوتر يحتوي على احد انظمة التشغيل هذه. اما اذا الاكسس لم يكن منصب على الكمبيوتر/الهاتف/الموبايل/التابلت (iPad او Android Tablet) ، سواء لأنك لم تقم بتنصيبه (في بيئة الوندوز او الماك) ، او لأن الاكسس اصلا غير متوفر لهذا النظام (مثل الاندرويد) ، فهنا تستطيع استعمال برامج التخاطب عن بُعد (مثل TeamViewer او Remote Desktop Connection او GoToAssist) ، بحيث تخاطب/تتصل باي كمبيوتر في اي مكان في العالم عن طريق الانترنت ، وهذا الكمبيوتر يكون الاكسس منصب عليه ، فعليه واقعا ، انت تستعمل الاكسس الموجود على ذلك الكمبيوتر وجهازك هو عبارة عن اداة لمشاهدة والتحكم في ذلك الكمبيوتر وبرنامج الاكسس فيه. TeamViewer او Remote Desktop Connection والموجود على كل كمبيوتر . جعفر

وعليكم السلام ورحمة الله وبركاته استخدم الوحدة النمطية التالية: Public Function HoursToMinutes(ConvHoursMinutes As Single) As Long Dim WazMinutes As Integer If InStr(1, Str(ConvHoursMinutes), ".") > 0 Then WazMinutes = Val(Mid(Str(ConvHoursMinutes), InStr(1, Str(ConvHoursMinutes), ".") + 1)) End If HoursToMinutes = Int(ConvHoursMinutes) * 60 + WazMinutes End Function وقم باستدعائها كالتالي في الحقل الذي تريد ظهور النتيجة فيه: =HoursToMinutes([YourField])

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

بارك الله لك أستاذ صالح وجعلنا الله جميعا من الصالحين مشكلة هذه الطريقة أن الدالة savesetting تخزن في الريجيستري في مسار محدد HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings والأفضل في هذه الحالة استعمال الريجيستري بطريقة عادية بدون savesetting باستخدام WScript.Shell وهذا ما حدث في هذا الموضوع الجديد والبسيط وفقنا الله وإياكم لكل ما تحبه وترضاه

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم جميعا بخير أحبابي في الله اليوم موعدنا مع فيديو جديد للمتقدمين في الإكسل إلى عشاق التميز في التعامل مع نماذج إكسل يشرح كيفية تصغير نموذج الإكسل إلى شريط المهام إخفاء برنامج الإكسل Hide excel window إضافة زر تصغير للنموذج add minimize button to userform إضافة أيقونة لشريط عنوان النموذج add icon to title bar for userform إضافة أيقونة للنموذج في شريط المهام add icon to userform to taskbar تصدير موديول export module استيراد موديول import moduleأي استفسار لا تتردد في كتابة تعليق ادعمنا ب لايك كومنت شير ولا تنسوني من صالح دعائكم

بسم الله الرحمن الرحيم يفهم من العنوان انه جزء من البرنامج المدرسي وهو كذلك كبداية ولكنه هو الصلب والاساسات وما يرد لا حقا انما هو تبع وهذا الدرس اجابة لطلب اختنا الكريمة هنا http://www.officena.net/ib/index.php?showtopic=55102 وحسب الانظمة التعليمية المبينة في الطلب تنويه : استخدم في جهازي الاصدار 2003 ولا يمكنني فتح المرفقات الا على صيغة mdb ايضا قد الجأ في الشرح الى عرض بعض الصور وهذا سيصعب فهمه بالسرعة المطلوبة لمن لا يملك في جهازه الاصدار المذكور . ( آمل تحميل الاصدار المذكور لمن يريد المتابعة والمشاركة ) نبدأ : الجداول : نقاط تؤخذ بالاعتبار : - تكتب اسماء الجداول واسماء الحقول بحروف انجليزية والظهور العربي سيكون من خلال التسمية التوضيحية . - لا يسمح بالمسافات الفارغة بين الكلمات في التسمية . - تبدأ اسماء الجداول بـ tbl والاستعلامات بـ Qry والنماذج بـ frm والتقارير بـ Rep للتفريق بينها ومعرفتها من اول نظرة

السلام عليكم اخي ياسر المشكلة كلها بسبب التحديث الاخير الذي عملته مكروسوفت لانو فيه مشاكل كثيرة وانا لم اكن موقف التحديث التلقائي فحدث من نفسو وايضا هناك بعض التخاذل مني لضبط الاوفيس عندي يعني ارجعه لسابق عهده او اعيد تنصيبو من جديد لانو فيه حاجات اخرى لا اريد ان افقدها بخصوص المشكلة في التحدث كمثال لما تضيف اي ابجت في الشيت من المطور ونقلا مثلا TextBox من المفروض تجدها بأسم TextBox1 لاكن تجدها بأسم TextBox21 هذه الاكواد المستعملة في الملف انسخها في الملف الاول ان اشتغل لديك او انشء ملف جديد كما هو الحال في الملف الاول ثم انسخ فيه الاكواد Dim keyArray() Dim keyArray2() Dim itemArray() Dim element Dim a, b, d, e, i Private Sub ComboBox2_Change() If ComboBox1 = "" Then MsgBox "اختر الشهر أولا": Exit Sub d = Me.ComboBox2 e = 0 Dim bMonth As Byte Dim x As Integer: x = 0 Me.TextBox1.Value = 0 For i = LBound(keyArray) To UBound(keyArray) bMonth = Month(keyArray(i, 1)) If d = "كل الاصناف" And bMonth = ComboBox1.ListIndex + 1 Then e = e + 1: ReDim Preserve itemArray(1 To 4, 1 To e) itemArray(1, e) = keyArray(i, 1) itemArray(2, e) = keyArray(i, 4) itemArray(3, e) = keyArray(i, 5) itemArray(4, e) = keyArray(i, 7) x = x + Val(keyArray(i, 7)) ElseIf keyArray(i, 4) = d And bMonth = ComboBox1.ListIndex + 1 Then e = e + 1: ReDim Preserve itemArray(1 To 4, 1 To e) itemArray(1, e) = keyArray(i, 1) itemArray(2, e) = keyArray(i, 4) itemArray(3, e) = keyArray(i, 5) itemArray(4, e) = keyArray(i, 7) x = x + Val(keyArray(i, 7)) End If Next i If e > 0 Then If UBound(itemArray, 2) > 1 Then Me.ListBox1.List = Application.Transpose(itemArray) Else Dim c(1 To 1, 1 To 4) c(1, 1) = itemArray(1, 1) c(1, 2) = itemArray(2, 1) c(1, 3) = itemArray(3, 1) c(1, 4) = itemArray(4, 1) Me.ListBox1.List = c End If Else Me.ListBox1.Clear End If Me.TextBox1.Value = x End Sub Private Sub ComboBox3_Change() If ComboBox4 <> "" Then Call ComboBox4_Change End Sub Private Sub ComboBox4_Change() If ComboBox3 = "" Then MsgBox "فضلا اختر تاريخ بداية البحث أولا": Exit Sub Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("data") If IsDate(ComboBox3) Then a = CDate(Me.ComboBox3.Value) Else Exit Sub If IsDate(ComboBox4) Then b = CDate(Me.ComboBox4.Value) Else Exit Sub e = 0 Dim x As Integer: x = 0 For i = LBound(keyArray) To UBound(keyArray) If a <= CDate(keyArray(i, 1)) And b >= CDate(keyArray(i, 1)) Then e = e + 1: ReDim Preserve keyArray2(1 To 4, 1 To e) keyArray2(1, e) = keyArray(i, 1) keyArray2(2, e) = keyArray(i, 4) keyArray2(3, e) = keyArray(i, 5) keyArray2(4, e) = keyArray(i, 7) x = x + Val(keyArray(i, 7)) End If If e > 0 Then If UBound(keyArray2, 2) > 1 Then Me.ListBox1.List = Application.Transpose(keyArray2) Else Dim c(1 To 1, 1 To 4) c(1, 1) = keyArray2(1, 1) c(1, 2) = keyArray2(2, 1) c(1, 3) = keyArray2(3, 1) c(1, 4) = keyArray2(4, 1) Me.ListBox1.List = c End If Else Me.ListBox1.Clear End If Next Me.TextBox1.Value = x End Sub Private Sub CommandButton1_Click() Dim i% i = Me.ListBox1.ListCount Sheets("طباعة").Range("A1").Value = "تقرير شهر" & " " & Me.ComboBox1 & "صنف" & " " & Me.ComboBox2 Sheets("طباعة").Range("A3:d1000").ClearContents With Sheets("طباعة").Range("A3") If i = 0 Then GoTo 1 .Resize(i, 4).Value = Me.ListBox1.List End With lr = Sheets("طباعة").Range("d1000").End(xlUp).Row Sheets("طباعة").Range("d" & lr + 1).Value = Application.WorksheetFunction.Sum(Sheets("طباعة").Range("d2:d" & lr)) Sheets("طباعة").Range("d" & lr + 1).Offset(0, -1).Value = Application.WorksheetFunction.Sum(Sheets("طباعة").Range("c2:c" & lr)) Sheets("طباعة").Range("d" & lr + 1).Offset(0, -2).Value = "الإجمالي" Sheets("طباعة").Select ActiveSheet.PageSetup.PrintArea = "A1:D" & lr + 1 Unload Me ActiveWindow.SelectedSheets.PrintPreview a = MsgBox("هل ترغب في طباعة التقرير؟", vbYesNo + vbQuestion, "طباعة") If a = vbYes Then With ActiveSheet .PrintOut End With End If Range("A3").Activate 1 Unload Me End Sub Private Sub UserForm_Initialize() Me.RightToLeft = False ComboBox1.List = Array("يناير", "فبراير", "مارس", "ابريل", "مايو", "يونيو", "يوليو", "اغسطس", "سبتمبر", "اكتوبر", "نوفمبر", "ديسمبر") Me.ListBox1.ColumnCount = 4 Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("data") Dim iRow As Long: iRow = ws.Cells(Rows.Count, 1).End(xlUp).Row Dim sDic, sDic2 As Object Set sDic = CreateObject("Scripting.Dictionary") Set sDic2 = CreateObject("Scripting.Dictionary") keyArray = ws.Range("A3:G" & iRow).Value For i = LBound(keyArray) To UBound(keyArray) If Not IsEmpty(keyArray(i, 4)) Then sDic(keyArray(i, 4)) = "" If Not IsEmpty(keyArray(i, 1)) Then sDic2(keyArray(i, 1)) = "" Next i If IsArray(keyArray) Then ComboBox2.List = sDic.keys If IsArray(keyArray) Then ComboBox3.List = sDic2.keys: ComboBox4.List = sDic2.keys ComboBox2.AddItem "كل الاصناف" End Sub

برنامج مدارس اليمن الرقم السري= 1975 وجدته في مكتبتي مفتوح المصدر العيوب = الكائنات والحقول كتبت بحروف عربية وهذا فيه صعوبة على من يريد تعلم اللغة البرمجية المكتوبة قد لا يحقق كامل المطلوب : ولكن يفتح الذهن ويعطي تصور لكيفة العمل داخل بيئة اكسس school.rar

وجدتهما في مكتبتي PSchool.rar School.rar

وجدتها فارغة.rar