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

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

السلام عليكم هي فكرة بسيطة لكنها من وجهة نظري عملية وسهلة التطبيق وتتم بالتحكم واحتساب عدد السجلات المدخلة في جدول محدد وليكن جدول الادخالات اليومية ------------------------- على اعتبار ان البرنامج تم تقسيمه الى 1- واجهات و 2- قاعدة جداول خلفية ، وهو شرط ، للمحافظة على بيانات العميل التي سبق ادخالها في النسخة التجريبية . ----------------- المثال المرفق هو لتوضيح الفكرة : حاول ان تدخل اكثر من اربع سجلات يمكننا ان نضع حد اعلى للسجلات بحسب نوع واستخدامات البرنامج 100 او 200 او اكثر من ذلك Dim i As Integer i = DCount("id", "tbl1") If i >= 5 Then MsgBox "انتهت الفترة التجريبية .. لشراء نسخة الكاملة اتصل على ..." DoCmd.Quit End If db1.mdb

جرب هدا المثال تم عمل نمودج للادخال بكود الصنف وعند ظغط على القائمة يتم ادراج كود الصنف Pos_Systm.rar

السلام عليكم وددت أن أشارك هذا الموضوع بملف يقوم بالعمل نفسه لكن بالمعادلات (غير أن النتائج المنتظرة محدودة في النطاق A6:DZ1005 أي من 130 عمود و 1000 سطر)... أضفت بعض التنسيقات على الصف 4 (تنسيقات على الخلايا) و الصف 5 (تنسيق شرطي للتلوين)... بن علية حاجي Num_Table_Formulas.xlsx

بارك الله في جهودكم جميعا ولإثراء الموضوع يمكن جعل تنسيق حقل النسبة percent أي نسبة مئوية واستعمال هذه المعادلات البسيطة للحصول على جميع الحقول Nesba = [Buy] / [Sale] Buy = [Sale] / (1 + [Nesba]) Sale = [Buy] * (1 + [Nesba]) وفقنا الله جميعا لكل ما يحب ويرضى ولا تنسوني من صالح دعائكم

بارك الله فيكم جميعا وفي جهودكم وبناء عليه: يمكن كتابة الكود بالفاصلة (,) أو الفاصلة المنقوطة (;) حسب إعدادات الجهاز وإذا لم تفلح الفاصلة ستفلح معك الفاصلة المنقوطة وفقنا الله جميعا لكل خير

السلام عليكم إخواني الكرام .. كل عام وأنتم بخير .. كل عام وأنتم إلى الله أقرب أحب أن أقدم سلسلة دروس بسيطة للمبتدئين فيما يخص القوائم المنسدلة ..راجيا من الله عزوجل أن ينتفع بها كل مسلم إليكم إخواني الجزء الأول .. إنشاء القوائم المنسدلة 1.rar إليكم إخواني الجزء الثاني وهو لا يختلف كثيرا عن الجزء الأول .. إنما هو مثال آخر تأكيدي بشكل مختلف قليلا إنشاء القوائم المنسدلة 2.rar الأخوة الكرام أقدم لكم الجزء الثالث متمنياً لكم دوام الصحة والعافية وكل عام وأنتم بخير إنشاء القوائم المنسدلة 3.rar كل عام وأنتم بخير إخواني الكرام إليكم الجزء الرابع من القوائم المنسدلة في هذا الجزء سنتناول كيفية عمل قوائم منسدلة لقوائم غير ثابتة إنشاء القوائم المنسدلة 4.rar

الميزة التي انتظرها الكثير من الطلاب والمعلمين والقراء عموما أصبحت الآن بدون برامج إضافية ضمن تحديثات ويندوز 10 الأخيرة windows 10 build 1803 32bit or 64bit تحويل النص المكتوب إلى صوت مسموع Text to sppech والأجمل أنها باللغة العربية ومعنى هذا أنك بدلا من أن تقرا الملف تسمعه ولا ينقصني سوى دعاؤكم بالخير #ostazmas

https://www.qodoraat.com/?app=article.show.56&fbclid=IwAR3tvpdlAst8E0jw7GLSesGyuinT0Zp_aEg1Dx37es23Ae3oDfT4iGipyZA

برنامج_مخازن_جديد.xlsm

اذا كان عندتا مجموعة من الارقام من واحد الى N ) N من اختيارك ) و يجب توزيع هذه الأرقام على جدول من M عامود ( M من اختيارك ابضاً) انظر الى الملف المرفق لمعرفة كيف يقوم الاكسل بفعل هذا الشيء الكود Option Explicit Sub CreateNumbers(rg As String, col_num As Long, max_num As Long) Dim n As Long Dim My_row As Long Dim My_col As Long ActiveSheet.Cells(6, 1).CurrentRegion.Clear For n = 0 To max_num - 1 My_row = n \ col_num My_col = n Mod col_num ActiveSheet.Range(rg).Offset(My_row, My_col) = n + 1 Next n End Sub '============================================== Sub give_numbers() Call CreateNumbers(Cells(6, 1).Address, [b2], [c2]) End Sub الملف مرفق Num_table.xlsm

يوضع فى موديول جديد كما بالصورة وكان من البداية والأفضل دائما ان تضع وترفع فى المشاركة ملف تجنبا لسهولة المساعدة وعدم اهدار الوقت

طالما انك لم تقم برفع ملف وتوضيح المطلوب فيمكنك استخدام هذا الكود Sub MyFooter() Dim xTxt As String Dim xAddress As String Dim xRg As Range Dim xCell As Range On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8) If xRg Is Nothing Then Exit Sub For Each xCell In xRg xTxt = xTxt & xCell.Value & " " Next ActiveSheet.PageSetup.LeftFooter = xTxt End Sub

جهود مباركة للإخوة. ربنا يباركم لكم فيما تقدمونه من عون ونفع للجميع. دمتم بخير

الف شكر اساتذتي الافاضل علي اهتمامكم وزادكم الله من علمه وجعله في ميزان حسناتكم

السلام عليكم تفضل اخي مع بعض التعديل طبعا استفدت من الموقع اعلاه او بالحقيقة نسخت الاكواد ds.accdb مع تمنياتي لك بالموفقية والنجاح

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

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

السلام عليكم ورحمة الله وبركاته أضيف لك طريقة أخرى للفائدة، وذلك من خلال استخدام حروف البدل؛ حيث سنقوم باستبدال كل ما يتجاوز المسافتين فأكثر بنقرة زر واحدة شاهد هذه الصورة لو تكرمت: في الخانة الأول نكتب: ( ){2;} في الخانة الثانية نكتب: \1 لا تنسانا من دعاءك

نعديل على النعديل Option Explicit Sub SUPER_ADV_FILTER() Application.ScreenUpdating = False Dim i%: i = 4 Dim y$, m%, K% Dim arr Dim MY_Sht As Worksheet Dim ws As Worksheet: Set ws = Sheets("Main") Dim rg As Object Dim rg_to_copy As Range Set rg_to_copy = ws.Range("a3").CurrentRegion Set rg = CreateObject("system.collections.arraylist") Dim lr%: lr = ws.Cells(Rows.Count, 1).End(3).Row With rg Do Until i > lr If Not .contains(CLng(ws.Range("d" & i).Value)) _ And ws.Range("d" & i).Value <> "" Then _ .Add CLng(ws.Range("d" & i).Value) i = i + 1 Loop .Sort For i = 0 To .Count On Error Resume Next y = CStr(.Item(i)) If Len(Sheets(y).Name) = 0 Then Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = y End If On Error GoTo 0 Next End With Set rg = Nothing For i = 2 To Sheets.Count Sheets(i).Cells.Clear Sheets(i).Range("T1") = "رقم القيد" Sheets(i).Range("T2") = Sheets(i).Name rg_to_copy.AdvancedFilter 2, Sheets(i).Range("T1:T2"), Sheets(i).Range("A3") Sheets(i).Range("T1:T2") = vbNullString Next For Each MY_Sht In Sheets If MY_Sht.Name <> "Main" Then m = 4: K = 1 Do Until MY_Sht.Range("b" & m) = vbNullString MY_Sht.Range("A" & m) = K K = K + 1: m = m + 1 Loop End If Next Application.ScreenUpdating = True End Sub الملف من جديد tarhil_salim_Moreمطور.xlsm

إذا كانت أخطاء المحرر لايمكن إختابارها داخل محرر الشفرة؛ فأعتقد أنه من الممكن تصيدها باستخدام الوظيفة ()Eval، إذ أن هذه الوظيفة مهمتها الأساسية هي تقييم التعابير وإعادة النتايج التي تخرج عن تلك التعابير؛فاذا كانت التعبير يحتوي على وظائف وإجراءات مفقودة فإن الوظيفة ()Eval ستعيد رسالة خطأ بالرقم 2425 مفادها "يحتوي التعبير على وظيفة مفقودة".. وبهذا نكون سحبنا الخطأ إلى داخل محرر الشفره وبالتالي يمكننا تصيده بالطريقة المعتادة.. Control VBE Error.accdb

اتفضل يا اخي هذا المتصفح الصغير بإذن الله هيشتغل مع حضرتك hosamh3.rar وتكون الحروف سليمة

أخي aboarab الطريقة مشروحة في هذا الموقع الإنجليزي: http://www.computorcompanion.com/LPMArticle.asp?ID=126 وهنا شرح مختصر لما يرد فيه أولا، اجمع الكل الصور في مجلد واحد. سندعو هذا المجلد pics وسنفترض أن مساره هو التالي: D:\Data\Pics بعد ذلك عد إلى ملف إكسل الذي توجد فيه بيانات كل طالب. أنشئ عمودا، سنسميه photo، واملأ في كل خانة تحت هذا العمود اسم صورة الطالب الموجودة في مجلد pics. من أجل إجراء دمج المراسلات بحيث يتم وضع الصور، يجب كتابة الحقل الخاص بالصور على الشكل التالي: - في المكان الذي يجب أن تظهر فيه الصورة، اضغط على Ctrl+F9. سيظهر هذا الشكل { } - اكتب في الوسط INCLUDEPICTURE يتبعها مسار مجلد الصور بين مزدوجين، على أن تجعل كل \ مزدوجة، أي بهذا الشكل الأولي: { IncludePicture "D:\\Data\\Pics\\"‎ } - لكي يعرف الوورد على أي أساس يختار صورة كل طالب، تأكد أن شريط دمج المراسلات ظاهر، ضع المؤشر قبل علامة الاقتباس الأخيرة، ثم انقر على "إدراج حقل دمج" ( Insert merge field) واختر اسم عمود الإكسل الذي يتضمن أسماء الصور، أي photo في هذا المثل. إذا أردت أن تبقي الملف صغيرا، أضف في الآخر d\ حتى لا يتم وضع الصور نفسها في المستند فيزيد حجمه. وهكذا يصير شكل الحقل كما يلي: { IncludePicture "D:\\Data\\Pics\\{ MERGEFIELD Photo }" \d } يمكنك الآن دمج المراسلات إلى مستند جديد إذا أردت، وذلك بالنقر على زر "دمج بالمستند الجديد" (Merge to New Document) على شريط دمج المراسلات. لن تظهر الصور على الفور. فيجب تحديث الحقول بالضغط أولا على ctrl+A لتحديد كل المستند ثم الضغط على زر F9 لتحديث الحقول.

مشاء الله تبارك الله هذا بالضبط ما أريدة (y) الله يجزاك عني خير الجزاء ويسعدك في الدارين

شرح دوال أكسس - دوال تجميع المجال http://www.officena.net/ib/index.php?showtopic=152 و هنا توجد أمثلة عليها و كلها متشابهة فى التطبيق دوال الأكسس http://www.officena.net/ib/index.php?s=&act=SF&f=30 شرح دوال التاريخ و الوقت - لأبي هاجر http://www.officena.net/ib/index.php?showtopic=482 شرح احرف البدل http://www.officena.net/ib/index.php?showtopic=812

السلام عليكم يا إخواني لقد عثرت مصادفة على هذه الكتب الإلكترونية المجانية وهي تعلم الأكسس تعليم Microsoft Access 1 تعليم Microsoft Access2 مايكروسوفت أكسس Access Online Tutorials

وهذه كتب أخرى Access Designing Data Access Pages Access Web Table of Contents Access Free Tutorial Access Tutorials - PDF Files :pp: :pp:

يوجد عدد من البرامج install-us wize install maker inno-setup setup Facory Install Shield و أعتقد أن آخر اثنين هما الاشهر و بالنسبة للاكسس قد يكون من المناسب استخدام Microsoft Office developpers Kit اذا توفرت و لم أحصل عليها للاكس بي ، و لكن تعاملت معها مع ال 97 و كانت ممتازة