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

وعليكم السلام 🙂 اسمح لي بتعديل في هذا المفهوم : يمكن حذف سجل ، وليس حقل ، ويمكن تحديث حقل / حقول. جعفر

السلام عليكم الاستاذ العزيز @محمد أبوعبدالله جزاه الله خير وضع حل جميل يؤدي المطلوب بناء على طلب اخونا الزبير ومداخلتي هنا تعبر عن وجهة نظر غير ملزمة وانما رأي شخصي قد يستفيد منه احدما مربع التحرير والسرد هللة يحتوي على قيمتين 0.15 و 0.30 وبالتي فان اختيار احدهما والتعديل بهذه الطريقة سوف يقوم بتعديل كافة السجلات مهما كانت كمية الاستهلاك وهذا الامر سوف يؤدي الى قيمة خاطئة في قيمة الاستهلاك لدينا تحسب قيمة الاستهلاك على اساس كمية الاستهلاك / 30*30 مثلا كمية الاستهلاك 7000 ك و س وعدد الايام 30 يوم تحسب 6000 / 30 * 30 = 6000 6000 * 0.18 = 1080 + 1000 * 0.30 = 300 الاجمالي 1380 * 0.15 = 1575 باضافة 10 ريال رسم عداد ولو كانت نفس كمية الاستهلاك 7000 ك و س وعدد الايام 27 تكون 7000 / 30 * 27 وتكون قيمة الفاتورة 1679.80 ريال مما تقدم فان عمل برنامج لاحتساب الفواتير يتطلب منا تحديد فئة المستهلك سكني تجاري صناعي حكومي قيمة الشريحة المالية لكل فئة كمية الاستهلاك عدد ايام الفاتورة عندها ممكن ان نعمل البرنامج بشكل صحيح ولسنا في حاجة الى ادخال التعرفة كل مرة وانما يتم احتساب الفواتير بشكل تلقائي بمجرد ادخال حقل القراءة الحالية يوجد في الموقع برنامج جميل لاستاذنا محمد صالح لاحتساب الفواتير في مصر يعطي افكار جميلة لكيفية احتساب الفواتير اطيب تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم Dim mySQL As String Dim rst As Recordset Dim i As Double mySQL = "Select * From tbl_bayanat" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst For i = 1 To rst.RecordCount rst.Edit rst![هللة] = Me.مربع_تحرير_وسرد4 rst.Update rst.MoveNext Next Me.frm_2.Requery تجربة(1).rar تحياتي

ياهلا ابا عبد العزيز لاعادة الحقل عن طريق الكود CurrentDb.Execute "ALTER TABLE tbl1 ADD COLUMN test text(100)", dbFailOnError لاحظ حددنا نوعة نصي وحجمة 100 حرف ويمكن تحديد اي نوع من انواع الحقول مثلا حقل رقمي حجمة ونوع تنسيقة الخ او تاريخ ووقت والتنسيق وهكذا اخي فايز اعتذر عن التطفل على موضوعك ولكن تحمست بزيادة

احسنت يا ابا عبدالله لتكون الامور واضحة فهناك فرق بين حذف سجل كامل او تحديث حقل او عدة حقول ومن ضمن التحديث جعل الحقل فارغ او حذف حقل من الجدول بما يحتوي من بيانات اما لحذف حقل من الجدول ولايمكن التراجع فيكون عن طريق Dim strDrop As String strDrop = "ALTER TABLE tbl1 DROP COLUMN test " CurrentDb.Execute strDrop, dbFailOnError وللعادة الحقل يكون عن طريق الدخول على تصميم الجدول واعادة تعريفة او عن طريق الكود وفي جميع الاحول وداعا للبيانات المحذوفة

هذا مثال لك TIME.accdb

جرب هذا الكود ممكن أن يفي الغرض =IFERROR(VLOOKUP(A3;$I$3:$I$28;1;FALSE);VLOOKUP(A3;$L$3:$L$28;1;FALSE)) شاهد المرفق New Microsoft Excel Worksheet1.xlsx

وعليكم السلام ورحمة الله وبركاته ضع شرط if قبل فتح التقرير ليتحقق من ان الحقل ليس فارغ كالتالي if [a1]<>"" then يمكن ولكن ستحتاح الى اكواد وستفقد شىء مهم وهو ربط النموذح الفرعي مع النموذج الرئيسي بحث.rar تحياتي

تفضل ...... ترقيم تلقائي جديد كل سنة مضاف الى الترقيم السنة.mdb

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

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

السلام عليكم ورحمة الله وبركاته لقد أنشأت برنامج بسيط وجمعت به الأكواد التي نسنتخدمها باستمرار وصممته بحيث تكون الواجهة عبارة عن شاشة يتم تجميع بها الأكواد المراد نسخها الي شاشة الفيجوال بيسك لمشاهدة كيف يعمل البرنامج من هذا الرابط بنك الأكواد - demo-24-4-2019.accdb

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم DoCmd.OpenForm "Obectives_form", , , "ID=" & Me.List0 1_2.rar تحياتي

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

خالص أمنياتنا ودعواتنا بأن يزيدك الله من فضله، وتزداد علماً وتقوى استاذ Khalf 🌹

الف مبروك استاذ Khalf

الف الف مبروك استاذ / خلف تستحق كل خير وبالتوفيق ان شاء الله

في استعلام الحذف ضع كلمة true في المعيار اسغل الحقل الذي يحدد السجلات المراذ حذفها عندك

تفضل اخي هذا ملف به جدول بسيط وكود بسيط Sub CopyTables() Worksheets(1).ListObjects("Table1").Range.Copy _ Destination:=Worksheets(2).Range("A1") End Sub copy table.xlsm

والشكر موصول للاستاذ @jjafferr صاحب الكود

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 جزاك الله خيرا على كلماتك الطيبه وما انا الا طالب علم اتعلم معكم اخى @ازهر عبد العزيز وفقكم الله اخى 💐

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

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

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

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

تفضل

دعنا نجرب طريقة اخرى On Error GoTo err: Dim mySQL As String Dim rst As Recordset Dim i As Double mySQL = "Select * From TBtime" mySQL = mySQL & " WHERE id_clreck = " & Me.id_clreck Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) For i = 1 To 1 rst.Edit rst!num_in = rst!num_in + 1 rst.Update Next Me.num_clreck = 1 err: If err.Number = 3021 Then mySQL = "Select * From TBtime" mySQL = mySQL & " WHERE id_clreck = " & Me.id_clreck Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) For i = 1 To 1 rst.AddNew rst!num_in = rst!num_in + 1 rst.Update Next Me.num_clreck = 1 End If TIME.rar من فضلك اعلمني بالنتيجة تحياتي

هذه المعادلة في الحلية C3 من الورقة 2 واسحب يساراُ وتزولاُ =IF(ورقة1!E3=2,ورقة1!$B3,"") الملف مرفق Bilal.xlsx

جرب المرفق واعلامنا بالنتيجة ...... ترقيم تلقائي جديد كل سنة.mdb

اذا اعجبتك الاسماء أرجو ابتكار المزيد مثلها (مع الاسماء المؤنّثة) انصح باضافة هذين السطرين على الكود ( في المكان المتاسب حسب الصورة ) لمسح التكست بوكس المناسب تحضيراً للبحث التالي

منقول rudwan

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

مرحبا اخي الكريم فضلا تجربة الحل المرفق TIME.rar تحياتي

استبدال السطر Me.num_clreck = Nz(DLookup("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1 بالتالي Me.num_clreck = Nz(DLast("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1 TIME.rar تخياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخ الكريم Private Sub id_clreck_NotInList(NewData As String, Response As Integer) MsgBox "غير مسجل", vbCritical, "officena" DoCmd.CancelEvent Me.Undo Response = acDataErrContinue End Sub Private Sub id_clreck_Click() Me.num_clreck = Nz(DLookup("[num_in]", "[TBtime]", "[id_clreck] =" & id_clreck), 0) + 1 End Sub TIME.rar تحياتي

الاستاذ المبدع @husamwahab جزيل الشكر والعرفان لك بصراحة كنت اعتقد انة مستحيل بسبب تاخر الرد شكرا شكرا وشكرا منتدى اوفسينا

مجرد فكرة .. فورم لعمل تقرير (شهري - ربع سنوي - سنوي) مع رسم بياني كثيرا منا يحتاج لعمل تقارير (شهرية - ربع سنوية - سنوية ) للمبيعات , للايرادات , للمصروفات ......... الخ فجاءتني فكرة ( >>> تقبل الخطأ والصواب <<<) لعمل فورم يقوم بجمع بيانات المبيعات ويصنفها شهريا وربع سنوية وسنوية مع عرض الرسم البياني فاحببت ان اشاركها معكم عسي ان يستفيد بها احدا من اخواني بصرحنا العظيم التطبيق بالمرفقات Charts Form.rar

عرض البيانات الشهريه والربع سنوية فى مخطط لاتنسونا بصالح دعاؤكم CHART1(1).rar

إذا كان الأمر كما ذكرت أن عدد أوراق العمل كبير جداً فيمكن عكس الفكرة ..بمعنى وضع أوراق العمل التي لن يتم التعامل معها .. اطلع على الملف التالي .. لعله يكون المطلوب .سيتم التغاضي عن أوراق عمل محددة من خلال سطر من الكود أيضاً .. وما عدا تلك الأوراق سيتم التعامل معها ونسخ البيانات منها Sub CollectDataFromSheets() Dim SH As Worksheet Dim LR As Long Application.ScreenUpdating = False Sheets("شيت مجمع").Range("A3:H1000").ClearContents For Each SH In ThisWorkbook.Worksheets If SH.Name <> "بيان اجمالى " And SH.Name <> "بيان اجمالى شهرى" And SH.Name <> "الترحيل" And SH.Name <> "الصفحة الرئيسية" And SH.Name <> "شيت مجمع" And SH.Name <> "الناسخة" Then With SH .Activate LR = .Cells(300, 2).End(xlUp).Row .Range("B5:H" & LR).Copy With Sheets("شيت مجمع") .Range("B" & .Cells(Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial xlPasteValues .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1 & ":A" & .Cells(Rows.Count, 2).End(xlUp).Row) = SH.Name End With End With End If Next Sheets("شيت مجمع").Activate: Range("A1").Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub تقبل تحياتي Collect Data From Sheets V3.rar

تفضل أخي الحبيب Dynamic Chart.rar

إضافة رائعة لعمل مخطط بياني بشكل جذاب.. تنفع لعمل المسابقات.. الشرح بعد الرد. magic chart.rar

اخواني الاعزاء واستاذتي الفاضل لقد تناول اخواني بالمنتدي موضوعات كثيرة حول استخراج كشف حساب بالاكواد لكن اليوم سوف نتاول معا كشف الحساب عن طريق الفورم مع استخراج قيد اليومية الخاص بحركة معينة وقد استخدمت في الشرح مشاركة سابقة لاخي ومعلمي الاستاذ / عبدالله باقشير (بارك الله فيه وجعل جميع اعماله في ميزان حسناته) وبعد اذن ادارة المنتدي قمت بفتح مشاركة جديدة لتسهيل عملية الوصول للموضوع وحتي يستفيد منه عدد كبير ولسهولة البحث واضفت شرح تفصيلي لكشف الحساب بالفورم في موضوعي ((امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=47476&p=293524 ادعوا الله سبحانه وتعالي اكون وفقت في عرض وشرح الموضوع ولا تنسونا بدعوة بصلاح الحال في ظهر الغيب كشف الحساب.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته هذا ملف بسيط عباره عن سلايد شو يعرض أي شارت موجود في الصفحة الأولى جربوه يمكن تستفيدو منه...! الملف في المرفقات والسلام عليكم chart slide show.rar

اخوتي احبابي في الله السلام عليكم اهديكم اكبر موقع على الانترنت يحتوي على برنامج للكتب الاسلامية يسمى بالمكتبة الشاملة فاليكم رابط التحميل http://www.shamela.ws/download.php وهذا الرابط للصفحة الرئيسة للموقع http://www.shamela.ws/old_site/index.php وأسالكم الدعاء ،،، وبارك الله في الجميع ووفقهم لما يحبه ويرضاه وصلى الله علي سيدنا وحبيبنا محمد

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