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

تفضل اخي الكريم هذا برنامج يحول عبارة الـ sql الى vba SQL2VBA.accdb

جرب المرفق قوائم.accdb

استاذ romeo4 الأمر بسيط وسهل عليك بتعديل اعدادات اللغة العربية لديك من لوحة التحكم

تحتاج الى تعريف النوع (تاريخ) في جملة الاس كيو ال # ثم تنسيق التاريخ contractw.accdb

If MsgBox("هل تريد حذف الطالب", vbYesNo, " تأكيد حذف") = vbNo Then Else strSQL = "DELETE [student].* FROM [student];" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End If

جرب هذا الكود Option Explicit Private Sub CommandButton1_Click() Application.ScreenUpdating = False If ActiveSheet.Name <> "Sheet1" Then GoTo End_ME Dim targ_rg As Range If Range("B11") = vbNullString Then Set targ_rg = Range("B11") Else Set targ_rg = _ Range("B11", Range("B10")).End(4).Offset(1) End If With targ_rg.Resize(, 3) .Value = _ Application.Transpose(Range("E3").Resize(3)) .Cells(1).Offset(, -1) = .Row - 10 End With Range("B10:D" & Rows.Count).Sort key1:=Range("B10"), Header:=1 End_ME: Application.ScreenUpdating = True End Sub الملف مرفق enter_data.xlsm

السلام عليكم و رحمة الله تعالى وبركاته إخوتي الكرام حياكم الله. بعد نزع خاصية انشاء شريط القوائم بالأكسس في النسخ بعد 2003 أصبح هناك عائق كبير في إضافة هذه الأشرطة و لأنه يتوجب عليك العمل على ملف 2003 أو استعمال Ribbon بلغة Html و هي أصعب من الفكرة الأولى. مما جعلني أفكر في طريقة تجعلنا نستغني عن هذه الطرق المرهقة بعض الشيء. و قمت بتصميم برنامج يستطيع أن يضيف شريط قوائم للنموذج الرئيسي لقاعدة البيانات مهما كانت نسختها 2003 أو النسخ التي تأتي بعدها. نبدأ على بركة الله في شرح البرنامج: بعد فتح البرنامج نتبع الخطوات التالية: 1 - أكتب اسم القوائم التي تريد أن تضيفها مع وضع رقم كل قائمة بالترتيب (1,2,3,....و هكذا) 2- أضف العناصر أو الأوامر التي تندرج تحت كل قائمة في النموذج الفرعي رقم العنصر , تسمية العنصر ثم الكود الذي تريد أن ينفذه هذا العنصر 3- أختر قاعدة البيانات سواءا كانت 2003 أو ما بعدها ثم اختر اسم النموذج الذي تريد أن تضيف له الشريط 4- قم بالضغط على زر "إنشاء الشريط" 5- افتح قاعدة بياناتك و أنظر للشريط المضاف حتى لو كان النموذج منبثق و شاشة الأكسس مخفية سوف ترى الشريط شروط استخدام البرنامج: 1- قبل البدئ أحفظ نسخة إحتياطية من قاعدة بيانات 2- يجب أن لا يكون لديك في قاعدة بيانات نماذج بهذه الأسماء : list1,list2,list3..... و هكذا 3- يجب أن يكون حدث عن النقر للنموذج الرئيسي خال من أي كود 4-بعد الإنتهاء أدعولي و لوالدي و لعائلة بالخير و الصلاح. هذا هو البرنامج انشاء شريط قوائم.rar

الحمد لله ذي الرضا المرغوب، يعفو ويصفح ويغفر الذنوب... يملي ويمهل لعل العاصي يتوب، يعطي ويرضى ويحقق المطلوب... يُطعم ويَسقي ويستر العيوب، يغني ويشفي ويكشف الكروب... نحمده تبارك وتعالى حمدًا هو للذات العليا منسوب... ونعوذ بنور وجهه الكريم من شر الوسواس الكذوب... ونسأله السلامة فيما مضى وما سوف يأتي من خطوب... اما بعد موضوعنا هذا الشهر يشغل بال الكثيرين الذين يلجؤون للاقتراض التمويلي لشراء منزل او سيارة او اقامة مشروع ما ، وما يترتب علي هذا القرض من فوائد وبدون الخوض في الناحية الشرعية سوف نتاول كيفية حساب القرض الفائدة المركبة هي إحدى طُرُق احتساب الفوائد البنكية على القروض، وحيث أن الفائدة هي مقدار الزيادة على أصل المبلغ على أساسٍ سنوي، فإن الفائدة المركبة هي تركيب للفائدة وزيادة قيمتها – وليس نسبتها – على أصل القرض في كل سنةٍ من عمر القرض. وبما أن عوائد الفوائد هي المصدر الرئيسي لإيرادات البنوك في شتى بلاد العالم؛ فإنه يتم اتِّباع طريقة الفائدة المركَّبة على القروض وليس على الودائع؛ حتى يستفيد البنك من مقدار الفرق الهائل بين ما يدفعُه من فوائد للودائع للعملاء؛ وبين ما يأخذُه على القروض من فوائد. إجمالي المبلغ النهائي مع الفوائد يساوي أصل المبلغ مضروبا ب 1+معدل الفائدة مرفوعاً لعدد الفترات الزمنية. مثال : اقترض أحد الأعضاء من بنك أوفيسنا التجاري مبلغا وقدره 1000 وحدة نقدية بفائدة سنوية 10% لثلاث سنوات. يصبح المبلغ بنهاية المدة 1000 × ( 1.10 ^3 ) = 1000 × 1.331 = 1331 وبذلك تكون الفائدة المركبة بعد 3 سنوات 331 وحدة نقدية في حال كانت الفائدة بسيطة تكون قيمتها بعد 3 سنوات 300 فقط حيث تحسب على أصل المبلغ فقط دون اعتبار الفوائد المتراكمة ولحساب قيمة القرض باستخدام الدالة PMT =PMT(a,n,p) حيث a هي قيمة الفائدة (المتراكمة) في الفترة ، في هذه الحالة هنا الشهر n هي عدد الأقساط المتساوية ، في هذه الحالة هنا 36 p هي قيمة القرض ويوجد شروحات علي المنتدي لشرح الدالة بالتفصيل وشرح القيمة الحالية للفوائد المتراكمة . تسهيلا للبعض اعددت فورم بسيط يقوم بحساب القرض والفائدة المتناقصة (( وبدون الخوض في الأحكام الشرعية المتعلقة بالقروض )) شرح الفورم .... (1920x1080) اضبط تباين الشاشة على loan_calculator2.xls loan calculatorV1-2019.xls

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

فورم تسجيل البيانات والبحث عنها مع الصور الفيديو

أ.إبراهيم عطا جرب Int(TextBox) أو أرفق مثال للتطبيق عليه

السلام عليكم ورحمه الله وبركاته جزاكم الله خيرا اساتذتى @kha9009lid و @essam rabea ومشاركه لاخوانى واساتذتى ارفق ملف بحث وطباعه فكرته مشابهه لنفس الموضوع للاستفاده منه وجزاه الله خيرا صاحب المثال ومن عدل عليه تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم بحث.rar

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

جرب هذا Dim R As String Dim result As String Dim myUrl As String R = ChrW(1575) & ChrW(1604) & ChrW(1587) & ChrW(1604) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1593) & ChrW(1604) & ChrW(1610) & ChrW(1603) & ChrW(1605) Dim winHttpReq As Object Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1") myUrl = "http://www.nsms.ps/api.php?comm=sendsms&user=truemark&pass=truemark2019&to=970595099847&message=r&sender=TrueMark" winHttpReq.Open "GET", myUrl, False winHttpReq.send result = winHttpReq.responseText

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

جرب المرفق مثال4.mdb

انطر الى التنسيق في ملفك

شكر الله لكما .. تم المطلوب .

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

أخي @emam1424 بارك الله فيك ومشاركة مع حبيبنا @أحمد الفلاحجى دائما وابدا عند التسمية تقيد بالطرق الصحيحة للتسمية فمثلا انت كتبت اسم الجدول student Table المفروض تكتب student_Table بهذا الشكل دون مسافة عدل اسم الجدول ثم عدل في الكود بالاسم الجديد

مرفق الملف بعد التعديل TAQWEA_1.rar

السلام عليكم إذا قمت بحفظ الملفات بعد فتحها بواسطة إكسيل 2010 وليس لديك منها نسخ فقد ضاعت كل الأكواد ويجب إعادة إنشائها من جديد... أما إذا كان غير ذلك فيجب فتحها بواسطة إكسيل 2003 في جهاز آخر (أو في جهازك بعد تنصيب إكسيل 2003 فقط من كل مكتبة أوفيس 2003) ثم القيام بتصدير Exportation لكل الماكروات في الملف إلى جهازك (يُستحسن أن تكون في موديول Module واحد)... ثم تفتح هذه الملفات بواسطة إكسيل 2010 واستيراد Importation كل الموديولات الخاصة بهذا الملف... وليس لي فكرة أخرى... بن علية حاجي

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

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

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

ربي يسعدك تم المطلوب بنجاح

بعد ادن استادنا احمد يوسف ربما يكون الطلب كما في الصور او استعن بهذا الماكرو Sub SplitRow1() With ActiveWindow .SplitColumn = 0 .SplitRow = 1 End With ActiveWindow.FreezePanes = True End Sub

وعليكم السلام-المطلوب غير واضح لنجاح اى مشاركة لابد من رفع ملف مدعوم بشرح كافى ووافى عن المطلوب والا لا تنتظر المساعدة من احد وطالما حضرتك لم تقم برفع ملف -فتفضل https://www.zadschool.com/ms-office/5009/how-to-set-row-height-and-column-width-in-excel.html

رائع .. تم المطلب شكر الله لك تم المطلوب شكر الله لك أستاذي العزيز

تفضل اخي الكريم TAQWEA_2.rar تحياتي

اخى الفاضل عدل الكود ليصبح كالتالى Private Sub Command2_Click() 'Me.Tasjil.SetFocus 'DoCmd.GoToRecord , , acNewRec Dim db As DAO.Database Dim Rs As DAO.Recordset Dim Rss As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT Tasjil.*FROM Tasjil;") Rs.AddNew Rs("StuName") = Me.ZStuName.Column(1) Rs("Teacher") = Me.ZTeacher.Column(1) Rs("Sub") = Me.ZSub.Column(1) Rs("Hessah") = Me.ZHessah.Column(1) Rs.Update Rs.Close Me.XStuName.Requery Me.Requery End Sub ان شاء الله يظبط معك تقبل تحياتى طبتم واهتديتم

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

عليك السلام ورحمة الله وبركاته من فضلك قم بتوضيح ما تطلبه اكتب الشروط المطلوبة لكي يتسنى للأعضاء مساعدتك جرب هذا لعله يفي الغرض NESTED IF.xlsx

السلام عليكم تم إنشاء الكود التالي في حدث الشيت "تأخير": Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.PageSetup.PrintArea = [Plage].Address End Sub وهذا الكود يضمن أن تتحدد ناحية الطباعة آليا بالزيادة والنقصان (حسب قيم العمود A)... كل ذلك في الملف المرفق... بن علية حاجي برنامج ايجار.xlsm

السلام عليكم تم عمل المطلوب في ملف واحد مع التعديل في كل ورقة (بعض التصحيحات والتنسيقات) مع إضافة المعادلات اللازمة لذلك... أرجو أن تفي الغرض المطلوب... بن علية حاجي نموذج امر العمل.xlsx

جرب هذا الكود Option Explicit Sub TAJMI3() Dim MY_SH As Worksheet, SH As Worksheet Dim r%, m%, col% m = 5 Set MY_SH = Sheets("تجميع") MY_SH.Range("B5").Resize(5000, 50).ClearContents For Each SH In Sheets If SH.Name <> MY_SH.Name Then r = SH.Cells(Rows.Count, 2).End(3).Row col = SH.Cells(5, Columns.Count).End(1).Column MY_SH.Cells(m, 2).Resize(r - 4, col).Value = _ SH.Cells(5, 2).Resize(r - 4, col).Value m = m + r - 4 End If Next الملف مرفق All_sh.xlsm

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم db5.accdb تحياتي

السلام عليكم تفضل اخي الكريم تحويل التاريخ.accdb تحياتي

كود رائع أعجبني . لكن اريد معرفة ما هي الطريقة لنسخ السيريال نمبر بعد اخراجه و لصقه في خلية ما. الملف مرفق Sub GGGG() Set fso = CreateObject("Scripting.FileSystemObject") Set driveObject = fso.GetDrive("C") MsgBox driveObject.serialnumber Set driveObject = Nothing Set fso = Nothing End Sub HARD DISK SERIAL NUMBER.xlsm

أخي الكريم أمير عندما لايقبل الاكسس تحويل الملف الى Accde فهذا يرجع الى عدة اسباب منها إما ان يكون لديك إحدى المراجع مفقودة أو لديك خطأ ما في الكود .. لتجنب ذلك عليك بعمل compile للتأكد من خلو البرنامج من الاخطاء ومن ثم قم بعمل ضغط واصلاح لقليل حجم قاعدة البيانات (خطوة غير ضرورية لكنها تقلل من حجم الملف فقط) ومن ثم قم بعملية التحويل الى Accde تحياتي

أخي الكريم الملف المرفق خالي من اي مشكلة إن شاء الله .. جربه ووافيني بالنتيجة new protection2.mdb

أخي الكريم أمير في الاكسس لايوجد برنامج خارجي لعمل ذلك وإنما يتم عمل ذلك من خلال الاكسس نفسه اذا كنت تعمل على اكسس 2007 فما فوق فتستطيع تحويل قاعدة البيانات من Accdb الى Accde من الاكسس نفسه كما في الصورة المرفقة واطمئن لايوجد طريقة لاختراق اكوادك لكن اذا اردت حماية جداول بياناتك ايضاً فهناك عدة طرق إما عن طريق إخفاء الجداول بالكود وإظهارها بالكود أيضاً او عن طريق قفل قاعدة البيانات برقم سري واستخدام ملف آخر وظيفته تمرير الرقم السري لقاعدة البيانات لكي تفتح وهي طريقة مضمونة في الحماية بنسبة عالية فلايمكن استيراد شيء من القاعدة او الإطلاع على محتواها بدون معرفة الرقم السري تابع الموضوع هذا اذا اردت تجربة الطريقة https://www.officena.net/ib/topic/98020-طريقتي-في-حماية-قاعدة-البيانات-من-تفعيل-الشفت-وحماية-الاستعلامات-و-وحدات-المايكرو-وكلمة-السر-للقاعدة-الخلفية/?tab=comments#comment-596888

و عليكم السلام و رحة الله وبركاته جرب المرفق Sub MUTAKHEEN_ALL() Dim FS As Worksheet, TS As Worksheet Dim ER, FSN, FR, TR Set TS = Sheets("ÊÃÎíÑ") TR = 6 For FSN = 1 To Sheets.Count Set FS = Sheets(FSN) If FS.Name = TS.Name Then GoTo 9 With FS For FR = 5 To 999 If .Cells(FR, 14) < 0 Then For FC = 1 To 18 TS.Cells(TR, FC) = .Cells(FR, FC) Next FC TS.Cells(TR, 19) = .Name TR = TR + 1 End If Next FR End With 9 Next FSN End Sub برنامج ايجار.xlsm

قم بتعديل الاعدادات كما بالصورة ثم قم بتحويل صيغة البرامج الي accde ولا تنسي أخذ نسخة م البرامج قبل التغير .

تفضل اخي Forms("MyForm").ShortcutMenu = False

بسم الله الرحمن الرحيم في موضوع أريد برنامج لشركة نقليات للاخ احمدالمصري على الرابط http://www.officena.net/ib/index.php?showtopic=46765&hl= طلب مني الاخ برنامج خاص بشركة نقل وقد اتممته بفضل الله وحمده واردت طرحه في المنتدى لتعميم الفائدة اسم المستخدم 123 الباسوورد 123 وكل ماهو مغلق 123 ارجو ان ينال اعجابكم تقبلو تحيات اخوكم في الله شوقي ربيع برنامج تسيير شركات النقل الصفيرة.rar

السلام عليكم اخي ابوعمار رجاء معاينة الرابط الاخر للسؤال: جعفر

السلام عليكم اخي ابوعمار انا اعتذر منك على التأخر في الرد ، حيث كنت على سفر ارجو انك لازلت بحاجة الى هذا الجواب الحل في: ا- الاستعلام ، لعمل الارقام في تسلسل (لأن حقولك عبارة عن نص ، والتسلسل فيها لا يكون صحيح) ، 2- مجاميع التقرير (في اسفل التقرير) ، لكي نعمل مجموعات الحقول ذو الرقم الواحد ، والثلاثة ، والاربعة ، والستة ، 3- الكود ، لإخفاء السجلات الغير مطلوبة. والنتيجة: جعفر 610.1.مطلوب تقرير.accdb.zip

حياك الله اخي الكريم شاهد المرفق شاهد حدث في الحالي للنموذج وحدث بعد التحديث لحقل birthdate بإمكانك اخفاء حقل calculate فيما بعد بالتوفيق Tccst.rar