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

اتفضل اذا بتستخدم اوفيس اصدار 2010 اليك هذا الكود فرضنا عندك تقرير باسم rep1 DoCmd.BrowseTo acBrowseToReport, "rep1" او اليك هذا الكود ستقدر تستخدم في كل اصدارات DoCmd.OpenReport "Rep1", acViewPreview DoCmd.Close acForm, Me.Name

السلام عليكم ورحمة الله وبركاتة اساتذي الاعزاء اسعد الله اوقاتكم بكل خير اريد اظهار من قاعدة البيانات التاريخ الذي فيه اعلى سجلات والتاريخ الذي فيه اقل سجلات واعدداها وتفاصيل السجلات سامحوني اذا ماعرفت اوصل المعلومة في سوالي وشكراً جزيلاً والله يوفقكم يارب اكثر تاريخ في سجلات.rar

حسب فهمي وحسب ما قرأت ورأيت المواضيع يحدث المشكة عند استخدام كود الاعلاق النموذج او التقرير هكذا Docmd.Close بدون ان نکتب اسم النموذج او نكتب Me.Name مثلا اذا نعطي امر فتح نموذج مثلا وبعدين نكتب هذا الكود مثلا DoCmd.OpenForm "form1", acNormal DoCmd.Close سيتم فتح النموذج ونغلقه لان ذلك النموذج سيكون اكتيف والكود سيغلق النموذج الاكتيف لان ما نحدده اي ما كتبنا اسم النموذج المراد نغلقه هذا والله يعلم

اخي شفان بحثت في احد برامجي الرئيسية ، وبالفعل رايت انني استخدمت هذه الطريقة اكثر من مكان ، مثلا: A = Me.Name Forms!frm_Main!cmb_Full_Name = "" Forms!frm_Main!cmb_Full_Name.Requery Forms!frm_Main!cmb_Full_Name2 = "" Forms!frm_Main!cmb_Full_Name2.Requery Forms!frm_Main!iFull_Name = "" DoCmd.Close acForm, "frm_All_Last_wo_COMM" DoCmd.Close acForm, A و A = Me.Name Forms!frm_Personel_S!sfrm_Personel.Form.Requery Forms!frm_Personel_S!sfrm_Employee_Movement.Form.Requery Forms!frm_Personel_S!sfrm_Committees.Form.Requery Forms!frm_Personel_S!sfrm_Appreciation_Punishment.Form.Requery DoCmd.Close acForm, A و A = Me.Name Forms!frm_Personel_S!sfrm_Personel.Form.Requery Forms!frm_Personel_S!sfrm_Employee_Movement.Form.Requery DoCmd.Close acForm, A . واستخدمت طريقتك مباشرة ، فتم اغلاق النموذج بطريقة صحيحة!! فلا ادري اين صادفت هذه المشكلة ، وعليه اتبعت الطريقة الجديدة!! فهذا معناه ان طريقتك المباشرة تعمل وبدون مشاكل جعفر

تفضل 772.مسجل خطر.mdb.zip

يعني ... البرمجة عند الاكسس زعيفة جدا ولا يعرف Me.Name اذا تكتبه في محرر فيجوال للنموذج یعنی لا یعرف نفسه في اي نموذج نحن كتبناه !!؟ لكن انا استخدم هذه الطريقة وما صار معي اي مشكلة بعد ... لكن دائما اتبع طرائقك لاني اعرف من انت تحياتي لك

وعليكم السلام طريقتك في ادخال البيانات في الجدول 2 غير صحيحة ، فهي لا تتماشى مع قواعد البيانات ، وانما هي نسخة من طريقة عمل الاكسل !! فالطريقة الصحيحة هي ان يكون عندك حقل رقم الموظف ، وحقل النوع (نوع الخطورة) نعم حقل واحد فقط ، ثم تعمل نموذج/تقرير رئيسي للجدول 1 ، ونموذج/تقرير فرعي للجدول 2 ، وتربط الرئيسي والفرعي بحقل رقم لموظف ، ويكون عندك اي عدد تريد في حقل النوع ، وليس 60 فقط جعفر

الجملة Me.Name معناها اسم النموذج/التقرير ، فلما تفتح نموذج/تقرير جديد وانت لم تغلق النموذج القديم ، وخصوصا اذا هذا النموذج/التقرير الجديد عنده حدث "عند التحميل او عند الفتح" ، فالجملة Me.Name لا تكون محفوظة للنموذج القديم ، وانما للنموذج/التقرير الجديد. لذلك يُنصح ان: تحفظ اسم النموذج في متغير ثابت (مؤقتا ، مثل A) ، تفتح النموذج/التقرير الجديد ، ان تستخدم DoCmd.Close acForm, A للدلالة على ما تريد اغلاقه (خصوصا ان بعض المبرمجين للأسف يعطون نفس التسمية للنموذج والتقرير) ، فحينها لا يعرف الاكسس من يغلق ، فيغلق النموذج الجديد بدلا من القديم المطلوب اغلاقه. وقد صادفت هذا الخطأ عدة مرات (ولم اعرف لماذا لم يتم فتح النموج/التقرير الجديد ، لأن الاكسس كان يفتحه ويُغلقه على طول) ، الى ان تعلمت ان ابرمج بهذه الطريقة جعفر

استاذي الحبيب ممكن تخبرني ما الفرق بينهما انا دايما بستخدم كما انا كتبت وما فيه اي مشكلة ... هل هناك فرق ام ماذا ؟ اذا تفتتح التقرير من النموذج اي كود من الاكواد تستخدمه راح يعمل هذا DoCmd.BrowseTo acBrowseToReport, "rep1" او هذا DoCmd.OpenReport "Rep1", acViewPreview DoCmd.Close acForm, Me.Name او كما كتبت استاذنا جعفر هذا

اذا ممكن تعديل بسيط على كود أخي شفان A = Me.Name DoCmd.OpenReport "Rep1", acViewPreview DoCmd.Close acForm, A جعفر

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

السلام عليكم ورحمة الله وبركاته شيت كنترول ابتدائي 2018 حسب القرار 313 المعدل بالقرار 377 رابط الشيت http://www.mediafire.com/file/71shr3g581bduwj/control__shokeir2018.rar أتمني من الله أن ينال رضاكم وأن يكون عند حسن الظن

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

اتفضل اكثر تاريخ في سجلات.rar

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

لنفرض أن لديك مربع نص الذى سوف تضع فيه الرقم القومى وليكن أسمه : National_Nr ، مربع نص سوف يأخذ معلوماته فى النوع من السابق وليكن أسمه : gender ، مربع نص ثالث سوف يأخذ معلوماته فى المحافظة وليكن أسمه : Mohaftha ، مربع نص رابع سوف يستقطع تاريخ الميلاد وليكن أسمه : birth من مربع النص National_Nr فى خاصية حدث بعد التحديث أنسخ الكود التالى:- Private Sub National_Nr_AfterUpdate() Dim x, y, z, r As Byte Dim xx As String * 2 Dim MyProvinces As Variant x = Left(Me.National_Nr, 1) If x = 2 Then Me.birth.Value = Mid(Me.National_Nr, 2, 2) & "-" & Mid(Me.National_Nr, 4, 2) & "-" & Mid(Me.National_Nr, 6, 2) Else Me.birth.Value = 20 & Mid(Me.National_Nr, 2, 2) & "-" & Mid(Me.National_Nr, 4, 2) & "-" & Mid(Me.National_Nr, 6, 2) End If '======= y = Left(Right(Me.National_Nr, 2), 1) Mod 2 If y = 1 Then Me.gender.Value = "ذكر" Else Me.gender.Value = "أنثى" End If '======= MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "03/بورسعيد", "04/السويس", "11/دمياط", "12/الدقهلية", "13/الشرقية" _ , "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة", "31/البحر الأحمر", "32/الوادى الجديد" _ , "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "23/الفيوم", "24/المنيا", "25/أسيوط", "34/شمال سيناء", "35/جنوب سيناء" _ , "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح", "88/خارج مسر") z = Mid(Me.National_Nr, 8, 2) For r = LBound(MyProvinces) To UBound(MyProvinces) xx = MyProvinces(r) If z = xx Then Me.Mohaftha.Value = Right(MyProvinces(r), Len(MyProvinces(r)) - 3) Exit For End If Next End Sub الكود السابق تم أخذه من هنا بالمنتدى ... الأفضل عمل ملف توضيحي بالمرفقات .. تفضل db1.rar

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

وعليكم السلام من برنامجك المرفق ، اخبرنا ماهي القيمتين اللي المفروض يظهروا؟ جعفر

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

كيف يتم ذلك لو تكرمت لزيادة الأمان

تفضل وكمل الباقي .. فقط غير الرقم في آخر السطر حسب الشهر جلب القيمه 1.rar

نموذج الدفع هو نموذج بسيط مرتبط لاسلكيا _ ان جاز التعبير_ بجدول الدفع اي انه غير منضم ويمكن جعل النموذج منضم مباشرة الى الجدول ولكني رأيت ان المسائل المالية بحاجة الى زيادة ضبط بحيث لن يتم ادراج اي بيانات الا بعد ضغط الزر والمسؤول عن الحاق البيانات في جدول المدفوعات هو هذا الكود الموجود في وحدة نمطية في المديول العام : Public Function cmdsavedAll() On Error GoTo ErrHandler Dim db1 As Database Dim rs As Recordset Set db1 = CurrentDb Set rs = db1.OpenRecordset("tblPay") rs.AddNew rs!pay_ID = Forms!FrmPay!pay_ID rs!FatoraType = Forms!FrmPay!FatoraType rs!ID_fGnt = Forms!FrmPay!ID_fGnt rs!pay = Forms!FrmPay!pay rs!Paydate = Forms!FrmPay!Paydate rs.Update ErrHandler: If Err.Number = 3022 Then MsgBox "مكرر" Exit Function End If rs.Close: Set rs = Nothing End Function ويتم استدعاؤه في حدث الزر بـــ cmdsavedAll فيقوم بالحاق البيانات في جدول المدفوعات

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

السلام عليكم أخي علاء ، المنتدى مليء بمثل هذا السؤال ، وكل ما عليك عمله هو استخدام خاصية البحث ، قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف واليك بعض هذه المواضيع: https://www.officena.net/ib/topic/43015-استخراج-تاريخ-الميلاد-من-الرقم-القومي-عنوان-معدل/?do=findComment&comment=247938 https://www.officena.net/ib/topic/49846-طريقة-كتابة-الرقم-القومي/?do=findComment&comment=304211 https://www.officena.net/ib/topic/73911-إستخراج-تاريخ-الميلاد-والسن-والنوع-من-الرقم-القومي/?do=findComment&comment=475682 https://www.officena.net/ib/topic/62992-استخراج-تاريخ-من-الرقم-القومي/?do=findComment&comment=409130 وهذا البحث يعطيك جميع المواضيع التي تخص الاكسس https://www.google.com/search?biw=1400&bih=870&ei=ugIfWp7dC8qza6a5m9AG&q=-excel+access+"الرقم+القومى"+site%3Awww.officena.net&oq=-excel+access+"الرقم+القومى"+site%3Awww.officena.net&gs_l=psy-ab.3...18076.24409.0.25876.0.0.0.0.0.0.0.0..0.0....0...1.1.64.psy-ab..0.0.0....0.ngMmP-xMScE جعفر

'صمم بواسطة أ / محمد صالح 10/2/2011 'تم التعديل لإضافة الصفر والنصف 28/4/2015 'تم التعديل للوصول إلى 9999 والسماح بكتابة غ للغياب في 27/11/2017 ' https://a1mas.com Function n2t(d As String) As String If d = "" Or d = "غ" Then n2t = "غ" ElseIf d = 0 Or d > 9999.5 Then n2t = "لا شيء" ElseIf d = 0.5 Then n2t = "فقط نصف درجة" Else o = Int(d / 1000) m = Int(d / 100) - (o * 10) h = Int(d / 10) - (o * 100 + m * 10) a = Int(d - (o * 1000 + m * 100 + h * 10)) k = d - (o * 1000 + m * 100 + h * 10 + a) n2t = num((o), 4) & IIf(o > 0 And (a > 0 Or h > 0 Or m > 0), " و", "") & num((m), 3) & IIf(m > 0 And (a > 0 Or h > 0), " و", "") & num((a), 1) & IIf(a > 0 And h > 1, " و", " ") & num((h), 2) n2t = Replace(n2t, "و ", "و") n2t = Replace(n2t, "اثنتانِ عشرة", "اثنتا عشرة") n2t = Replace(n2t, "وعشرة", "وعشر") n2t = IIf(n2t = " عشرة", "عشر", n2t) n2t = IIf(n2t = "مائتانِ ", "مائتا", n2t) n2t = IIf(n2t = "ألفان ", "ألفا", n2t) n2t = "فقط " & n2t & IIf(h = 0 And a = 2, "درجتانِ", IIf((h = 1 And a = 0) Or ((h = 0 And a > 2)), " درجاتٍ", IIf(h = 0 And a = 0, " درجةٍ", " درجةً"))) & IIf(k > 0, " ونصفٌ", "") n2t = Replace(n2t, "إحدى درجةً", "درجةٌ") n2t = Replace(n2t, "اثنتانِ درجتانِ", "درجتانِ") n2t = Replace(n2t, "مائتانِ درجةٍ", "مائتا درجةٍ") End If n2t = Trim(n2t) End Function Function num(n As Integer, t As Integer) As String o = "ة آلاف" m = "مائة" h = "ونَ" Select Case n Case Is = 1 num = IIf(t = 4, "ألف", IIf(t = 3, m, IIf(t = 2, "عشرة", "إحدى"))) Case Is = 2 num = IIf(t = 4, "ألفان", IIf(t = 3, "مائتانِ", IIf(t = 2, "عشرونَ", "اثنتانِ"))) Case Is >= 3 num = IIf(t = 4, nn(n) & o, IIf(t = 3, nn(n) & m, IIf(t = 2, nn(n) & h, nn(n)))) End Select End Function Function nn(n As Integer) As String Select Case n Case Is = 3 nn = "ثلاث" Case Is = 4 nn = "أربع" Case Is = 5 nn = "خمس" Case Is = 6 nn = "ست" Case Is = 7 nn = "سبع" Case Is = 8 nn = "ثمان" Case Is = 9 nn = "تسع" End Select End Function الكود بعد التعديل للمحترم محمد صالح رزقه الله الرزق الواسع ونحن معه وان يصلح الله حاله وحالنا ..

أولًا أستاذي الكريم ناصر أنا راجل بسيط جدًا وأنا لو كنت فهمت طلبك ما تأخرت لحظة ولكن نغمة الحدة التي لمستها في كلماتك ما كنت أتوقعها من أخ فاضل ...ندخل في الموضوع : بعد أن تضع علامة صح أمام مربع { إظهار علامات تبويب الأوراق ...انتقل إلي شريط التمرير في الأسفل ..أسفل شريط التمرير الرأسي واسحبه جهة اليسار تظهر لك أسماء الأوراق {الشيتات} المخفية ..اتمني من الله أن أكون قد أجبت الإجابة التي ترضيك ...

استاذي الكريم ناصر سعيد أنا لم أفهم طلبك ..رجاء توضيح أكثر

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

جزاك الله خيرا

جزاك الله خيرا

س / ماهي وظيفتك ؟ ج/ أستاذ جامعي في البرمجة + الكترو تقني س / وبماذا خدمك اكسل ؟ ج / خدمني عندما كنت طالب جامعي سنة 1995 س / وكم نسبة اعتمادك علية في العمل ؟ 50/فقط لأننا نستعمل الرقمنة حاليا و هو موقع صممناه خصيصا لطلبة مساء الخير للجميع هنا هذا السؤال منذ مدة و انا اريد طرحه للنتناقش فيه و إبداء وجهات النظر المختلفة اتمنى من الجميع المشاركه‏

جزاك الله خيرا

جزاك الله خيرا

متاح عندى البرنامج ويعمل فى مشروع فى ٦ اكتوبر منذو عاملين بكفائة عالية والحمد الله اذا ترغب فى الاتصال على ٠١٢٨٢٨٧٠٤٢٨