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

اتفضل اخفار واظهار.accdb

كود لاخفاء الجداول والاستعلامات كلمة السر 123 Dim db As Database Dim obj As AccessObject, dbs As Object Dim tdf As TableDef Dim qry As QueryDefs Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllTables Set tdf = db.TableDefs(obj.NAME) If left(tdf.NAME, 4) <> "msys" And tdf.Attributes <> 1073741824 Then tdf.Attributes = tdf.Attributes + dbHiddenObject End If Next For Each obj In dbs.AllQueries SetHiddenAttribute acQuery, obj.NAME, True Next obj Application.SetOption "Show Hidden Objects", 0 Application.SetOption "Show System Objects", 0 Set tdf = Nothing db.Close Set db = Nothing وهذا اظهار الاستعلامات Retry: TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) Dim MyPassword As String str_Title = "كلمة السر مطلوبه" str_Prompt = "أدخـل كـلـمـة الـسـر لاظهار الجداول والاستعلامات" MyPassword = InputBox(str_Prompt, str_Title) Select Case MyPassword Case "123" Beep MsgBox "الأن... يـمكـنـك اظهار الجدالول", vbOKOnly + vbInformation Case Else Beep If MsgBox(" عــفــوا .. كــلــمــة الــســر خــاطــئــة " & vbCrLf & " مــن حــســن إســـلام الـمــرء تــركــه مــا لا يــعــنــيــه ", vbInformation + vbRetryCancel) = vbRetry Then GoTo Retry Exit Sub MsgBox "تم الرجوع", vbInformation, "إلغاء العملية" End Select Dim db As Database Dim obj As AccessObject, dbs As Object Dim qry As QueryDefs Set dbs = Application.CurrentData Set db = CurrentDb For Each obj In dbs.AllQueries SetHiddenAttribute acQuery, obj.NAME, False Next obj Set dbs = CurrentDb For Each tdf In dbs.TableDefs If left(tdf.NAME, 4) <> "msys" And tdf.Attributes <> 1073741824 _ And tdf.Attributes = 1 Then tdf.Attributes = tdf.Attributes - dbHiddenObject End If Next tdf Set dbs = Nothing db.Close Set db = Nothing

بعد اذن اخي الوزير تصحيح فقط لانه عمله على كود vb ويفرق بينهم , وهذة ; =Nz(DSum("[Price]";"[selling]";"[selling Case]<>'deleted '");0)

وعليكم السلام ورحمة الله وبركاته تفضل: استخدم هذا الكود =DSum("[Price]","[selling]","[selling Case]<>'deleted '")

عندي برنامج مخازن جاهز لو عايزه مجاني ابعت لي الاميل بتاعك و شوف التصميم فيه و حسيبه لك مفتوح ده رقمي 01062941941 hazem.elsayed@gmail.com أنا عدلت لك مشكله التاريخ معلش مش عارف ارفع لك الملف بتاعي لان حجمه اكتر من 1 ميجا و الموقع رافض يرفعه أنا مش فاهم تصميمك كويس بس المفروض اي قيمه افتراضيه تظبطها من الجداول مش من النماذج والموقع مش راضي يرفع الملف بعد التصحيح

تفضل: حسب ما فهمت قاعدة البيانات61.rar

الله يعطيك العافية كلك ذووق

احسنت التعبير ،،،

أسف أخي الكريم ..... ولكن ما الحكمة من وجود الصورة المطلوبة .... لأن معرفة السبب يجعلنا البحث عن طريقة لذك ؟؟؟؟

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، وهي شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel فتابعونا. شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel؟ نبدأ أولا بمعرفة القواعد النظرية الرياضية التي اعتمد عليها الشرخ. الحدث application.ontime يستخدم في تنفيذ إجراء معين في وقت معين. مثال: تنفيذ الإجراء masclock بعد ثانية من الآن Application.OnTime Now + TimeSerial(0, 0, 1), "masclock" نأتي للساعة العقارب تعتمد على أن عثرب الساعات يمشي 30 درجة في الدائرة 360 درجة كل ساعة من خلال المعادلة التالية ثم نحسب زوايا الساعات والدقائق والثواني = 6 * عدد الثواني وهكذا ثم نوزع الضرب على الجمع ونختصر فتكون ونتعرف أيضا على: استدعاء ماكرو عند فتح مصنف إكسل ماكرو يستدعي نفسه ويكرر نفسه طريقة ونظرية برمجة عقارب الساعة رياضيا حساب إحداثيات نقطة بدلالة زاوية وطول الضلع على محور السينات X axis ومحور الصادات Y axis إضافة خلفية الرسم البياني Char إظهار محتوى خلية في شكل تلقائي auto shape كتابة معادلة في الشكل التلقائي لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو شرح برمجة ساعة رقمية و عقارب في اكسل digital and analog clock in excel الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 و 2003 الملف المستعمل في الشرح في المرفقات ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك mas digital and analog clock.rar

من الملفات القديمة التي تمت مشاركتي لها والتي تطلب غالباً كيف نحمي الخلايا غير الفارغة بواسطة باسوورد (الباسورد في الملف / الخلية H3/ يمكن حفظة و مسحه عن عيون الفضوليين) مع حرية الغاء الجماية كما تشاء protect non empty data with Pass word.xlsm

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

عوامل النجاح كثيرة ونحتاجها لكي ترشدنا إلى النجاح في الحياة أو في العمل أو في الدراسة، ولذلك جمعنا لكم أهم عوامل النجاح التي أشاد بها فضيلة الشيخ محمد نبيه في أحد مؤلفاته. # الكيس من دان نفسه وعمل لما بعد الموت، والعاجز من أتبع نفسه هواها وتمنى على الله الأماني. # أجمل السواعد سواعد العمال، وأحسن الرءوس رءوس المحلقين، وأهنأ النعاس نعاس المتهجدين، وأطهر الدماء دماء الشهداء. # الذي يقهر نفسه أعظم ممن يفتح مدينة، والذي يقاوم هواه أجل مِمَن يحارب جيشاً. # كن رجلاً رجله في الثرى وهامة همته في الثريا. # لا تسقني ماء الحياة بذلةٍ بل فاسقني بالعز كأس الحنظلِ. # إن الماء الراكد يأسن، وإن البلبل المحبوس يموت، وإن الليث المقيد يذل. # ألذ طعامٍ ما كان بعد جوع، وأعذب ماءٍ ما كان بعد ظمأ، وأجمل نجاحٍ ما كان بعد تضحية. # إن الكتب تلقن الحكمة ولكنها لا تخرج حكماء، والسيف يقتل لكنه بكف الشجاع. # السباحة لا تتعلم في الدفاتر ولكن في الماء، والرياضة لا تتلقى من الشاشة لكن في الميدان. # الدنيا تؤخذ غلاباً، وسوق المجد مناهبة، والحياة صراع. # العلياء تُنال بالعزائم، من عنده همةٌ متوقدة، ونفسٌ متوثبة، ونشاطٌ مغوار، وصبرٌ دائم فهو الفريد. # قيل لأبي مسلم الخرساني: ما لك لا تنام؟ قال: همةٌ عارمة، وعزيمةٌ ماضية، ونفس لا تقبل الضيم. # أسرع الفرس فركبه الملوك، وتبلد الحمار فركبه العبد، وافترس الأسد فملك الغابة. # عليك بالمشي والرياضة والنظافة، فإن الناجحين أقوياء أصحاء. # [بارك الله لأمتي في بكورها] فإذا أردت عملاً فعليك بالصباح فإنه أسعد الأوقات. # لا تقف فإن الملائكة تكتب، والعمر ينصرم، والموت قادم، وكل نفسٍ يخرج لا يعود. # من زرع (سوف) أنبتت له (لعلَّ) وأطلعت له (بعسى) وأثمرت (بليت) لها طعم الندامة ومذاق الحسرة. # إذا أصبحت فلا تنتظر المساء، وبادر الفرصة، واحذر البغتة، وإياك والتأجيل والتردد، وإذا عزمت فتوكل على الله. # الإبداع أن تجيد في تخصصك، وما يناسب مواهبك فـ ﴿قَدْ عَلِمَ كُلُّ أُنَاسٍ مَشْرَبَهُمْ﴾ ، ﴿وَلِكُلٍّ وِجْهَةٌ هُوَ مُوَلِّيهَا﴾. # لا يضير الناجحين كلام الساقطين فإنه علوٌ ورفعة، كما قال أبو تمام: وإذا أراد الله نشر فضيلةٍ طويت أتاح لها لسان حسودِ. # النقد الظالم قوةٌ للناجح، ودعاية مجانية، وإعلانٌ محترمٌ له، وتنويه بفضله: وإذا أتتك مذمتي من ناقصٍ فهي الشهادة لي بأني كاملُ. # الناجح منتج يقوم بمشاريع يعجز عنها الخيال، وهكذا شأن عظماء الرجال. # الناجح لا يعيش على هامش الأحداث، ولا يكون صفراً بلا قيمة. # من كانت همته في شهواته وطلب ملذاته كثر سقطه وبان خلله، وظهر عيبه وعوره. # من خدم المحابر خدمته المنابر، ومن أدمن النظر في الدفاتر احترمته الأكابر. # من خلق الناجح التفاؤل، وعدم اليأس، والقدرة على تلافي الأخطاء، والخروج من الأزمات، وتحويل الخسائر إلى أرباح. # القطرة مع القطرة نهر، والجنيه مع الجنيه مال، والورقة مع الورقة كتاب، والساعة مع الساعة عمر. # أمس مات، واليوم في السباق، وغداً لم يولد؛ فاغتنم لحظتك الراهنة؛ فإنها غنيمة باردة. # المؤمن لا يخلو من عقلٍ يفكر، ونظرٍ يعبر، ولسانٍ يذكر، وقلبٍ يشكر، وجسدٍ على العمل يصبر. # الناجح يحترمه أطفال بلده، والفاشل يسخر منه كل الناس حتى ولو اعتذر لهم ملايين المرات. # من بكر في طلب العلم بكور الغراب، وصبر صبر الحمار، وعزم عزيمة الليث، واختلس الفرصة اختلاس الذئب، حصل علماً كثيراً. # الكسلان محروم، والعاطل نادم، ومن صال وجال غلب الرجال. # استعذ بالله من خسة الهمم، وسفاهة العزائم، وسخف المقاصد، وثخانة الطبع، وبلادة النفوس. # الناجح يأنف من الرزايا، ولا يتحمل الدنايا، ووقت الراحة له عمل، ووقت العمل له راحة. # الفراغ مفسدة، والمباحات مشغلة، وأكثر الناس مثبطون، والولد مجبنةٌ محزنةٌ مبخلةٌ. # الناجح يرضى عنه ربه بالإيمان، وأهله بالألفة، والناس بالأخلاق، والمجتمع بالنفع. # إذا غامرت في شرفٍ مرومٍ فلا تقنع بما دون النجومِ. # ومن تكن العلياء همة نفسه فكل الذي يلقاه فيها محببُ. # لأستسهلن الصعب أو أدرك المنى فما انقادت الآمال إلا لصابرِ. # لولا لطائف صنع الله ما نبتت تلك المكارم في لحمٍ ولا عصبِ. # من يهن يسهل الهوان عليه ما لجرحٍ بميتٍ إيلامُ. # سر على الدرب فكل من سار على الدرب وصل.

السلام عليكم معلش استفسار تانى اولا :لاحظت على نموذج كارت الصنف عند اختيار صنف رصيده اول المدة صفر وليس له وارد او منصرف يكون الناتج خطأ مثال الصنف (سيلكون ابيض و فرشاة دهان 5 انش ) ثانيا : اريد عمود فى نموذج الصرف... يظهر بعد الكمية المنصرفه.... يظهر فيه الرصيد المتاح حاليا... الذى يوجد فى كارت الصنف او نموذج الرصيد ثالثا : اريد فى خلية (من تاريخ) ...الموجوده فى نموذج كارت الصنف ان يكون التاريخ الافتراضى فيها هو تاريخ اول العام 1-1-2018 ( عندما اكتبه فى القيمة الافتراضية يظهر تاريخ اخر لا اعرف لماذا ) رابعا : فى نماذج الصرف والاضافة عند الانتقال من فاتورة والتى تليها او تسبقها ...تنتقل الى السجلات فى نفس الفاتورة ... وانا اريدان انتقل الى الفاتورة السابقة او التالية بمجرد الضغط على مفاتيح التنقل اسفل النموذج ... كما ان بيانات الفاتورة لا تظهر برجاء المساعدة فى حل المطروح مع بيات كيفيه عمله معلش الطلبات كتيرة ولكنى اريد ان انهل من علمكم وبارك الله فيكم مخزن سيد_2.rar

بداية كل عام وانتم والأمة العربيّة والاسلامية بخير طلب مني احد الأصقاء تنظيم الديون في محله لمعرفة كل زبون ما عليه بالاضافة الى جرد ديون زبون محدد (حسب الاختيار من قائمة منسدلة) فكان هذا الملف الذي عسى ان يستفيد منه اكبر عدد من الأعضاء ورقة العمل محمية لعدم العبث بالمعادلات عن طريق الخطأ في الملف (بدون باسبوورد) تستطيع الكتابة فقط في العامودين C & D حتى الصف رقم 100 و استخدام القائمة المنسدلة في الخلية F2 لتوسيع نطاق العمل يجب التعديل على المعادلات و هذا شيء بسيط لمن يريد نطاق أكبر للعمل الأسماء في جدول الجرد مرتبّة حسب قيمة الديون تنازلياً (وهنا المعادلات تلعب دورها) اذ انه ليس مجرد SumIfs القائمة المنسدلة في F2 "مطاطة" بمعنى انها: 1-تتجاهل الفراغات 2- لا تذكر الاسم المكرر الا مرة واحدة 3- تستجيب لاي تعديل او تغيير في الجدول الرئيسي Salim_Sum WITH PROTECTION.xlsx

جرب: لكن على ما اعتقد اننا نحتاج الى شرط اخر سوف تخبرني عنه عند إضافة اصناف Abu Zaher55.rar

بارك الله في الجميع

ربما تفيد هذا المعادلة في تحديد عنوان الخلية التي يجب اخفاء عامودها المعادلة (Ctrl+Shift+Enter) =ADDRESS(1,MATCH($A$1&"*"&$B$3,$G$1:$X$1&"*"&$G$15:$X$15,0)+6) تم وضع النجمة للتفريق بين الارقام المتتالية مثلاً التاريخين (1 31 و 11 3) بدون النجمة يظهران 311 و 311 متساويان امام الدالة Match اما مع النجمة يظهران 1*31 و 11*3 (مختلفان)

حياك الله اخي أبو زاهر تفضل : فقط استخدم هذا الكود: =DSum("[Alkmiah]","Hrakatsanf","[ID_Sanf]='" & [ID_Sanf] & "'") Abu Zaher.rar

في اي امر تختارة في النموذج

تفضل اخى الكريم -طبعا بعد اذن استاذى سليم salim.xlsx

بوركت أخي الكريم وجعل الله بميزان حسناتك

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

حرب هذا الملف Salim الدنيا.xlsx

تفضل .... test 5 500 (4).mdb

السلام عليكم ورحمة الله حل آخر بالمعادلات باستعمال الدالة OFFSET... بن علية حاجي Book1_1.xls

الحمد لله وقل ربي زدني علما

السلام عليكم لدى قاعدة بيانات وبها جدولين احدهم لحسابات العملاء بالتفصيل والآخر لأوراق القبض الخاصة بهم اريد عمل نقرير به اجمالى الرصيد ( المدين - الدائن. - أوراق القبض ) لكل عميل والرصيد النهائى وقد أرفقت الملف الرجاء تنفيذ التقرير مع مراعاة اننى مبتدأ فى الأكسس واحاول ان اتعلم bahaa.accdb

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

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

تفضل اتوقع هذا طلبك bahaa.accdb

يمكن الحل هنا _salim اجازات.xlsx

حرب هذا الكود Option Explicit Sub Salim_Transform() If ActiveSheet.Name <> "Data" Then Exit Sub Dim i%, k%: k = 3 Dim C%: C = 1 i = 1 Range("c3").CurrentRegion.Offset(1).ClearContents Do Until Range("A" & i) = vbNullString Cells(C + 1, k) = Range("A" & i) k = k + 1 If k = 6 Then C = C + 1: k = 3 i = i + 1 Loop End Sub الملف مرفق Salim_transforme.xlsm

تفضل اخى officena.rar

السلام عليكم: آسف على الإطالة لأنني مشوش قليلا و ربما سوف أغادر عالم الأكسس إلى عالم VB.NET هذا شكل الكود الجديد: On Error Resume Next Dim req As String Dim x1 As String, x2 As String, x3 As String, x4 As String Dim xkamiah As Double Dim xprix As Currency Dim xsafi As Currency Dim xkhasm As String Dim xtotal As Currency DoCmd.DeleteObject acTable, "zaher11" Dim PathImg As String Dim fpath As Variant With Application.FileDialog(3) .Title = "CIE? C?E????" .Filters.Clear .Filters.Add "txt", "*.txt" .AllowMultiSelect = False .InitialFileName = "d:\" If .Show = -1 Then PathImg = .SelectedItems(1) End If End With '----------------------------------------------------------- DoCmd.TransferText acImportDelim, (";"), "zaher11", PathImg req = "Delete From zaher11 where isnull(f1);" DoCmd.SetWarnings False DoCmd.RunSQL req DoCmd.SetWarnings True '---------------------------------------------------------------- Dim rst As DAO.Recordset Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [zaher11]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If DCount("*", "[alsnaf]", "[id_sanf]='" & Right(rst!f1, 11) & "'") > 0 Then Me.frmSub_sra.SetFocus DoCmd.GoToRecord , , acNewRec x1 = Trim(Mid(rst!f1, 1, Len(rst!f1) - 11)) xkamiah = Right(x1, InStr(1, rst!f1, " ")) x2 = Trim(Mid(x1, 1, Len(x1) - Len(xkamiah))) xprix = Right(x2, InStr(1, x2, " ")) x3 = Trim(Mid(x2, 1, Len(x2) - Len(xprix))) xkhasm = Right(x3, 6) ') MsgBox x3 & "(" & xkhasm & ")" x4 = Trim(Mid(x3, 1, Len(x3) - Len(xkhasm))) xtotal = Right(x4, InStr(1, x4, " ")) ' ) x5 = Trim(Mid(x4, 1, Len(x4) - Len(xtotal))) xsafi = Left(rst!f1, InStr(1, rst!f1, " ")) [frmSub_sra].Form![ID_Sanf] = Right(rst!f1, 11) [frmSub_sra].Form![Sanf] = DLookup("Sanf", "[alsnaf]", "[id_sanf]='" & Right(rst!f1, 11) & "'") [frmSub_sra].Form![Alkmiah] = xkamiah 'Right(rst!f1, InStr(1, rst!f1, " ")) [frmSub_sra].Form![äÕ63] = xprix [frmSub_sra].Form![äÕ67] = Replace(xkhasm, "%", "") [frmSub_sra].Form![Asafi] = xsafi 'DLookup("Price_Sales", "[alsnaf]", "[id_sanf]='" & Right(rst!f1, 11) & "'") [frmSub_sra].Form![mjmo] = xtotal End If rst.MoveNext Next i و هذا المرفق بعد التعديل الاستاذصالح حمادي.rar

بالتوفيق أخي الكريم

حياك الله .... أنظر الصورة .... الحمد لله رب العالمين

احسنت اخي عبد اللطيف شكراً جزيلاً

تفضل 33.accdb

أهلا بك اخ كريم فى المنتدى تفضل هذا الملف STORE.xlsx

جزاك الله خير وجعله في ميزان حسناتك وكل عام أنتم بخير

أخى الكريم كل عام وانتم بخير من فضلك استاذى الكريم يمكنك استخدام خاصية البحث فى المنتدى قبل طرح السؤال-فهناك عدة مشاركات من قبل اساتذة وخبراء ناقشت هذه الجزئية ومنها : https://www.officena.net/ib/topic/81962-شرح-برمجة-ساعة-رقمية-و-عقارب-في-اكسل-digital-and-analog-clock-in-excel/ https://www.officena.net/ib/topic/64708-السّاعة-الرقمية/ وهذه هى الملفات : clocks.xlsm mas digital and analog clock.xlsm

بارك الله فيك وزاداك الله علما اجيت فوق الجرح هذا ما اريده الله يجزيك كل خير ممتاز يابو محمد الف الف شكر يالغالي

السلام عليكم ورحمة الله أقدم لك الملف التالي بعد التعديل حيث نقوم باختيار عدد الفرق (16 على الأكثر) وعدد المجموعات (4 على الأكثر) بطريقة يدوية ثم نقوم بـ "اقتراح جدول للمباريات" بملء الجدول الخاص بذلك باستعمال الملاحظة الموجودة أعلى الجدول حسب عدد الفرق في كل مجموعة... أرجو أن يفي هذا لما تصبو إليه... بن علية حاجي عملية قرعة للفرق.rar

توجد العديد من البرامج التي تقوم بأخذ لقطة للشاشة و حفظها منها Snagit و ايضا الاداة التي تاتي مع الويندوز و المسماة Snipping Tool

تفضل أخى كشف الحضور والغياب والفصل.rar

السلام عليكم ورحمة الله من فضل السادة اعضاء المنتدى في ملف الاكسس المرفق، يواجهني تحديان الاول: وهو ان الاستعلام الذي يحمل اسم"رصيد الصنف" لم يستنتج رصيد الصنف "بنسان ازرق" لان الصنف لم تسجل له عمليات البيع..فكيف يمكن مواجهة هذا التحدي؟ الثاني: كيف يمكن تقييد المستخدم عند ادخال الكمية المبيعة في جدول المبيعات بان يلتزم بان يكون الرقم المدخل اقل من رصيد الصنف؟ التجريبي الاخير.rar