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

السلام عليكم كنت ابحث عن برنامج على جهازي الكمبيوتر بالصدفة وجدت هذا الملف الرائع احببت المشاركة معكم للفائدة اكواد كسس مهمة.rar

عندى اربع ازرار وليبل واحد عايزه عند الضغط على اى زرار منهم الزرار يتحول للون اصفر و الليبل يتحول لاسم الزرار ويعمل وميض بلون الزرار CHANGE LABLE BY 4 BITTON.accdb

:: السلام عليكم ورحمة الله وبركاته :: لا بد بين فترة وأخرى من اقتحام مجالات جديدة وتنمية المهارات البرمجية لدى للمبرمج 🙂 هذي المرة طرح أخي @TQTHAMI فكرة برنامج للكلمات المتقاطعة ، فلمعت في رأسي الفكرة وقررت خوض التجربة فنتج عنها ما يلي☺️ :: ((( لعبة الكلمات المتقاطعة ))) :: وهنا بعض الصور واللقطات للعبة إضافة لعبة جديدة وتصميمها :: وأخيرا تحميل الملف المفتوح 😊 :: لعبة الكلمات المتقاطعة.accdb

السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والرائعة (مكتبة الأكواد الخاصة) :: الإصدار الثالث :: مكتبة عامرة بمئات الأكواد VBA داعمة للمبرمجين وجزء لا يتجزأ من عملهم. تختصر الوقت وتسهل العمل على مصممي البرامج. وهي مكتبة عامة يمكن استخدامها لأي لغات برمجية أخرى . من مميزات المكتبة : - أكثر من 360 كود ودالة في مختلف الفنون والمجالات . - قابلة لحفظ مرفقات مع الكود لدعم التطبيق. - يمكنك إضافة أكوادك الخاصة لتكون مكتبة داعمة لكل مبرمج. - سهلة الاستخدام . تحميل المكتبة : مكتبة الأكواد الخاصة zip.zip ولا تنسوني من صالح دعواتكم 🙂🌹

الأخوة الكرام.. 🌹 السلام عليكم ورحمة الله وبركاته.. هل يمكنكم التكرم بمساعدتي في تفعيل نموذج البحث في الملف المرفق اريد نموذج البحث أن يقوم بفلترة البيانات في نموذج البحث بناءا على ثلاثة معايير بمجرد الكتابة تبدأ الفلترة.. أي يتم فلترة الجدول بالمعيار الأول ومن ثم فلترة البيانات المفلترة مرة أخرى بناءا على المعيار الثاني في الصندوق النصي 2 ومن ثم الفلترة الاضافية بناءا على المعيار الثالث. كذلك تفعيل امكانية طباعة النتائج أي البيانات المفلترة عند الصغط على زر الطباعة من خلال عرض نافذة الطباعة وليس الطباعة مباشرة. أنا أسف لو كان طلبي كبيرا او صعبا ☺️ ولكني اتمنى من الله ان يسخر لي من يساعدني في هذا المنتدى الرائع ولكم مني خالص الشكر 🖐️ قاعدة البيانات مع محرك البحث-1.accdb

السلام عليكم ورحمة الله وبركاته 🌹 درسنا اليوم عن طريقة عمل قوائم ديناميكية متحركة بأقل عدد من الأكواد وطريقة مبتكرة . 🙂 النتيجة النهائية : الشرح : تحميل الملف : Dynamic Menus.accdb

السلام عليكم ورحمة الله وبركاته اخواتي فى الله احتاج مساعده لحل مشكلة اللغة العربية في msgbox التى لا تظهر باللغة العربية علي شاشة المستخدم في اكسس

احبتي ما زلت اعمل على المثال المشكلة الحاصلة هي بسببين : 1- لوحة المفاتيح والأمر sendkeys .. احيانا وداخل الاجراء تتحول الى off فيختل ترتيب الأوامر وقد عالجت المشكلة باستخدام كود يجعل لوحة المفاتيح بوضع ON خلال تنفيذ الكود 2-ملاحظة غريبة بعد ترقية واتساب لم اكن اشاهدها في النسخة القديمة وهي ظهور مربع حوار اختيار المرفق ولصق رابط الصورة ثم اختيار الصورة ثم اسقاطها في واتساب . كل هذا يحدث آليا امام عيني بواسطة الاوامر المتكررة من sendkeys وهذا مزعج وغير احترافي وقد عالجت المشكلة واستبدلت الأوامر بامر واحد وهو اللصق مباشرة باستخدام Ctrl+V وقد نجحت الفكرة واختصرنا عدة حركات والتي كانت هي السبب المباشر في هذا الخلل طبعا استخدمت وحدتين نمطيتين واحدة للنسخ والاخرى للصق ، ولكني توقفت بسبب جودة الصورة .. حيث تظهر دقة الصورة رديئة وبحثت عن حلول فوجدت الحل الشافي ودقة 100% في طريقة الاستاذ جعفر وهي الاستعانة ببرنامج خارجي مساعد للنسخ ولكني افكر فيمن يريد توزيع برنامجه على نطاق واسع بحيث يلزم من يستخدم البرنامج تحميل برنامج الصور المساعد لذا سأنتظر لعلي اجد حلا لجودة الصورة المنسوخة ، والا سوف ارفعه حسب الطريقتين

شاهد الشرح ولو محتاج نسخه تجريبية كلمني واتساب https://wa.me/+201068694941?text=محتاج_نسخه_تجريبية او تليجرام https://t.me/Programming472

اعرض الملف 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والرائعة (مرسال الواتسأب) مع المرفقات مرسال الواتسأب مع المرفقات | سلسلة هدايا الأكسس | 03| 🎁 وهو عبارة عن برنامج صغير لإرسال الرسائل للواتسأب مع المرفقات .. :: من مميزات هذا الإصدار :: - إرسال رسائل فردية أو جماعية عن طريق برنامج الواتسأب . - لا يحتاج لبرنامج الإنترنت إكسبلورر لفتح الواتسأب. - لا يغلق مفتاح الـ NumLock بعد الإرسال. -تم اختصار الكود في موديول واحد ودالة واحدة تقوم بعملية الإرسال بعدة خيارات . - لو أردت تطبيق الكود في برنامجك الخاص ستحتاج لنقل الموديول إلى برنامجك + سطر برمجي واحد فقط لعملية الإرسال. :: شرح البرنامج :: :: لتحميل البرنامج :: صاحب الملف Moosak تمت الاضافه 30 مار, 2023 الاقسام قسم الأكسيس

السلام عليكم اخواني الاعزاء كود بسيط لمنع التكرار نحتاجة في معظم برامجنا مرفق قاعدة البيانات حدث قبل التحديث منع التكرار.accdb

السلام عليكم ورحمة الله وبركاته 🙂 اليوم بفضل الله تعلمت شي جديد وحبيت أحطه في تطبيق عملي مباشرة ً .. 😎 وفي نفس الوقت حبيت أشارككم الفائدة 😄 معلومة اليوم تتحدث عن الحدث : Form.Repaint للنموذج ويمكن كتابته هكذا Me.Repaint ووضيفته مشابهة للـ DoEvents تقريبا إلا أنه مع التجربة والمقارنة وجدته أسرع في التنفيذ . معناه الحرفي ( إعادة الرسم ) ووضيفته بشكل عام هو إظهار أي تحديثات معلقة للنموذج في أثناء تنفيذ أي حدث 😁 .. وللمزيد من المعلومات هنا ستجدون رابط الشرح من مايكروسوفت : <<< اضغط هنا >>>> المهم .. هذا تطبيقي على الحدث وتكمن في تحريك الأزرار عند الضغط عليها بشكل يضفي طابع جمالي وجديد للنماذج 🙂 ( قد لا تبين حركة الأزرار العلوية في الصورة التوضيحية .. لذلك سترونها بوضوح من خلال الملف المرفق 😁 ) وهذا شكلها في الأكواد المستخدمة : Function AnimateBtns1() Dim x As Integer Dim y As Integer For x = 1 To 6 Me("b" & x).Visible = True For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top + y Me.repaint Next y For y = 1 To 35 Me("b" & x).Top = Me("b" & x).Top - y Me.repaint Next y Me.repaint Next x End Function Function AnimateBtns2() Dim x As Integer Dim y As Integer For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top + y Me.repaint Next y Me.repaint Next x For x = 1 To 6 For y = 1 To 35 Me("c" & x).Top = Me("c" & x).Top - y Me.repaint Next y Next x End Function تحياتي 🙂 ✌️🌷🌹 حركة الأزرار.accdb

السلام عليكم ورحمة والله تعالى وبركاته طيب ببساطه انظر للسلسلة النصية الاتية "Moh8202281012343434" ونريد التعديل عليها لتظهر بهذا الشكل "Moh-820-228-101-234-343-4" او بهذا الشكل "Moh,820,228,101,234,343,4" او بهذا الشكل Moh820/228101/234343/4 يتم عمل ذلك من خلال الكود الاتى Function ReFormat(ByVal strText As String, Optional strSymbol As String = "-", Optional intCountDigits As Integer = 3) Dim i As Long ReFormat = "" For i = 0 To Len(strText) - 1 Step intCountDigits If i = 0 Then ReFormat = Mid(strText, i + 1, intCountDigits) Else ReFormat = ReFormat & strSymbol & Mid(strText, i + 1, intCountDigits) End If Next i End Function syntax code ReFormat(string ,Symbol, Count Digits) Result By default syntax used ReFormat(string) Symbol >-->> - Count Digits >-->> 3 اذا من خلال استدعاء الكود عن طريق البنية المفضلة الاتية: ReFormat(string) تحصل على اضافة العلامة - بعد كل 3 مواضع فى السلسلة النصية اما اذا اردت التعديل فى شكل الرمز وعدد المواضع يمكنك استخدام الكود الاتى : ReFormat(string ,Symbol, Count Digits) مثلا لو اردت استخدام الرمز $ بدلا من الرمز - وتريد وضع الرمز فى السلسلة النصية بعد كل خمس مواضع يكون الكود كالأتى: ReFormat(string ,"$", 5)

‏ملفات البرنامج تتكون ؟ ملف النماذج ملف البيانات ملف التقرير ملف الاستعلامات الشعار الخاص بالشركة يمكن تغييره من طرف حضرتك باختيار موقع الحفظ مميزات البرنامج البرنامج يدعم العديد من الشركات مثال اذا كان لديك اكثر من شركة او نشاط تجاري تستطيع اضافتهم علي السيستم يدعم تعدد الفروع مثال إذا كان لديك أكثر من فرع في الشركة، تستطيع إضافة جميعهم على السيستم. التقارير يمكن استخراج التقارير الى اكسل او وورد او PDF و CSV و HTML و غيرهم. استيراد البيانات يمكن استيراد البيانات الاساسية من اكسل للنظام. ترقيم المستندات مرونة كاملة فى ترقيم المستندات بمعنى انه يمكن عمل سريال خاص بمستندات كل فرع او كل مخزن. تحليل البيانات يدعم خاصية تحليل البيانات بمعنى انه يمكن معرفة تفاصيل ارصدة الحسابات بمجرد الضغط عليها. تقارير اضافية يدعم امكانية عمل تقارير اضافية بدون الرجوع لشركة PRO TECH. صلاحيات المستخدمين مستوى متقدم جدا من تفصيل الصلاحيات للمستخدمين حسب صلاحية كل مستخدم. الترابط بين الأقسام كافة اجزاء النظام مترابطة مع بعضها البعض. معايير المحاسبة تم بناء نظام PRO TECH مع مراعاة معايير المحاسبة المصرية والدولية. سهولة الاستخدام سهولة كبيرة فى استخدام نظام PRO TECH." النظام الأساسي يشتمل النظام الأساسي على كل ما يتعلق بإدارة المخازن وإدارة المشتريات والموردين وادارة المبيعات والعملاء والحسابات التشغيلية. يتكون النظام الأساسي PRO TECH من: نظام إدارة المخازن نظام إدارة المشتريات والموردين نظام إدارة المبيعات والعملاء نظام إدارة المصروفات نظام إدارة النقدية نظام إدارة أوراق القبض وأوراق الدفع نظام إدارة عُهد الموظفين نظام إدارة الحسابات المدينة والدائنة نظام المرتبات وشئون العاملين نظام ادارة المرتبات وشئون العاملين متخصص فى ادارة كل ما يتعلق بالموظفين داخل المنشأة ويساعد ادارة الموارد البشرية داخل المنشأة فى تنفيذ مهامها بمنتهى الدقة والسهولة. هذا النظام يشتمل على الاتى: جزء كامل لبيانات وملفات الموظفين. ادارة الحضور والانصراف داخل المنشأة مع امكانية تعريف سياسات ولوائح المنشأة حتى يتم تنفيذها بشكل تلقائى. كل ما يتعلق بالاجازات والاذون والمأموريات وسياسات التأخير والوقت الاضافى. السلف والمكافأت والجزاءات. المرتبات والتأمينات للتواصل وشراء النسخة الاتصال علي قم +201068694941

السلام عليكم ورحمة الله وبركاته هذا ناتج تمرين اليوم على البرمجة VBA 🙂 :: آلة حاسبة :: أهديكموها مفتوحة المصدر 😊🎁 ملاحظة : تم إضافة خاصية الحساب عن طريق مفاتيح الكيبورد 😊 مع حل مشكلة الأرقام العشرية 😁 آراؤكم ودعواتكم 😉 Moosak Calculator V1.1.accdb

كنت عايز اقفل قاعده البيانات اكسس وفتحها بالسريال نمبر فقط وتحديد عدد الايام وغلقها ويمكن تحديث السريال بعد فتره

السلام عليكم ورحمة الله إزيك يا جماعة الخير لو سمحتوا محتاج مساعدة فى الكود ده لو ينفع بالحلقات التكرارية أو يعمل أسرع 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

اريد الالتحاق بدروة في avb access

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

السلام عليكم ورحمة الله اساتذتنا واخواننا في هذا المنتدى الجميل ارجو افادتي حول تعديل الكود الخاص بالسكنر المطلوب: تصغير حجم الصورة الماخوذة بالسكنر حيث ان كل صورة يبلغ حجمها 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

السلام عليكم ورحمة الله تعالى وبركاته اليوم واجهتني مشكلة من وجهة نظري وهي active le contenu هذه الرسالة تاتي عند فتح قاعدة البيانات لاول مرة او عند تغيير الاسم لها - هل هناك اعدادات في اكسس تخفي هذه الرسالة نهائيا ام يتوجب تطوير كود لاخفائها المرجو من الاخوة الكرام افادتنا وشكرا

السلام عليكم لدي مشكلة في تحويل قاعدة بيانات access الى sql server وعند رفعها الى azure sql النماذج التي بها كويري لا تشتغل في برنامج access

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

all_links_items اسم النموذج ده نموذج لربط الاصناف الرئيسية(main_item) بالاصناف الفرعية (sub_item) الداخلة في انتاج هذا الصنف الرئيسي مثل الكيك مكون رئيسي المكونات الفرعية دقيق بيض وهكذا مع حساب التكلفة للمنتج النهائي الي اخرة المطلوب او المشكلة تم عمل نسخ للبيانات المجمعة والمحسوبة من النموذج الفرعي للنموذج الأساسي ولكن تظهر الاحصائيات المحسوبة علي الفورم الرئيسي ولكن لاتوجد في الجدول الخاص برأس الفورم الرئيسي nessimfayez@gmail.com ارجو الافادة وشكرا new4.0.rar