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

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

حسب فهمي للموضوع ان كل هذه المشكلة يرجع للتنسيق التاريخ فقط غير سطر الشرط بهذا If DCount("*", "حركات", "[البيان]='" & Me.supplier & "'" & "and [تاريخ الحركة]=#" & Format(Me.payment_date, "dd/mm/yyyy") & "#") > 0 Then اي اضفنا Format(Me.payment_date, "dd/mm/yyyy") ترحيل (1).rar

استخدم هذا الكود في حدث عند الخطأ للنموذج If DataErr = 3022 Then Response = acDataErrContinue End If testError.zip

اسمه Startup اذا كان الويندوز لديك انجليزي او بدء التشغيل اذا كان الويندوز عربي .. ويمكنك الوصول الية من خلال قائمة ابدأ في الويندوز ومساره الافتراضي هو C:\Users\pc\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup مع ملاحظة تغيير pc باسم المستخدم لديك تحياتي

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون AddIns وبدون الاستعانة بأية برامج مجانية أو مدفوعة !! كسر محرر الأكواد بالأكواد نفسها (قنبلة الموسم) وعلى رأي المثل : علمته رمي السهام فلما اشتد ساعده رماني .. الكود قليل الأصل !! محفظش الجميل للبيئة اللي هو منها ، لأنه كسر بيئة محرر الأكواد !!! Sub HackVBA() Open "C:\Users\Future\Desktop\Test.xls" For Binary As #1 Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1) Close Workbooks.Open "C:\Users\Future\Desktop\Test.xls" End Sub المطلوب فقط أن تغير مسار الملف المراد كسره داخل الكود ، والمسار يوضع بين أقواس تنصيص .. أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه إن شاء المولى .. ولا تنسونا من اللايكات على اليوتيوب !!!!! ....أكرر اللايكات على اليوتيوب ..فضلاً لا أمراً تقبلوا تحيات أخوكم أبو البراء

مشاركتي خجوله لأني اشارك بعد مشاركة حبيبنا جعفر ... استاذنا الكبير Ka-‏‏example.rar

نعم يمكن عمل ذلك .. ارجو منك متابعتي لاني مازلت اعمل على هكذا موضوع ولم انتهي منه بعد تحياتي

السلام عليكم ورحمة الله راجع الملف المرفق لعل فيه ما تريد (وزيادة)... بن علية حاجي أوفيسنا2.rar

شكرا جزيلا استاذى الفاضل Shivan Rekany شكرا اخى الفاضل alwazeer على مجهودك وتعبك

هذا تفكير منطقي! كما أن معظم خصائص وندوز يمكن معالجتها بلفة VBS؛ وبالتالي يمكن استخدام الشفرة في أكسس... الرابط التالي يقدم مثال لما طلبت.. https://gallery.technet.microsoft.com/scriptcenter/How-to-create-a-folder-and-81df72cf#content

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

تسلم اخي ابو زاهر بالتوفيك

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

اخي ابو زاهر انا راجعتها وكنت برفعها وانت سبقتني شوف هذا اخر تعديل تعديل الفاتوره 1.rar

مضاد الفايروس عندي Kaspersky ، قال ان البرنامج فيه 6 ملفات ، وكلها نظيفة بس ياريت تخبرنا الملف التنفيذي شو فيه ، وشو يعمل ؟ جعفر

حياك الله وبما انه تنسيق ، وبدل ان تعمله على النموذج والتقرير لهذا الحقل ، فتقدر تعمله في الحقل في الجدول ، وتلقائيا ، كلما تعمل هذا الحقل في نموذج او تقرير ، يجيك جاهز بتنسيقه جعفر

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

كيف يعني شوف الصورة اذا يجب عليك ان تخبرني ماذا تريد نعمل لكي يظهر عندنا كما يظهر عندك

تسلم اخي بارك الله فيك ولكنه مازل نفس المشكله لا يلتزم بالشرط

أتفضل تم استخدام هذا الكود للنموذج Private Sub date_day_AfterUpdate() On Error Resume Next Dim myid As Long If DCount("[date_day]", "dday", "[date_day]=#" & Format(Me.date_day, "yyyy/mm/dd") & "#") > 0 Then myid = DLookup("[id]", "dday", "[date_day]=#" & Format(Me.date_day, "yyyy/mm/dd") & "#") DoCmd.GoToRecord acDataForm, Me.Name, acGoTo, (myid) Else Me.Text5 = Me.date_day End If End Sub Private Sub Form_Current() Me.date_day = Me.Text5 End Sub وتم اضافة حقل جديد في جدول dday باسم id وتم اضافة مربع نصي جديد في النموذج اليك المرفق test (1).rar

الیک ھذا الكود سيعطيك مساحة اجمالي ومساحة خالي لكل قرص Const strComputer = "." Dim objWMIService, colItems, objItem Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk WHERE DriveType = '3'") For Each objItem In colItems MsgBox "Directory: " & objItem.Name & vbCrLf & _ "Size: " & Round(Cdbl(objItem.Size) / 1073741824) & "GB" & vbCrLf & _ "Free Space: " & Round(CDbl(objItem.FreeSpace) / 1073741824) & "GB" Next

اضافة لما تفضل به اخي وصديقي صالح تفضل On Error GoTo Err_Handler With CurrentDb .Execute "DELETE AuditTable.* FROM AuditTable", dbFailOnError .Execute "DELETE Copy Of BEIRUT.* FROM Copy Of BEIRUT", dbFailOnError .Execute "DELETE Loc_tbl_Blob.* FROM Loc_tbl_Blob", dbFailOnError .Execute "DELETE moaqef.* FROM moaqef", dbFailOnError .Execute "DELETE student_moaqef.* FROM student_moaqef", dbFailOnError .Execute "DELETE tbl_Animals.* FROM tbl_Animals", dbFailOnError .Execute "DELETE temp.* FROM temp;", dbFailOnError .Execute "DELETE Temp_date.* FROM Temp_date", dbFailOnError .Execute "DELETE TempAccountTbl.* FROM TempAccountTbl", dbFailOnError End With Err_Handler: If err <> 0 Then MsgBox err.desc & " (" & err.Number & ")" err.Clear Exit Sub

اتفضل اليك نسخة من زيب الشعب يشكرك على ما تقدمه للشعب تم تغيير شيء في الاكواد الان هذه هو الاكواد المستخدمة Option Compare Database Private Sub Form_Open(Cancel As Integer) Me.pr = "سيبدأ التحميل ..." End Sub Private Sub Form_Timer() Static intCount As Integer intCount = intCount + 1 If intCount = 100 Then DoCmd.Close acForm, Me.Name DoCmd.OpenForm "FrmHello", acNormal ElseIf intCount Then Me.pr = "تقدم مؤشر التحقق " & intCount & "%" Me("sq" & intCount).Visible = True End If End Sub استاذنا @sandanet قام بالرد عليك وانا اضفت في الملف الجديد سبحان الله ... كان متصفح مفتوح وما رايت المشاركات الاخيرة مؤشر تحميل.zip

اخ طاهر قم بوضع الكود التالي قبل عبارة end sub للدالة Private Sub Form_Timer() If intCount = 100 Then DoCmd.close DoCmd.OpenForm "YourForm" غير كلمة YourForm الى النموذج الذي تريده تحياتي

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

السلام عليكم تم عمل المطلوب في الملف المرفق... بن علية حاجي EntryForm2.rar

السلام عليكم كود تفريغ الجدول يكون بهذا الشكل: DoCmd.RunSQL ("delete * from tbl") غير tbl باسم الجدول لديك و يمكنك الاستفادة من هذا الموضوع به دوال sql

الحمدلله انك توصلت للمطلوب الامر SendKeys فيه الكثير من المشاكل ، منها انه يطفئ زر Num Lock في الكيبورد ، وحتى اذا ذاكرتي ما تخونني ، في الوندوز Vista تم ايقافه عن العمل ، وهناك برنامج يقوم بعمل هذا الامر وزيادة ، اسمه AutoIt وميزته انه سهل البرمجة ويمكن التحكم به عن طريق command line ، ويمكنه تصنّع ضغط الزر (مثل SendKeys) وحركة الماوس. https://www.autoitscript.com/site/autoit/ في الكود ، واذا اردت استخدام الامر SendKeys جرب تغيير مكان الاسطر ، هكذا: Private Sub Form_Load() DoCmd.Maximize SendKeys "{BS}", False Call Activate_This_AccessApp Me.SetFocus Me.id.SetFocus End Sub جعفر

كل الشكر والتقدير والاحترام لاساتذتى الكرام الاستاذالقدير/ سليم حاصبيا والاستاذ القدير / بن علية حاجى الذين لايبخلون علينا بالمعلومة وبجهدهم تم تنفيذ المعادلة ونجحت فى إعطائى نفس النسبة Book1.rar

السلام عليكم قم بتغيير معادلة النسبة بالمعادلة التالية: =COUNTIF($C$5:$C$14;">=13")*100/COUNTIF($C$5:$C$14;">=0") بن علية حاجي

هذه المعادلة (COUNTIF(C5:C14,">=13")*100/COUNT(C5:C14=

جزاكم الله خيرا احبتي وشكرا على المساعدة فكرة منطقية وجربت ولم يستجب للحدث ولم ينتقل التركيز انا ذكرت في مشاركتي الثانية : اي ان اكسس يفتح مع بداية التشغيل ولكن الحاصل ان وندز لديه مهمة اخرى لم تنتهي بعد علما اني ازلت جميع البرامج التي تعمل مع بدء التشغيل ما عدا برنامجي للاسف SendKeys "{BS}", False لم يقبلها اكسس ولا اعلم هل للاصدار دخل في ذلك لذا الغيتها واكتفيت بالوحدة النمطية 32 بت مع كود التركيز : Public Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long Public hWnd As Long Public Function Activate_This_AccessApp() As Boolean 'Brings the DB to the front of all open windows Call SetForegroundWindow(Application.hWndAccessApp) End Function Private Sub Form_Load() Call Activate_This_AccessApp Me.SetFocus Me.id.SetFocus End Sub مع الانتباه لنقطة مهمة وهي وضع علامة على : تأمين شريط المهام والحمد لله تحقق المطلوب الشكر لاساتذتنا الفضلاء ؛ جعفر .. و شفان .. و عمرو

لا داعى للاعزار انا دائم السفر هذه الايام فاعزرنى ان تأخرت انت لست صاحب الحاجة كلنا معا نحتاج لبعضنا البعض

الاخ شقان شكرا جزيلا استخدمتها وكانت ناجحة فعلاً مؤشر تحميل.rar

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

هدية لهذا المنتدى الرائع كود صغير لا يتعدى سطر واحد تستطيع من خلاله ترحيل البيانات الى عدد صفحات غير محدود اترككم مع الفيديو والشرحVBA https://youtu.be/ACcfx42XJwU

اشوف الطلب زاد ، فإنشاء الله اخبركم في الموضوع نفسه جعفر

UserForm_Initialize() rngAnimalList Range arrAnimalList n Index bolAdded rngAnimalList = Sheet1.Range("ListAnimals") arrAnimalList = rngAnimalList.Value n = (arrAnimalList, 1) (arrAnimalList, 1) Me.ComboBox1 .ListCount > 0 bolAdded = Index = 1 .ListCount arrAnimalList(n, 1) < .List(Index - 1) .AddItem arrAnimalList(n, 1), Index - 1 bolAdded = bolAdded .AddItem arrAnimalList(n, 1) .AddItem arrAnimalList(n, 1)

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي EntryForm.rar

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

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

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

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