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

اضافة لما اشار اليه الاستاذ خليفة ممكن عملها بدون اكواد عن طريقة التنسيق الشرطي بداية نقوم باختيار الحقول التي نرغب في تطبيق الامر عليها ثم تنسيق ثم قاعدة جديد ثم تعبير ونضع فيه التعبير التالي [ss1]="مستمر" ثم اختيار تمكين عدم تمكين الشرح في الصورة المرفقة

عليكم السلام الاخ الكريم ، بما انك بدأتنا بالسلام فانت مسلم هل سمعت بشيء يسمى الربا ان ما تحاول القيام به الآن هو اعانة على الظلم .. فهو الربا الصريح بعينه اعتقد انه لم يخطر ببالك هذا . وفقنا الله واياك لكل خير ورزقنا واياك المال الحلال

السلام عليكم و رحمة الله استخدم هذا الكود Sub ColData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, i As Long Dim Arr As Variant, C As Range Dim p As Long, FSL As String Set ws = Sheets("مجمع") ws.Range("C9:H100")="" FSL = ws.Range("S4") 1 '----------------- On Error Resume Next For Each Sh In Worksheets(Array("Sheet1", "Sheet2", "Sheet3")) LR = Sh.Range("O" & Rows.Count).End(3).Row i = i + LR Next 2 '----------------- ReDim Arr(i, 6) p = 0 For Each Sh In Worksheets(Array("Sheet1", "Sheet2", "Sheet3")) For Each C In Sh.Range("O10:O" & LR) If C.Value = FSL Then Arr(p, 0) = p + 1 Arr(p, 1) = C.Offset(0, -10).Value Arr(p, 2) = C.Offset(0, -6).Value Arr(p, 3) = C.Offset(0, -4).Value Arr(p, 4) = C.Value Arr(p, 5) = C.Offset(0, 1).Value p = p + 1 End If Next Next 3 '----------------- If p > 0 Then ws.Range("C9").Resize(p, 6).Value = Arr 4 '----------------- End Sub

عليكم السلام عسى Private Sub TARHIL_Click() Dim lr&, r&, col& With Sheets("البيانات") lr = .Cells(Rows.Count, 2).End(xlUp).Row + 1 .Cells(lr, 2) = ComboBox1.Value .Cells(lr, .Range("A6:AG6").Cells.Find(Split(TextBox4.Value, "/")(0), , -4163, 1).Column).Resize(, TextBox6.Value) = ComboBox3.Value End With With Sheets("تجميع الغياب") r = .Cells.Find(ComboBox1.Value, , , 1).Row col = .Cells.Find(ComboBox3.Value).Column With .Cells(r, col) .Value = TextBox4.Value .Offset(, 1) = TextBox5.Value .Offset(, 2) = TextBox6.Value End With End With End Sub Book.xlsm

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

بما ان العنوان حضور وانصراف استمع نصيحتي المختصرة اقدمها لك على طبق من ذهب آتمنى ان يستفيد منه كل من يمر من هنا ربما لن تطبقها الآن ولكن احتفظ بها عندما تريد عمل برنامج جديد للحضور والانصراف هذا التوجيه طبقا للبرامج العالمية : ويمكن التوسع فيه بحدود ضيقة 1- عمود واحد للحضور والانصراف ( تاريخ كامل ) يقابله الدالة : NOW 2- عمود لرقم الفترة ( رقمي ) 3- عمود لنوع التوقيع ( حضور / انصراف ) رقمي يتم التطبيق عبر البصمة او قارىء الباركود بالنسبة لبطاقة الباركود فيمكن ان يميز البرنامج بين الفترات من خلال البطاقة الممررة ، التوسع هو ان يكون عمود للحضور وآخر للانصراف من اجل تسهيل التعامل مع الاستعلام ، وهنا يتم الاستغناء عن عمود نوع التوقيع .

The second parameter of List property t = t + Val(.List(i, 3) so change 3 to the column number but pay attention the column numbers in listbox is 0 based so the first column = 0 and the second column = 1 and so on

تمام استاذ محمد او هكذا DoCmd.RunSQL "ALTER TABLE yourtable ADD CONSTRAINT yourtable Primary Key(fld1, fld2)" لمنع التكرار على مستوى حقلين ولن يتم صنع المفتاحين الا اذا تحقق الشرط باحد امرين : اما ان يكون الجدول جديد او تكون البيانات محققة للشرط بحيث لا يوجد تكرار

بسم الله الرحمن الرحيم استكمالا لموضوع ال ListView شرح تفصيلي لأداة ال ListView وكيفية استخدامها والتعامل معها نستكمل الشرح مع درس عملي في كيفية استخدامها والبحث والتعدديل والاضافة وكذلك تغيير طريقة العرض من اليمين لليسار او العكس المثال سهل وبسيط لتوضيح الفكرة وان شاء الله ساشرح المثال تباعا من خلال تجربتكم واسئلتكم المرفقات ListView -ٍsearch.xlsm

السلام عليكم في هذا الملف اريد تجميد حقل تاريخ ترك التعيين و حقل تاريخ اعادة التعيين و حقل قبل اعادة التعيين اذا كانت قيمة الحقل مستمر في الخدمة / اعادة تعيين تساوي مستمر شكراً مقدماً لكل من ساعدني او حاول مساعدتي جديد.accdb

Function UpdateMe() Dim DayNo As Byte, RowTotal As Integer Dim cDay As Control With Screen.ActiveControl If .ControlSource Like "Day*" Then DayNo = Mid(.ControlSource, 4) If DayNo >= 1 And DayNo <= 50 Then Set cDay = Me("Day" & DayNo) Me("Sum" & DayNo) = DSum("Day" & DayNo, "table_BAIN", "ID_Time<>" & Me.ID_Time) + cDay For DayNo = 1 To 50 '------------------------------------------------ If Me("s" & DayNo) = Me("Sum" & DayNo) Then Me("D" & DayNo).Caption = DayNo Me("D" & DayNo).BackColor = RGB(255, 64, 61) Me("DDDD" & DayNo).BackColor = RGB(255, 64, 61) Me("Day" & DayNo).BackColor = RGB(255, 64, 61) Me("Sum" & DayNo).BackColor = RGB(255, 37, 92) Me("S" & DayNo).BackColor = RGB(255, 37, 92) Me("s" & DayNo).ForeColor = RGB(255, 255, 255) Me("D" & DayNo).ForeColor = RGB(255, 255, 255) Me("DDDD" & DayNo).ForeColor = RGB(255, 255, 255) Me("Day" & DayNo).ForeColor = RGB(255, 255, 255) Me("Sum" & DayNo).ForeColor = RGB(255, 255, 255) End If '------------------------------------------------ RowTotal = RowTotal + Nz(Me("Day" & DayNo), 0) Next DayNo Me.total = RowTotal Set cDay = Nothing End If End If End With End Function يفترض أن تعديلك يعمل بشكل صحيح بشرط أن أن قيمة Me("s" & DayNo) تكون صحيحة. في هذا الكود قمت باختصار هذا السطر If Me("s" & DayNo) = DSum("Day" & DayNo, "table_BAIN", "ID_Time<>" & Me.ID_Time) + cDay Then فقط.

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

اهداء الى كبيرنا استاذ جعفر برنامج اثبات الحضور : * يعمل بدقة HD 1920X فقط تسطيع اعادة تصميم برنامج ليتناسب مع جميع الشاشات *لا يوجد اخطاء 1- يعرض كافة ايام الشهر بتحديد السنه اذا كانت السنه الحالية بتحديد اليوم يكون طبقا لتاريخ اليوم بأيام الشهر M/yyyyy *واجهة بسيطة لعرض السريع للتحرير والاذونات برقم المدني القومي او رقم البصمة لليوم ولا تزيد الاذونات عن اربع ايام في الشهر 2- قائمة تسجيل بصمة الدخول من ساعة 7 صباح الى 2-3 ولا يحفظ اذا لم يدرج للاضافي او تعدى وتخطا الوقت المحدد *جدول لكل سنه 12 سجل فقط يحدث آلي بعد شهر 12 لكل سنة جديده 3-اضافة وادراج موظف جديد كنت يا @Moosak عامل صح ليه غيرة P بتحديث استكمال البقية اذا كان للعمر بقية الشعر اسود نقله الى برنامجك تستطيع تطوير بدل من الوقت الى اخر عمليات او عدد الزوار في اليوم او اجمالي المبالغ باللي يناسبك وتستطيع اضافة عرض سنة كامله للموظف نموج في الواجهة فقط صف 12 شهر في فورم واحد تحميل سريع ومباشر ميديا فير size 3M https://download1523.mediafire.com/w5zzv077dgcg4wIzf0VOD5uF2rHmnJ5XAyK8x2GsC47oCLLzafCgvo54MOtBj2tnUW7y1VxB5POKaJf0og0g7riF8hw/dywzk6furjcvqty/Ezril-+Chake-UpDate-Date().rar Ezril

السلام عليكم و رحمة الله هذه الجزئية فى الكود السابق من شأنها مسح البيانات السابقة قبل ترحيل الفصل المطلوب ws.Range("C9:H100")="" اعد نسخ الكود مرة اخرى و سوف تراها

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

كلامك صحيح مئة بالمئة عارف المشكلة اين أخي @ابوخليل كيف يمكن من خلال جدولة التمييز بين الفترات !!!! فلذلك التصميم الصحيح للجداول مهم جدااااااااااااا اخي @ابو مهند شتية هل هنا جدول لتوزيع دوام الموظفين ..... بمعنى انا موظف لديك .... كيف اعرف ايام وفترات دوامي ؟؟؟؟ هل هنا جدول اسبوعي مثلا لتغيير هذه الفترات او شهري اوووووو .... كيف يمكن معرفة ان دوام kanory غدا 7 صباحا مثلا وليس 9 صباحا

اخي @ابو مهند شتية ممكن تزيد من عدد البيانات الموجودة في الجدول حتى نستطيع مساعدتك في هذه المشكلة ..... لاني ارى هذا الموظف بياناته مختلفة عن سابقة ... انظر .... لا حظ الموظفين ( 1001 - 1005 ) لديهم خروج دوام اول اما الموظف ( 1009 ) ليس لديه خروج دوام اول هل هناك حالات لموظفي اخرين بنفس الطريقة أم هي غلطة مطبيعة .... لانها جزء من الحل الذي افكر فيه ... ارجو التوضيح .... بارك الله فيك

جرب اضافة مكتبة الاوت لوك

حياك الله

وعليكم السلام 🙂 سبقتني إليها أخي أحمد 😄 وهذه مشاركتي .. 🙂 Database1 (3).rar

مشكلة توافق 64 و 32 بت حل الرسالة الآتية : "Compile Error: The code in this project must be updated for use on 64-bit system. Please review and update Declare statements and then mark them with the PtrSafe attribute." قم بالبحث والاستبدال "Private Declare" واستبدلها بالعبارة الآتية "Private Declare PtrSafe" قم باستبدال declare Function الي declare PtrSafe Function

السلام عليكم عذرا لكافة الاخوة الاعزاء سؤالي للاخ @ابراهيم_ هل هو برنامج لحساب خدمة الموظف؟ اذا كان كذلك من الافضل عمل :- 1- خدمة الموظف 2- فترة الانقطاع 3- اضافة خدمة وهذه تنقسم لعدة اقسام ( عقد وغيرها) 4- المجموع النهائي للخدمة تحياتي

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

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

اعتذر عن الفهم الخاطىء مثال على العبارات التي توحي باكثر من معنى

شكرأ جزيلاً اخي العزيز رحم الله و الديك نعم هذا هو قصدي 🌺 شكرأ لك اخي العزيز تم حل المشكلة

عمي قاسم .. أحياناً نستغرب من وجود بعض الأوامر المتاحة في ال VBA حتى تدور الحاجة إليها 🙂 مثلي تماما .. كنت مستغرب من الحاجة لأمر فتح النموذج في وضع التصميم ؟!! حتى علمت أن هناك أكواد تسهل عملية إضافة عناصر للنموذج وتسميتها فتسهل لك أيما تسهيل .. أما بالنسبة لعمل المفاتيح الأساسية لجدول معين حسب ما أتصور يفيد عندما تريد عمل تعديلات على جداول ملف قاعدة البيانات الخلفية BE عن بعد للعميل مثلاً دون الحاجة لنقله عندك .. فبأوامر الNBA سيتم التغيير بسهولة 🙂

هل هذا ماتقصده أخي اليك المرفق . جديد-1.accdb

اهلا بك استاذ @ابراهيم_ ممكن توضح اكثر ... ياريت تعطينا مثال لشخص معين هاي اول مرة تمر علي ...اخوك هم عراقي بس اريد افتهم شنو الموضوع لم يسبق لي ان مرت علي هكذا امور !!

هو ممكن ..كما قال الاستاذ @محمد احمد لطفى لكن مالفائدة منها ؟

بصراحة يا اخي ملفك معظمه مشاكل ..وناس داخلة في ناس وعامل مكتبات مافيها داعي ..ولو انك قبل اسبوع بادي مشروعك بجدولين ..الحين كان اكتمل برنامجك استوردت الجداول والنماذج التي احتاجها ..لان ملفك عمل عندي حالة نفسية☺️ نصيحتي خلي تكون هاي بدايتك ..رغم فيها(تحفظ) وبعدها كل مرحلة افتح بها مشاركة لتكون الاجابة سريعة تحياتي q1.rar

جرب CurrentDb.Execute "ALTER TABLE your_table_name ADD CONSTRAINT your_pk_name PRIMARY KEY(id1, id2);"

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

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

الحمد لله بسيطه اخى الفاضل اكتب رقم الفاتوره واضغط ع زر الحفظ مباشره بالتوفيق InvoiceSale_10-1_2.accdb

الملف النهائي نسخة من زر ينبثق منه ازرار(1)(1).xlsm

المعادلة السابقة عند تساوى الوقت معا ولكن عندما يكون التاريخ والوقت يساوى للتاريخ والوقت أيضا يتم استخدام المعادلة التالية =IF(AND(B1=B2,C1=C2),MAX(D1:D2),"")

رفع الله قدرك في الدنيا والاخرة اخي واستاذي الفاضل

بالتوفيق استاذ محمد والشكر لله واتمنى تعديل افضل اجابة لمعلمي واستاذي ابوخليل لكونه صاحب السبق اخيرا في مثل هذه الحالات التي تتساوي فيها مسميات حقول الجدولين يمكن عدم كتابة اسماء الحقول باستبدال Me.itemname = rs!itemname Me.itemdesc = rs!itemdesc Me.itemqty = rs!itemqty Me.dateee = rs!dateee الى For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl.Value = rs.Fields(ctl.Name) وفي هذه الحالة عدد الحقول اربعة فقط وتكون طريقة الحلقة مفيدة اكثر عندما يكون لدينا عدد كبير جدا من الحقول وتفيد ايضا لتجنب الخطأ في كتابة اسماء الحقول الامر بعد التعديل Dim x As Integer x = DCount("*", "table2", "[itemcode]=" & Me.itemCode) If x > 0 Then GoTo a Else GoTo b End If b: Me.Refresh Dim rs As Recordset Dim strsql As String Dim ctl As Control strsql = "SELECT Table1.* FROM Table1 WHERE Table1.[itemCode]=" & [Forms]![AdditemPerCode]![itemCode] Set rs = CurrentDb.OpenRecordset(strsql) For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then ctl.Value = rs.Fields(ctl.Name) End If Next ctl rs.Close GoTo c a: MsgBox "الصنف سبق الحاقة" Me.Undo GoTo c c: Exit Sub الملف مرفق Database3(1).accdb

The code is working well on my side I had a look on the attachment and found that you have changed 3 to 9 in that line t = t + Val(.List(i, 3))

Try this code Private Sub ComboBox1_Change() Dim t As Double, i As Long With Me.ListBox1 For i = 0 To .ListCount - 1 If .List(i, 1) = ComboBox1.Value Then t = t + Val(.List(i, 3)) End If Next i End With Me.TextBox10.Value = t End Sub

عذرا اخي العبيدي على التأخير ..الان انتبهت احتمال اسم السند مأخوذ من جدول ثاني والحقل الاول فيه رقم معرف..ولهذا لايتعرف على اسم السند

أساتذتي يعمل الكود الأول ويعطيني النتائج كاملة في الكمبوبكس الأول والثاني . أما الكود الثاني استدعيته بزر مع استبدل السطران الاخيران يعني خليت (next) اخر سطر وكانت النتائج كما بالصورة المرفقة مع البرنامج . تسلم ايدك أبو خليل . deskDb-1.rar

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

شكرا أخ عبدالله ولمزيد من مواصفات الأكسس الجبارة أحيلك إلى شركة مايكروفوست صاحبة البرنامج https://support.office.com/en-us/article/Access-2010-specifications-1e521481-7f9a-46f7-8ed9-ea9dff1fa854 ومواصفات الأكسل الجبارة من شركة مايكروسوفت أيضا https://support.office.com/en-us/article/Excel-specifications-and-limits-1672b34d-7043-467e-8e27-269d656771c3

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

السلام عليكم للأسف كل المقالات التي قرأتها حول الفرق بين الأكسل والأكسس غير مضبوطة تماما فعندما يكون الشخص محترف الأكسل تجد أنه يفضله على الأكسس ويقلل من أهمية الأكسس والعكس صحيح مما يجعل القاريء في حيرة ولكن لنرى ماذا يقول أصحاب الشأن شركة مايكروسوفت المنتجة للبرنامجين أعدت مقارنة بينهما وعندما تقرأ هذا المقال ستلاحظ أن لكل منهما مزايا وتتحدد الأفضلية بينهما ينوع البيانات التي يريد أن يتعامل معها المبرمج لاحظ هذا المقال من أصحاب الشأن حتى تخرج بنظرة واقعية وصحيحة https://support.office.com/ar-sa/article/%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D8%A7%D9%85-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-Access-%D8%A3%D9%88-Excel-%D9%84%D8%A5%D8%AF%D8%A7%D8%B1%D8%A9-%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA-09576147-47d1-4c6f-9312-e825227fcaea

اخي العزيز kemas في البداية نرحب بك في منتدى اكسس ثانيا في اعتقادي ان من يستخدم اكسس لابد له ان يكون قد مر عبر نافذة الاكسل بحيث لا ينتقل الى اكسس الا بعد ان يشعر ان امكانيات الاكسل لم تعد تتناسب مع حجم او طبيعة عمله (هذا من واقع تجربتي الشخصية وقد يخالفني احدهم الرأي) وسأحاول ان ارد على تساؤلاتك بشكل مبسط بحسب رأيي والذي هو رأي هاوي غير محترف من حيث التشابه: يتشابه البرنامجين في بيئتهما البرمجية فالاثنان يعملان في بيئة VBA وبالتالي فإن اي دالة تصمم في اكسس يمكن تنفيذها في اكسل وحتى وورد وهذا ما جربته شخصيا بدالة تفقيط لدي ولكن الاختلاف يكون في طريقة استخدامها ففي اكسل تتعامل مع الخلايا بينما في اكسس تتعامل مع الحقول اما من حيث الاختلاف: 1- الاكسس يستعمل كقاعده بيانات علائقية اي قاعدة بيانات تحتوى على اكثر من جدول تربط بينها علاقات (تختلف بحسب نوع العلاقة بين الجداول وهذه شرحه يطول قليلاً)بينما في الاكسل لا يمكن عمل علاقة بين ورقتي عمل 2- الاكسس يمكنه حمل كميه معلومات اكبر من الاكسل حيث ان عدد السجلات في جدول اكسس غير محدود طالما كان حجم القاعدة في اطار الاثنين جيجا بينما الاكسل محدد بـ(65000) سجل للورقة بحسب اعتقادي 3- يمكن في الاكسس استعمال اكثر من مستخدم لقاعده بيانات واحده عبر الشبكة بينما الاكسل لا يمكنه ذلك بالإضافة الى انه في اكسس يمكن التحكم بمدخلات المستخدم بحيث يتم الحد من الاخطاء فلا يمكن ادخال نص في حقل رقمي مثلا ولا يمكن الكتابة في حقل محتسب اي ان المبرمج او المصمم هو المتحكم وليس المستخدم بينما في اكسل يمكن للمستخدم الكتابة فوق الخلية المحتسبة . هذه اهم ماخطر في بالي حاليا ولكن في الاخير يمكن ان اقول لك ان اكسل برنامج فردي بينما اكسس اوسع قليلا ولايمكن لمستخدم اكسس الاستغناء عن اكسل في احيان كثيرة ارجو ان اكون قد اوضحت ولم اقصر واذا كان لاي شخص اضافة ارجو ان لايبخل بها تحياتي,,,