اذهب الي المحتوي
أوفيسنا

البحث في الموقع

Showing results for tags 'قناةthe best''اكسل''اكسيس''تعليم''طباعة التقرير فى الاكسيس vba/كود الطباعه/معلومه فى اكسيس''طباعة''التقرير''فى الاكسيس''vba''كود الطباعه''معلومه فى الاكسيس''access''اتعلم اكسيس''asfot''طباعة التقرير فى الاكسيس''كود الطباعه vba''ومعالجة الاخطاء run time error اكسيس''report'.

  • Search By Tags

    اكتب الكلمات المفتاحيه بينها علامه الفاصله

  • Search By Author

نوع المحتوي


الاقسام

  • الترحيب
  • قسم تطبيقات و لغات مايكروسوفت
    • قنوات تعليمية شخصية و دورات تدريبية مجانية و مدفوعة
    • إعلانات شخصية بأجر للاعضاء
    • المنتدى المفتوح
    • منتدى الاكسيل Excel
    • قسم الأكسيس Access
    • دعم أنظمة الويندوز المختلفة
    • منتدي الوورد Word
    • منتدى الباوربوينت
    • منتدى الاوتلوك Outlook
    • منتدى الفيزيو Visio
    • منتدي مايكروسوفت بروجكت Ms Project
    • منتدى الفرنت بيج العام Frontpage
    • تطبيقات Power Apps
    • وان نوت One Note
    • الناشر بابليشر Publisher
    • Communicator
    • Expression Web
    • SQL Server
    • VB.net
    • C#.net
    • Asp.net
  • الغات و أدوات البرمجة الأخرى
    • حوارات الويب العامة
    • Delphi
    • PHP
    • برمجة الاندرويد
  • أقسام الإدارة و إدارة المشاريع و تطبيقاتها
    • الاستراتيجية وإدارة محافظ المشاريع
    • إدارة المشاريع
    • Scaled Agile SAFe
    • إدارة الجودة
    • القيادة و تنمية المهارات
    • Primavera Enterprise
    • Primavera 3.1
  • البحث العلمي و علوم البيانات
    • مناهج البحث العلمي
    • علم الإحصاء
    • الذكاء الإصطناعي و التنقيب فى البيانات
    • Orange
    • R
    • SPSS
    • Python
  • القسم العام
    • مشاركات المدونات
    • نرحب بزوار الموقع
    • قسم الاقتراحات و الملاحظات
    • أوفيسنا على الفيسبوك

الاقسام

  • VBA Code Library
  • قسم الإكسيل
  • قسم الأكسيس
  • قسم الوورد
  • Project Management
  • Self development التطويرالذاتي
  • EFQM & DGEP
  • معلومات مفيدة
  • أدوات عامة

مدونات

  • M-Taher's Blog
  • مدونة محمد طاهر
  • Officena
  • اا الفاروق اا
  • ‎مدونة أخبار التكنولوجيا
  • M-Taher's Blog
  • يحيى حسين's Blog
  • خبور خير's Blog
  • Dr. AbdelMalek Abu Sheikh's Blog
  • m.hindawi's Blog
  • احمدزمان's Blog
  • الحسامي
  • مدونة أ / محمد صالح
  • yahiaoui's Blog
  • عبدالله المجرب's Blog
  • صيد الخواطر
  • حمادة عمر مدونة
  • مدونة جعفر
  • مدونة عادل حنقي
  • مجدى يونس: لمسة وفاء لمنتدى اوفيسنا
  • Excel Expert Financial&Accounting
  • مدونة اعمال ايقونات الماس لمنتدى اوفيسنا
  • رقائق فى دقائق
  • Shivan Rekany

ابحث عن النتائج فى ......

ابحث عن النتائج التي تحوي ....


تاريخ الانشاء

  • بدايه

    End

اخر تحديث

  • بدايه

    End

Filter by number of...

انضم

  • بدايه

    End

مجموعه

Job Title

البلد

الإهتمامات

AIM

MSN

Website URL

ICQ

Yahoo

Jabber

Skype

تم العثور علي 263 نتائج

  1. محمد جمال عبد العزيز
    السلام عليكم ورحمة الله إزيك يا جماعة الخير لو سمحتوا محتاج مساعدة فى الكود ده لو ينفع بالحلقات التكرارية أو يعمل أسرع Private Sub TextBox15_Change() 'Call MG_Start Application.Workbooks("El Dawliya Employee Data").Activate On Error Resume Next Dim f As Variant ListBox1.RowSource = Empty ListBox1.Clear Sheets("Emp").Select For Each f In Range("A2:A" & Range("A700").End(xlUp).Row) If f Like TextBox15 & "*" Then listed = ListBox1.ListCount ' ListBox1.ColumnCount = 41 ListBox1.AddItem ListBox1.List(listed, 0) = f ListBox1.List(listed, 1) = f.Offset(0, 1) ListBox1.List(listed, 2) = f.Offset(0, 2) ListBox1.List(listed, 3) = f.Offset(0, 3) ListBox1.List(listed, 4) = f.Offset(0, 4) ListBox1.List(listed, 5) = f.Offset(0, 5) ListBox1.List(listed, 6) = f.Offset(0, 6) ListBox1.List(listed, 7) = f.Offset(0, 7) ListBox1.List(listed, 😎 = f.Offset(0, 😎 ListBox1.List(listed, 9) = f.Offset(0, 9) ListBox1.List(listed, 10) = f.Offset(0, 10) ListBox1.List(listed, 11) = f.Offset(0, 11) ListBox1.List(listed, 12) = f.Offset(0, 12) ListBox1.List(listed, 13) = f.Offset(0, 13) ListBox1.List(listed, 14) = f.Offset(0, 14) ListBox1.List(listed, 15) = f.Offset(0, 15) ListBox1.List(listed, 16) = f.Offset(0, 16) ListBox1.List(listed, 17) = f.Offset(0, 17) ListBox1.List(listed, 18) = f.Offset(0, 18) ListBox1.List(listed, 19) = f.Offset(0, 19) ListBox1.List(listed, 20) = f.Offset(0, 20) ListBox1.List(listed, 21) = f.Offset(0, 21) ListBox1.List(listed, 22) = f.Offset(0, 22) ListBox1.List(listed, 23) = f.Offset(0, 23) ListBox1.List(listed, 24) = f.Offset(0, 24) ListBox1.List(listed, 25) = f.Offset(0, 25) ListBox1.List(listed, 26) = f.Offset(0, 26) ListBox1.List(listed, 27) = f.Offset(0, 27) ListBox1.List(listed, 28) = f.Offset(0, 28) ListBox1.List(listed, 29) = f.Offset(0, 29) ListBox1.List(listed, 30) = f.Offset(0, 30) ListBox1.List(listed, 31) = f.Offset(0, 31) ListBox1.List(listed, 32) = f.Offset(0, 32) ListBox1.List(listed, 33) = f.Offset(0, 33) ListBox1.List(listed, 34) = f.Offset(0, 34) ListBox1.List(listed, 35) = f.Offset(0, 35) ListBox1.List(listed, 36) = f.Offset(0, 36) ListBox1.List(listed, 37) = f.Offset(0, 37) ListBox1.List(listed, 38) = f.Offset(0, 38) ListBox1.List(listed, 39) = f.Offset(0, 39) ListBox1.List(listed, 40) = f.Offset(0, 40) End If Next 'Call MG_End End Sub
  2. ِAbo_El_Ela
    اريد الالتحاق بدروة في avb access
  3. ابو جودي
    ان شاء الله هذه التدوينة سوف تكون متجددة باستمرار أو على الأقل لتكون بمثابة هامش صغير ليحتوي على شخابيط وأفكار وتلميحات هامة ومتعددة ليسهل الوصول اليها سوف أحاول جاهدا جمع أفكاري والأكواد الهامة بصفة مستمرة ليسهل لي و لأحبائي الرجوع اليها مستقبلا
  4. أ / محمد صالح
    اعرض الملف بدائل دالة textjoin الموجودة في إكسل 2016 لجميع إصدارات اكسل mastextjoin بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته موعدنا اليوم مع معلومة مفيدة جدا وخفيفة جدا ومهمة جدا في نفس الوقت وهي تصميم بدائل دالة TEXTJOIN الموجودة في اكسل 2016 وما بعده لجميع إصدارات إكسل لأنها دالة معرفة UDF . لمن يريد استخدام مزايا إكسل 2016 في جميع إصدارات إكسل بداية من 2003 و 2007 و 2010 و 2016 و 2019 دالة احترافية لدمج النصوص مع وضع فاصل بين قيم الخلايا وتجاهل الخلايا الفارغة mastextjoin بدائل textjoin الموجودة في إكسل 2016 وما بعده اللهم انفعنا بما علمتنا وعلمنا ما ينفعنا #a1mas #ostazmas #textjoin لماذا نستعمل دالة textjoin ؟ نبدأ أولا بمعرفة أن هذه الدالة توجد في أوفيس 2016 وما بعده ( أوفيس 365) وهي دالة لدمج النصوص مع تجاهل الخلايا الفارغة وعدم تكرار الفاصل في حالة إذا كانت الخلية فارغة. ولها 4 وسيطات: والصورة العامة لها هي: TEXTJOIN(delimiter, ignore_empty, text1, [text2], …) delemiter محدِد (مطلوبة) عبارة عن سلسلة نصية، إما أن تكون فارغة أو تكون حرفاً واحداً أو أكثر محاطاً بعلامات الاقتباس المزدوجة أو مرجعاً إلى سلسلة نصية صالحة. إذا تم إدخال رقم، فسيُعامل كنص. ignore_empty (مطلوبة) إذا كانت TRUE، فسيتم تجاهل الخلايا الفارغة. text1 (مطلوبة) هي العنصر النصي المطلوب دمجه. عبارة عن سلسلة نصية أو صفيف من السلاسل مثل نطاق من الخلايا. [text2, ...] (اختيارية) هي العناصر النصية الإضافية المطلوب دمجها. قد يكون هناك حد أقصى يبلغ 252 من الوسيطات النصية للعناصر النصية بما في ذلك text1. يمكن أن يكون كل عنصر منها عبارة عن سلسلة أو صفيف من السلاسل مثل نطاق من الخلايا. وإليكم هذا الفيديو لشرح الدالة وتوضيح كيفية استخدامها في إكسل 2016 وما البدائل لدالة textjoin في إكسل 2013 و 2010 و 2007 و 2003 وهي دالة mastextjoin ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك صاحب الملف أ / محمد صالح تمت الاضافه 26 ينا, 2018 الاقسام قسم الإكسيل  
  5. أ / محمد صالح
    هل جربت أكواد لتغيير دقة الشاشة لدى مستخدم برنامجك كثيرا ووجدت بها بعض المشاكل مثل: عدم ظهور أزرار التكبير والتصغير والاستعادة الخاصة بالويندوز مدة التغيير طويلة قليلا تحتاج لموديول كامل كبير لقراءة دقة الشاشة وآخر أطول منه لتغييرها الحل في المرفق تحياتي للجميع كل عام أنتم بخير ولا تنسوني من دعائكم وقت الإفطار mas_resolution.rar mas_resolution64x.rar
  6. أ / محمد صالح
    بسم الله الرحمن الرحيم بناء على طلب أخينا الكريم عبد الله المجرب (أبو أحمد) يتم هنا مناقشة دالة الرسائل التي تظهر لمدة محددة بالثواني ثم تختفي تلقائياً الصيغة العامة لها intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType]) شرح البارامترات object : كائن wscript الذي تم إنشاؤه strText : نص الرسالة (مطلوب) nSecondsToWait : عدد ثواني بقاء الرسالة على الشاشة (اختياري) القيمة الافتراضية 0 وتعني عدم اختفاء الرسالة إلا بعد الضغط على زر فيها strTitle : عنوان الرسالة (اختياري) إذا لم يتم كتايته يظهر "Windows Script Host" nType : رقم يحدد الأزرار والأيقونات المستعملة في الرسالة (اختياري) وترجع الدالة رقم intButton الخاص برقم الأزرار التي ضغطها المستخدم حتى يخفي الرسالة ويهمنا في هذا المقام الأزرار والأيقونات وهي كالتالي وهي مثل دالة msgbox العادية في أنه يمكنك جمع قيمتين أو أكثر سواء بعلامة + أو بكتابة حاصل الجمع الفعلي فمثلا لعمل رسالة بها زر نعم أولا وأيقونة علامة الاستفهام نكتب 4+32 أو 36 نأتي الآن للقيمة التي ترجعها الدالة نأخذ مثالاً set WshShell = CreateObject("WScript.Shell") Result = WshShell.Popup("This is a popup box!", 10, "Title", 65) ويمكن تنفيذ الأمر بدون وضع القيمة الراجعة في متغير set WshShell = CreateObject("WScript.Shell") WshShell.Popup "This is a popup box!", 10, "Title", 65 ويمكنك استعمال هذه الدالة من تصميمي للتعامل مع popup Function msg(strText As String,nSecondsToWait as integer, strTitle As String, nType As Integer) CreateObject("WScript.Shell").Popup strText,nSecondsToWait,strTitle,nType End Function طريقة استعمالها Sub mas() msg "text", 2, "title", 4+256 End Sub .... وفي الأخير لا ينقصني سوى دعاؤكم وفقنا الله وإياكم لكل ما يحب ويرضى
  7. omarAbdalrazaq
    السلام عليكم ورحمة الله اساتذتنا واخواننا في هذا المنتدى الجميل ارجو افادتي حول تعديل الكود الخاص بالسكنر المطلوب: تصغير حجم الصورة الماخوذة بالسكنر حيث ان كل صورة يبلغ حجمها 5 ميجا تنبيهي الى الاخطاء الموجودة في الكود لغرض التعلم هذا ولكم الاجر والثواب تحياتي للجميع Option Compare Database Option Explicit Dim destinationFolder As String Dim myScanPath As String Dim myScanPathWithID As String Dim myImageFullName As String Private Sub btnClose_Click() DoCmd.Close End Sub Private Sub btnDelete_Click() 'Make Sure PicPath not Null If IsNull(Path) Then MsgBox "لا بوجد مسار للصورة حتى تتم عملية الحذف", vbCritical + vbOKOnly, "نقص معلومات" Exit Sub End If On Error Resume Next If MsgBox("سيتم حذف المرفق نهائيا ولا يمكن التراجع عن الحذف مرة اخري", _ vbQuestion + vbYesNo + vbMsgBoxRight + vbDefaultButton2, _ "تأكيد الحذف") = vbYes Then DoCmd.RunCommand acCmdDeleteRecord Else DoCmd.CancelEvent End If End Sub Private Sub btnHdd_Click() 'Make Sure EmpID not Null If IsNull(EmpID) Or IsNull(TypeOfDocument) Or IsNull(DocumentNumber) Or IsNull(DocumentNumber) Or IsNull(FaceOrBack) Then MsgBox "يرجى اكمال المعلومات في الحقول قبل استعمال نسح صورة من الهارد", vbCritical + vbOKOnly, "نقص معلومات" Exit Sub End If Dim Syso As Object Dim MyFile As String myScanPath = "D:\MyScanDB" myScanPathWithID = myScanPath & "\" & [EmpID] Dim fso As Object Set fso = CreateObject("scripting.filesystemobject") If Not fso.FolderExists(myScanPathWithID) Then fso.createfolder (myScanPathWithID) End If Dim Addfile As Object Set Addfile = Application.FileDialog(3) With Addfile .AllowMultiSelect = False .InitialFileName = "" .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = True Then MyFile = Trim(.SelectedItems(1)) destinationFolder = myScanPathWithID & "\" & [TypeOfDocument] & " " & [DocumentNumber] & " " & Format([DocumentDate], "yyyy-mm-dd") & " " & [FaceOrBack] & " " & Format([DateOfTransfer], "yyyy-mm-dd hh-mm-nn-ss") & ".jpg" Me.Path = destinationFolder DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, destinationFolder Set Syso = Nothing Else Exit Sub End If End With End Sub Private Sub btnPrevew_Click() DoCmd.GoToControl "Path" If IsNull(Me![Path]) Then MsgBox "لايوجد مرفق" Else Application.FollowHyperlink [Path] End If Exit_btnHdd_Click: Exit Sub Err_btnHdd_Click: MsgBox Err.Description Resume Exit_btnHdd_Click End Sub Private Sub btnScaner_Click() 'Make Sure EmpID not Null If IsNull(EmpID) Or IsNull(TypeOfDocument) Or IsNull(DocumentNumber) Or IsNull(DocumentNumber) Or IsNull(FaceOrBack) Then MsgBox "يرجى اكمال المعلومات في الحقول قبل استعمال السكنر", vbCritical + vbOKOnly, "نقص معلومات" Exit Sub End If myScanPath = "D:\MyScanDB" myScanPathWithID = myScanPath & "\" & [EmpID] myImageFullName = "" 'Make Sure Folder Exsist if Not Create One destinationFolder = Dir(myScanPathWithID, vbDirectory) If destinationFolder = vbNullString Then VBA.FileSystem.MkDir (myScanPathWithID) End If Dim hg, OldFile, DBwithEXT Dim fdialog As Office.FileDialog Dim filepath As String Dim sdialog As New WIA.CommonDialog Dim imagefile As WIA.imagefile On Error GoTo errorhandle Set fdialog = Application.FileDialog(msoFileDialogSaveAs) OldFile = myScanPathWithID DBwithEXT = Dir(OldFile) hg = myScanPathWithID & "\" & [TypeOfDocument] & " " & [DocumentNumber] & " " & Format([DocumentDate], "yyyy-mm-dd") & " " & [FaceOrBack] & " " & Format([DateOfTransfer], "yyyy-mm-dd hh-mm-nn-ss") & Right(DBwithEXT, 3) With fdialog .Title = "Save as" .AllowMultiSelect = False .InitialFileName = [hg] .InitialFileName = hg + ".bmp" If .Show Then filepath = .SelectedItems(1) ' Else Exit Sub End If Set imagefile = sdialog.ShowAcquireImage() imagefile.SaveFile filepath Me.Path = filepath End With errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit End Sub MyPic.rar
  8. bouchaib zakaria
    السلام عليكم ورحمة الله تعالى وبركاته اليوم واجهتني مشكلة من وجهة نظري وهي active le contenu هذه الرسالة تاتي عند فتح قاعدة البيانات لاول مرة او عند تغيير الاسم لها - هل هناك اعدادات في اكسس تخفي هذه الرسالة نهائيا ام يتوجب تطوير كود لاخفائها المرجو من الاخوة الكرام افادتنا وشكرا
  9. AliAli47
    السلام عليكم لدي مشكلة في تحويل قاعدة بيانات access الى sql server وعند رفعها الى azure sql النماذج التي بها كويري لا تشتغل في برنامج access
  10. Nashwanye
    بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته يسعد ايامكم اساتذتي الاكارم اعمال على برنامج اكسس محمي ولكن فيه بعض النواقص وعملت على برنامج اخرى حتى اكمل النقص ولكن خطر في بالي لماذا لا ادمج برنامجي مع البرنامج الاصل بحيث اعمل على قاعدته ( الجداول ) بنماذجي وتقاريري حتى اذا حدث تغير في احد اسماء العملاء مثلاً يحدث التغيير عندي وكذلك استطيع إرفاد الإدارة بالتقارير والبيانات الازمة . اتمنى يكون سؤالي واضح ومفهوم وشكراً لتعاونكم المسبق.
  11. muhammad9050
    السلام عليكم ورحمة الله من فضل السادة اعضاء المنتدى في ملف الاكسس المرفق، يواجهني تحديان الاول: وهو ان الاستعلام الذي يحمل اسم"رصيد الصنف" لم يستنتج رصيد الصنف "بنسان ازرق" لان الصنف لم تسجل له عمليات البيع..فكيف يمكن مواجهة هذا التحدي؟ الثاني: كيف يمكن تقييد المستخدم عند ادخال الكمية المبيعة في جدول المبيعات بان يلتزم بان يكون الرقم المدخل اقل من رصيد الصنف؟ التجريبي الاخير.rar
  12. nessimfayez
    all_links_items اسم النموذج ده نموذج لربط الاصناف الرئيسية(main_item) بالاصناف الفرعية (sub_item) الداخلة في انتاج هذا الصنف الرئيسي مثل الكيك مكون رئيسي المكونات الفرعية دقيق بيض وهكذا مع حساب التكلفة للمنتج النهائي الي اخرة المطلوب او المشكلة تم عمل نسخ للبيانات المجمعة والمحسوبة من النموذج الفرعي للنموذج الأساسي ولكن تظهر الاحصائيات المحسوبة علي الفورم الرئيسي ولكن لاتوجد في الجدول الخاص برأس الفورم الرئيسي nessimfayez@gmail.com ارجو الافادة وشكرا new4.0.rar
  13. أ / محمد صالح
    بسم الله الرحمن الرحيم أنا مبرمج بالأكسس وكنا إذا أردنا حماية البرنامج قمنا بتحويله إلى mde وبعد التحويل لا يستطيع ولا حتى صاحب البرنامج أن يطّلع على الكود المكتوب في vba فكيف يتم ذلك في الإكسل ؟؟ شكرا لكم مقدما
  14. أ / محمد صالح
    السلام عليكم ورحمة الله وبركاته أعجبني جدا برنامج بنك الأكسس للأخ إكسير وأحببت أن أضيف إليه بعض الإضافات وبالفعل تم التواصل مع الأخ إكسير وبارك وأيد هذه الإضافات وإليكم الإضافات الجديدة 1-عدم التقيد بالتحميل من ملفات منتدى الفريق العربي فقط بل يتعدى إلى أي موقع على النت 2-عدم التقيد بامتداد الملف وهوrar بل يمكنك تحميل جميع الملفات بجميع الإمتدادات 3-إمكانية إضافة أقسام جديدة مثل صور و فيديوتعليمي وكتب وورد مثلا 4-يمكنك حذف القسم الذي لا ترغب فيه حتى وإن كان بداخله ملفات فسيتم حذف المجلد بكل محتوياته ويمكنك بعدها تغيير اسم القسم والمجلد وإنشاء الجديد 5-إمكانية إضافة صفحة الملف على النت للرجوع إليها لمزيد من التفاصيل حول الموضوع ويمكنك فتحها من داخل النموذج بزر الأمر الموجود 6-إمكانية فتح مجلد الملف بعد تحميله من نفس نموذج التحميل أما عن طريقة الاستخدام فهي نفس الطريقة المستعمله في مثال الأخ إكسير مع فارق بسيط وهو وضع رابط الملف كاملا وليس رقمه فقط وكذلك وضع رابط الصفحة كاملا مع ملاحظة معرفة امتداد الملف وكتابته في خانة امتداد الملف بنموذج إضافة ملف بدون النقطة مثل rar أو zip أو mdb وهكذا بدون النقطة بين اسم الملف وامتداده ملحوظة ترقيم الملفات والأقسام ترقيم تلقائي ولا علاقة له برقم الملف في الموقع أرجو من الإخوة ذكر آرائهم في المثال والاقتراحات حتى يتم تطويره والوصول به للكمال الممكن مع تحيات أخوكم محمد صالح bank_files.rar
  15. أ / محمد صالح
    بسم الله الرحمن الرحيم ............ والصلاة والسلام على رسولنا الكريم ............ أحببت أن أقدم هدية لأحبابي أعضاء وزوار منتدى أوفيسنا ملتقى مبرمجي الأوفيس العرب المدرسة الأولى التي تعلمت منها اساسيات برمجة الأوفيس وخاصة الإكسل فتوكلت على الله وقمت بعمل أبسط كود لتخفيض أمان الأكسس برمجياً لجميع إصدارات الأوفيس حتى التي لم تصدر منها بعد **************** ولقد تعلمت في هذا الصرح أن المبرمج الحق الذي يؤدي ما هو مطلوب بأقل كود ممكن بل قل بأقل عدد لحروف الكود إن أمكن //////////////////////// وكنت قد أصدرت قبل ذلك ملفات كثيرة صغيرة الحجم جداً وتؤدي مهام كبيرة جداً سميت هذه السلسلة ما خف وزنه وغلا ثمنه كان منها على سبيل المثال القرآن بالصوت والصورة إرسال البريد من الأكسس مباشرة أصغر كود لقراءة وتغيير دقة الشاشة وغيرها الكثير +++++++++++++++++ وأخيرا وليس بآخر أتقدم بالشكر لكل من ساهم في حل هذه المشكلة على كل ما قدموه في هذا المجال //////////////////////////////////////// وبناء على النقاشات الممتعة للإخوة الذين ظهرت معهم رسائل خطأ في بعض الأحيان تم اختصار الكود أكثر مما هو عليه ليصبح سطرا واحداً CreateObject("WScript.Shell").RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & Application.Version & "\Access\Security\" & IIf(Application.Version < 12, "Level", "VBAWarnings"), "1", "REG_DWORD" ........... ويوجد مرفق جديد به الملف بعد اختصار الكود وجعله سطرا واحدا ولا تنسوا أخاكم محمد صالح من صالح دعائكم MasAcessSecurity_mdb.rar MasAcessSecurity2.rar
  16. أ / محمد صالح
    بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، وهي شرح برمجة ساعة رقمية و عقارب في اكسل 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
  17. khaledreda
    التصميم فكرة مش مجر د برنامج _____البوربوينت أكثر من مجرد إنشاء شرائح العرض التقديمي يوجد أدوات وطرق جديدة لاستخدام PowerPoint لهواة رسم وتحريك الروسومات اتعلم موشن جرافيك بالبوربوينت l ايس كريم كونو ice cream cono https://youtu.be/tv4Guep71Qo
  18. khaledreda
    التصميم فكرة مش مجر د برنامج _____البوربوينت أكثر من مجرد إنشاء شرائح العرض التقديمي يوجد أدوات وطرق جديدة لاستخدام PowerPoint لهواة رسم وتحريك الروسومات رسم شخصية ميكي بالبوربوينت l اتعلم موشن جرافيك بالبوربوينت https://youtu.be/qpz0-pjAoDc
  19. khaledreda
    اتعلم موشن جرافيك بالبوربوينت l رسم وتحريك لحركة اليد بعلامة النصرl ما لاتعرفه عن البوربوينت https://youtu.be/P-1ARJPhHmk
  20. أ / محمد صالح
    موعدنا اليوم مع شرح طريقة كيف تعرف أسعار العملات اليوم بدون مغادرة برنامجك في VBA اوفيس 2003 أو 2007 أو 2010 أو 2013 أو 2016 أو 2019 سواء برنامج اكسس أو اكسل أو وورد أو باوربوينت مع التعرف على أكواد عملات العالم وكذلك اسماء العملات باللغة العربية والانجليزية التعرف على نسخ النص الموجود في مربع النص إلى الحافظة والكثير من المفاجآت اكتشفها بنفسك ثالثا لمن يريد تحميل الملف الذي تم استخدامه في الشرح يمكنكم التعليق سواء هنا في المدونة أو في اليوتيوب وسيصلكم رابط الملف بإذن الله والآن مع فيديو الشرح ************** ولا تنسوا أحبابي الدعاء لغيركم بظهر الغيب حتى يقول لك الملك: آمين ولك مثلها إن شاء الله وتذكر لو بخل بها غيرك ما وصلت إليك فشارك المعلومة مع جميع أصدقائك في جميع مواقع التواصل الاجتماعي ============ القادم أفضل بإذن الله
  21. omarAbdalrazaq
    السلام عليكم ورحمة الله اساتذتنا واخواننا في هذا المنتدى تحية لكم ارجو مساعدتي في خطاء برمجي عند الضغط على زر السكنر تظهر لي هذه الجملة (Type mismatch) Private Sub أمر166_Click() On Error Resume Next Dim y y = [dd] & "\" & [رقم الطلب] Dim fs As Object Dim q As Object Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(y) = True Then Else Set q = fs.Createfolder(y) End If Dim hg, OldFile, DBwithEXT Dim fdialog As Office.FileDialog Dim filepath As String Dim sdialog As New WIA.CommonDialog Dim imagefile As WIA.imagefile On Error GoTo errorhandle Set fdialog = Application.FileDialog(msoFileDialogSaveAs) OldFile = Me.x DBwithEXT = Dir(OldFile) hg = y & "\" & [a] & " " & [b] & " " & Format([c], "yyyy-mm-dd") & " " & [d] & "." & Right(DBwithEXT, 3) With fdialog .Title = "Save as" .AllowMultiSelect = False .InitialFileName = [hg] If .Show Then filepath = .SelectedItems(1) ' Else Exit Sub End If Set imagefile = sdialog.ShowAcquireImage() imagefile.SaveFile filepath [ImagePath] = filepath End With errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit End Sub
  22. khaledreda
    شرح فكرة عمل نفس فكرة Navigation Button فى النموذج بحيث اقدر اعرف رقم السجل من اجمالى السجلات فى تسلسل فى الاكسيس https://youtu.be/JG_c8YjtaDE
  23. khaledreda
    • طباعة التقرير مباشرة من نموذج فى الاكسيس • طباعة التقرير من داخل التقرير نفسه • معالجة الاخطاء عند الغاء امر الطباعة RUN TIME ERROR https://youtu.be/nm_gxqt7D-U
  24. khaledreda
    كيفية كتابة نص توضيحي داخل TEXT BOX واخفاءه بمجرد الضغط عليه وازاي اقدر اغير لون الكتابة داخل TEXT BOX فى الاكسيس https://youtu.be/pWm5_-fm4rk
  25. khaledreda
    لوجوهات l ايقونات صممها بنفسك وبمنتهى السهوله بالبوربوينت l مالا تعرفه عن البوربوينت https://youtu.be/E0dWT_V40KI
×
×
  • اضف...

Important Information

  I accept