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

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

وعليكم السلام ايضا مثالك الثاني ناقص على كل حال ما تريده واضح انظر التعديل على الكود .. ويمكنك في آخر الكود اضافة سطر لتوجيه مكان المؤشر ان اردت Private Sub search_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[numx] = " & Str(Nz(Me![search], 0)) If Not rs.EOF Then MsgBox "لا يوجد سجل مطابق" Exit Sub End If End Sub اقصد بتوجيه مكان المؤشر ,, اي ان كنت تريد المؤشر يبقى في خانة البحث او تريده ينتقل الى حقل آخر

وعليكم السلام عندك الخيار في عمل البحث: بالاسم فقط ، بين التاريخين ، من تاريخ ، وتترك الى تاريخ فاضي ، فيستعمل الاستعلام آخر تاريخ للبيانات ، الى تاريخ ، وتترك من تاريخ فاضي ، فيستعمل الاستعلام اول تاريخ للبيانات. هممم ، هل نسيت ان اضيف شيء آخر هذا هو استعلام ListBox : SELECT GnrlT.Loh, GnrlT.Alh, GnrlT.Dat, GnrlT.Nots, GnrlT.Nam FROM NamsT INNER JOIN GnrlT ON NamsT.[Id_N] = GnrlT.[Id_N] WHERE (((GnrlT.Dat) Between (IIf(IsNull(Forms!DispTotF!Date_From),#1/1/1900#,Forms!DispTotF!Date_From)) And (IIf(IsNull(Forms!DispTotF!Date_To),#1/1/2900#,Forms!DispTotF!Date_To)) Or [Dat] Is Null) And ((NamsT.Id_N)=Forms!DispTotF!cmd_Name)); جعفر 964.HT.accdb.zip

وعليكم السلام على الكيبورد ، خليك ضاغط على مفتاح الشفت ، بالماوس انقر مرتين على برنامجك لفتحه (وإلا ، فالنماذج المنبثقة سوف تملئ الشاشة ولن ترى الشريط الاصفر خلفها) ، لما ينفتح البرنامج ، اخذ يدك من مفتاح الشفت ، وسترى هذه الشاشة . انقر على الزر "Enable Content" المؤشر عليه بالسهم ، وبيشتغل البرنامج وعلشان ما يظهر لك الشريط الاصفر لبقية برامجك ، فيجب ان يكون عندك "مكان موثوق به" اي مجلد موثوق به ، بحيث لما تشغل برامجك من هذا المجلد فلن يعطيك الاكسس هذا الشريط الاصفر وستشتغل برامجك منه: . جعفر

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

بعد اذن اخي الوزير اتفضل هذا مشروط بالمبيعات EjAbuZaher.accdb

الامر الذي وضعته لك في الكود اسرع في التنفيذ من الامر اللي انت وضعته ، ولكن عندك خطأ في طريقة تنفيذ الامر ، ويجب عليك الرجوع الى ملف المساعدة Help في الاكسس لمعرفة طريقة عمل هذه الاوامر خليني اضع لك الكود بمسمياتك ، private sub ....BeforUpdat(... dim Counter as integer 'اذا كان نوع الحقل في الجدول، نص 'Counter= dcount ("*", "clndtail", "[اسم الحقل في الجدول]='" & me.[نص57] & "'") 'اذا كان نوع الحقل في الجدول، رقم Counter= dcount ("*", " clndtail", "[اسم الحقل في الجدول]=" & me.[نص57]) if Counter>0 then cancel=true 'me.undo msgbox "عفوا ، هذه القيمة مكررة ولا يمكن حفظها" end if end sub . 1. لاحظ اني اعطيتك طريقتين لإستخدام الامر dcount ، في حال اذا كان نوع الحقل في الجدول عبارة عن نص او رقم ، وانا قمت بتفعيل نوع الرقم في الكود ، 2. رجاء استبدال العبارة [اسم الحقل في الجدول] بالاسم الصحيح. جعفر

بسم الله الرحمن الرحيم السلام عليكم و رحمة الله الخميس‏ 4‏/7‏/1433هـ الموافق ‏24‏/5‏/2012م متابعة المواعيد المهمة وما تم تنفيذة مع البحث و تسجيل ارقام الهواتف و الإيميلات مع امكانية البحث عن أي معلومة به المميزات يجب تمكين وحدات الماكرو اولا 1- المواعيد استخدام التاريخين الهجري و الميلادي معا في عمود التاريخ يتم التريب و الفرز حسب التاريخ تلقائيا عند الدخول اضافة صفوف جديدة مع دوالها تلقائيا عند الحاجة تلوين القديم باللون الزهري تلوين المواعيد الحالية بلأخضر الفاتح تلوين المواعيد البعيدة وهي بعد 7 ايام من تاريخ اليوم او اكثر باللون الأصفر تسجيل كلمة منتهي امام كل موعد تم انجازة ليتم اخفائة من القائمة رسالة تحذيرية للتاريخ قبل تاريخ اليوم او بعد سنة من تاريخ اليوم امكانية البحث عن أي معلومة قديمة او جديدة - بحث سريع بجزء من أي كلمة 2- الهاتف يتم الترتيب او الفرز حسب اسماء العملاء اضافة صفوف جديدة مع دوالها تلقائيا عند الحاجة امكانية البحث عن أي جزء من اسم او رقم او بريد الكتروني - بحث سريع تلوين نتائج البحث باللون الأصفر التنقل استخدم زر صورة الهاتف او صورة التقويم اعلى يمين الشاشة للتنقل كلمة المرور لحماية الأوراق ="0" كلمة المرور لحماية محرر الفيجوال بيزك ="0" آمل ان يكون به الفائدة للجميع السكرتيرالخاصv2012.rar

فقط اكتب للاكسل ما تريد ان تبحث عنه واضغط الزر Run حرب هذا الملف Saerch_expressions.xlsm

بسم الله الرحمن الرحيم اهدى اليكم اليوم برنامج صانع الباركود للكروت الشخصية وتصاريح الدخول كما بالصورة: فى البداية يجب ان يتوافر على الجهاز نسخة من برنامج اكسس 2010 او اعلى او برنامج Access Runtime المجانى من شركة ميكروسوفت وامكانكم تحميله من هنا . وهذا فيديو توضيحي لشرح البرنامج ومرفق مع البرنامج مكتبة الباركود . اتمنى ان يحوز البرنامج على اعجابكم . اخوكم كريم الحسيني BarcodeCards.zip

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

اخي ابو زاهر تم تحويل المؤشر الى اللون الازرق المؤشر هو عبارة عن نموذج صغير فرعي يعمل بعداد الوقت واليك المثال Desktop.rar

من التنسيق اخي تستطيع تغيير اللون

وعليكم السلام اخي ابو زاهر تفضل ثلاثة انواع مؤشر التحميل 888.مؤشر تحميل.mdb

اذا كان معنا نص معين و نريد ان نعرف الكلمة رقم 2 او 5 أو ....... فيه كيف تفعل ذلك لا تيأس اكسل يحل لك هذه المشكلة N_th word.xlsm

تفضل قم بتحديد ما تريد تحويله الى PDF كما بالصورة كود تصدير pdf.xlsm 170.pdf

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

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

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

بارك الله فيك اخي بالتوفيق

أستاذ @jjafferr واخي @ابو ياسين المشولي كلمات الشكر والتقدير لن تفي حقكما علينا .. بارك الله فيكما .. ونفع الله المسلمين بكما .. وجعل الله علمكما منازل عليا ترتقوا بها في الجنة تم مراجعة الكود وفهم الية عملة

وعليكم السلام ورحمة الله وبركاته EjAbuZaher.rar

السلام عليكم تم الحل بالمعادلة =IF(SUM(D6:E6)>45;D6;INT(I6/4)) في K والمعادلة =IFERROR(SUM(E6;K6);"") في العمود M أي أنه في حالة ناتج جمع العمود Dوالعمود E أكبر من 45 يضع ناتج العمود D وغير ذلك يقرب العمود I وبهذا يجمع العمود E و K في كل الحالات ويكون المعادلة صحيحة تقريب الناتج.xlsm

الدالة INT تقريب العدد الحقيقي الذي تريد تقريبه إلى عدد صحيح أصغر منه مثال =INT(8.9) ====> 8 استخدم دوال التقريب للاعلى او الادني وحسب مايلي للتقريب إلى الأعلى دوماً (بعيداً عن الصفر) استخدم الدالة ROUNDUP للتقريب إلى الأدنى دوماً (باتجاه الصفر)، استخدم الدالة ROUNDDOWN لتقريب رقم إلى مضاعف معين (مثل التقريب إلى أقرب 0.5)، استخدم الدالة MROUND إذا كانت الخلية A1 تحتوي على الرقم 23.7825، وكنت تريد تقريب هذه القيمة إلى منزلتين عشريتين، فيمكنك استخدام الصيغة التالية: ‎=ROUND(A1, 2)‎ ناتج هذه الدالة هو 23.78

أستاذى الكريم مصطفى كيف يكون ناتج المعادلة فى الصف الثانى 47 ,لابد ان يكون الناتج كما هو 46 لأن معادلتك هكذا تكون بحيث لو كان مجموع الخلايا من D7:E7 أكبر من 45 فيكون الناتج مجموع الخلايا من D7:E7 وفى هذه الحالة يكون فعلا الناتج 46 لأن 46 أكبر من 45 وكذلك بالنسبة للصف الذى يليه بارك الله فيك

بعد اذن اخي جعفر jjafferr سوف اشرح ماتم عمله من قبل الاخ جعفر تم عمل داله وهي كالاتي Function make_visible() On Error GoTo err_make_visible [EmployeeID].Visible = False [SuppliersID].Visible = False [CustomersID].Visible = False [ExpenseID].Visible = False If [Stype] = "سند صرف موظف" Then [EmployeeID].Visible = True Me![الاسم] = Me![EmployeeID].Column(1) ElseIf [Stype] = "سند صرف مورد" Then [SuppliersID].Visible = True Me![الاسم] = Me![SuppliersID].Column(1) ElseIf [Stype] = "سند صرف المصروفات" Then [ExpenseID].Visible = True Me![الاسم] = Me![ExpenseID].Column(1) ElseIf [Stype] = "سند صرف عميل" Then [CustomersID].Visible = True Me![الاسم] = Me![CustomersID].Column(1) End If Exit_Function: Exit Function err_make_visible: If err.Number = 2165 Then 'cannot hide a control which has focus 'ignore it Resume Next Else MsgBox err.Number & vbCrLf & err.Description End If End Function ثم تم استدعها عند التالي والسابق والاو والاخير هكذا Call make_visible

وعليكم السلام تفضل جعفر 958.1.سند قبض.accdb.zip

السلام عليكم رجاء الالتزام بقوانين المنتدى : سؤال واحد لكل موضوع. جعفر

وعليكم السلام اذا مصدر النموذج عبارة عن جدول او استعلام ، فمصدر قيمة حقل النص يكون من الجدول/الاستعلام ، فيمكنك في الجدول ان تغيّر اعدادات الحقل ، بحيث يكون مفهرس وغير قابل للتكرار ، واما في النموذج اذا اردت ان تستعمل كود للتأكد من عدم تكرار قيمة الحقل قبل حفظ السجل ، فيمكنك عمل حدث قبل التحديث للحقل ، وعمل مثل هذا الكود: private sub ....BeforUpdat(... dim Counter as integer Counter= dcount ("*", "Table Name", "[Field Name in Table]='" & me.FieldNameInForm & "'") 'اذا كان نوع الحقل في الجدول، نص 'Counter= dcount ("*", "Table Name", "[Field Name in Table]=" & me.FieldNameInForm) 'اذا كان نوع الحقل في الجدول، رقم if Counter>0 then cancel=true 'me.undo msgbox "عفوا ، هذه القيمة مكررة ولا يمكن حفظها" end if end sub جعفر

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

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

العفو اخي jjafferr جعر نحن تلميذكم

بالتوفيق اخي

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

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

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل المرفقات عدد ( 2 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة حيث لم اتمكن من اضافتهم في المشاركة الاولي نظرا للمساحة المخصصة لكل عضو ( حسب علمي ) فيديو2 .. طريقة عمل شاشة ادخال 2.rar شاهد النتيجة فيديو3 .. طريقة عمل شاشة ادخال 3.rar

بسم الله الرحمن الرحيم أخي فرضا أن أسم النموذج Form1 مثلا والحقل الأسم في النموذج وليكن أسمه هو Txt1 ومصدره هو الحقل Name الموجود في الجدول المسمى main وحقل رقم العضو هو Txt0 ومصدره نفس الجدول main وأسم الحقل في الجدول Num نقوم بوضع الكود التالي في حدث قبل التحديث للحقل الأسم في النموذج Form1 Private Sub Txt1_BeforeUpdate(Cancel As Integer) Dim db As Database Dim rst As Recordset Dim CountNum, I As Long Dim MsgNumbr, NewName As String Set db = CurrentDb NewName = [Forms]![Form1]![Txt1] Set rst = db.OpenRecordset("main", dbOpenSnapshot) CountNum = DCount("*", "main", "[Name]=[Forms]![Form1]![Txt1]") If CountNum = 0 Then Exit Sub With rst Do Until .EOF If rst!Name = NewName Then MsgNumbr = MsgNumbr & rst!Num & " " End If .MoveNext Loop End With If MsgBox("سيق أدخال هذا الأسم برقم" & MsgNumbr & vbCrLf & vbCrLf _ & "هل ترغب بتسجيله" & vbCrLf, _ vbInformation + vbYesNo + vbDefaultButton2, _ "تنبيه") = vbNo Then Cancel = -1 End If db.Close End Sub ومرفق لك مثال توضيحي وتقبل تحياتي أخيك سهل أحمد ( ابو نعيم ) checkifExists.rar