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

تفضل Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim a Dim i&, r& Dim ws As Worksheet, sh As Worksheet Set ws = Sheet1: Set sh = Sheet2 With ws a = .Range(.Range("A10:G10"), .Range("A10:G10").End(xlDown)) End With If Target.Address = "$F$8" Then r = Sheet1.Cells.Find(Target, , , 1).Column With CreateObject("scripting.dictionary") For i = 1 To UBound(a) If a(i, 1) = sh.Cells(8, 5) Then If Not .exists(a(i, 1)) Then .Add a(i, 1), a(i, r) Else .Item(a(i, 1)) = .Item(a(i, 1)) & "|" & a(i, r) End If: End If Next a = Split(.items()(0), "|") With sh.Cells(10, 6) .Resize(Rows.Count - .Row + 1).ClearContents .Resize(UBound(a) + 1) = Application.Transpose(a) End End With End With End If End Sub رزان2.xlsm

وعليكم السلام ورحمه الله وبركاته جرب هذه المعادله =COUNTIFS('اجر وظيفي '!$C$4:$C$100, 'الاعداد '!$B$4:$C$4, 'اجر وظيفي '!$E$4:$E$100, B5)

@محمد الحضري جرب ان تضع اجراء الغاء الحماية في بداية الكود ومن تم اجراء حماية في نهاية الكود . لقد قمت بوضع الكود في المكان الخطأ يجب وضعه في موديول الورقة كما هو ظاهر بالكود. تحياتي.

تفضل أخي الكريم ربما؟ Sub test2() Dim ws As Worksheet: Set ws = Sheets("التقرير") Dim sh As Worksheet: Set sh = Sheets("كشف الطباعة") Dim a, b, w Dim i&, c&, ii&, kk& Dim r As Range Dim f As String a = ws.Range(ws.Cells(6, 1), ws.Cells(6, 4).End(xlDown)) b = ws.Range(ws.Cells(6, 6), ws.Cells(6, 7).End(xlDown)) With CreateObject("scripting.dictionary") For i = 1 To UBound(a) If Not .exists(a(i, 4)) Then .Add a(i, 4), Array(a(i, 1), a(i, 2), a(i, 3)) Else w = Application.Transpose(.Item(a(i, 4))) ReDim Preserve w(1 To UBound(w), 1 To UBound(w, 2) + 1) w = Application.Transpose(w) For ii = 1 To 3 w(UBound(w), ii) = a(i, ii) Next .Item(a(i, 4)) = w End If Next Set r = sh.Columns("a").Find("م", , , 1) If Not r Is Nothing Then f = r.Address: i = 1 Do w = .Item(.Keys()(kk)) 1 [r].Offset(1).Resize(25, 3).ClearContents [r].Offset(1).Resize(b(i, 2), 3) = Application.IfError(Application.Index(w, _ Evaluate("Row(" & 1 + c & ":" & c + b(i, 2) & ")"), [{1, 2,3}]), "") If i = UBound(b) Then Exit Sub If b(i, 1) = b(i + 1, 1) Then Set r = sh.Columns("a").FindNext(r) c = c + b(i, 2): i = i + 1 GoTo 1 Else: GoTo 2 End If 2 kk = kk + 1: i = i + 1: c = 0 Set r = sh.Columns("a").FindNext(r) Loop Until r.Address = f End If End With End Sub ترحيل أسماء.xlsm

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

لماذا لا توضح كيف يعمل البرنامج ولماذا محمي؟ حتى لو زودتنا بكلمة سر لماذا لا ترفق الملف بدون كلمة سر؟ بما انك لم توضح شيء !! من خلال نظرة سريعة في بعض الحلقات التكرارية لم تقوم بانهائها في نهاية الكود . NEXT I تحياتي .

وعليكم السلام ورحمة الله وبركاته ضع الكود في محرر الاكواد واربطه بزر Sub FindReplaceAll() Application.Dialogs(xlDialogFormulaReplace).Show End Sub

بسم الله الرحمن الرحيم كما تعودنا واستكمالا لشروحات الفورم التفاعلي باضافات بعض الحيل والافكار للوصول لشكل يسهل للمستخدم التعامل مع اليوزفورم النهاردة هانتعلم الذاي نعمل قائمة منسدلة لجميع تبويات الفورم من خلال بعض الاعدات في شيت منفصل بعيدا عن تعقيدات الاكواد وتكرارها باستخدام Class Modules كود واحد ومختصر وقائمة واحدة تتغير حسب التبويب كنت وعد احد الاخوة في موضوع الدرس الأول للفورم التفاعلي الاخ اسامة فوزي واحتياجه لفورم متعدد المهام والوظائف ليطور عمله ففضلت ان تكون الاجابة عامة حتى يستفيد منها الجميع وادعوا الله ان اكون عند حسن ظنه وظنكم في. أطروحتنا النهاردة بسيطة وشيقة اشبه بمغامرة انك تعبر عن قدرتك وتعاملك في التصميم والكود كانك رسام يرسم لوحة وبربط بين تفاصيلها لتعبر عن رؤية بصرية محددة في مخيلة من قام بالرسم وحياكة التفاصيل حياكة متناسقة لتصل الي المتلقي بسهولة ويستطيع ان يتعامل معها ويمكنك تغيير المسميات للقوائم المنسدلة او الرئيسية من خلال شيت الاعدادات بكل سهولة وتضيف كما تشاء من تبويات بكل سهولة اسيبكم مع الملف واي شيء يحتاج لشرح او توضيح لا تتردوا في طلبه والله ولي التوفيق Create Dynamic Drop-Down Menu In Excel Userform الملف بالمرفقات مفتوح المصدر Create Dynamic Drop-Down Menu In Excel Userform Officana.xlsm

استاذتنا الأفاضل اسعد الله اوقاتكم بكل خير ارجو المساعده بالمثال المرفق عندى زر اضافه مرفق وزر معاينه ويوجد بهم اكواد الاضافه والمعاينه وايضا الــ Module المشكله تتلخص بالتالي 1- الــ Module d يوجد به خطأ ولا يعمل على اكسس 2007 2- زر المعاينه المفروض يقوم باخذ نسخه من المرفق الذى تم اختياره ووضعه في ملف اسمه pdfFolder برقم الــ ID لكن عند الضغط عليه بيعمل ملف جديد برقم الــ ID 3- زر الاضافه لا يعمل بالشكل الصحيح لسبب الخطأ الموجود بالــ Module نسخه من مرفق.zip

كود استاذ ابو خليل يعمل جيدا .. لكن بالنسبة للكود الذي طرحته يعمل هكذا Private mlngTimeout As Date Private Sub Form_Timer() Me.txt.Caption = 10 - DateDiff("s", mlngTimeout, Now) If Me.txt.Caption = 0 Then DoCmd.Close Else Exit Sub End If End Sub Private Sub Form_Load() mlngTimeout = Now Me.TimerInterval = 1000 End Sub Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) mlngTimeout = Now End Sub ملاحظة: txt هو اسم ليبل تضعه في النموذج ليحسب الوقت لغلق النموذج

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

انا اسف تعديل الاخ الفاضل المهندس قاسم ليس الاخ المذكور اسمة

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

كيفية ترحيل بيانات في نفس الشيت من غير كتابة اكواد فيجوال فيديوووووو جديددددد في هذا الفيديو هانتعلم ازاي نرحل بيانات من استخدام تعقيدات استخدام الاكواد في الفيجوال بيسك ... هانرحل بيانات في نفس الشيت بطريقة بسيطة https://youtu.be/nAdK-mKeZJM

لعرض المزيد من البيانات على الشاشة، يمكنك التبديل مؤقتا إلى طريقة عرض ملء الشاشة. تخفي طريقة عرض ملء الشاشة شريط واجهة مستخدم Microsoft Office Fluentشريط الصيغة وشريط المعلومات. للوصول إلى العناصر المخفية مرة أخرى، يجب عليك العودة إلى طريقة عرض الشاشة العادية. للتبديل إلى طريقة عرض ملء الشاشة، اضغط على CTRL+SHIFT+F1. للعودة إلى طريقة عرض الشاشة العادية، اضغط على CTRL+SHIFT+F1 مرة أخرى. https://support.microsoft.com/ar-sa/office/التبديل-إلى-طريقة-عرض-ملء-الشاشة-أو-عرضها-العادي-في-excel-cbf43625-3fbc-48ca-9ed7-1fc678f3a0cc

وعليكم السلام ورحمه الله

حسب طلبك جرب انقل السطر داخل الدوارة For i = 0 To REC.RecordCount If MsgGo = 2 Then MsgGo = 1 MsgBox "::::::::::::::::::: ( Sending Failed ) :::::::::::::::::::" Exit Sub End If DoCmd.OpenForm "email3", acNormal '********* ' Debug.Print REC![email_c] SendEmaile (REC![Email_c]) '********* REC.MoveNext

أستاذى حمدى مبروك عليك تلاحظ انك لم تضغط على أفضل إجابة و هناك مواضيع لم تضع حل المشكلة ليستفاد منها الجميع

ههههههههه سامحك الله اخي @حمدى الظابط .. فهاذا سؤ ضن منك بما أنك قلت هذه العبارة استوجب عليا الرد .. وحتى تعلم الفرق بين أنسان يبحث عن البرامج الجاهزة الموجودة بالانترنت وما اكثرها وبين أنسان له منذو عام 2016 عضوا يسأل ويناقش ويشارك ويبحث في هذا المنتدى العريق فأرجو أن تتقبل ردي هذا بحسن نية وسعة صدر كم استفدنا من الملفات النهائية الذي يهديها اساتذتنا واعظاء المنتدى مثل ( ابانا الغالي @jjafferr و @صالح حمادي و @Shivan Rekany و @ابو جودي و @Moosak و @ابوخليل و @أ / محمد صالح و @ابوآمنة ........الخ .. وغيرهم الكثبر فالقائمة تطول ) ولديهم ملفات أكثر تعقيدا بالاكواد .. ( ابحث عن برامجهم وملفاتهم الذي اهدوها لنا في المنتدى وانظر بنفسك ) كم أستفدنا منها .. وليس شرطا أننا قمنا بعمل نسخ ولصق لملفاتهم وانما عرفنا طريقة عمل الاكواد وطريقة البناء السليم للملفات .. أسأل الله أن يجعلها لهم ذخرا وثواباً يوم القيامة وأن يدخلهم جنته الفردوس الأعلى .. وأسأل الله أن لا ننساء هذا لهم وأن نشهد لهم يوم القيامة بما قدموه لنا من المساعدة وضحو من اجلنا أثمن اوقاتهم .. فجزاهم الله عنا وعن جميع المسلمين كل خير .. للعلم اخي واستاذي حمدي ليس ملفك بالضبط هو مانريدة ونكتفي به .. وانما نريد الاطلاء على الاكواد والاستعلامات ووووالخ حتى نستفيد في طريقة عملها ونقوم بتعديلها في برامجنا .. فليس مجالي برامج المدارس .. ولا احب ان ادخل فيه .. وانما مجالي أمراً أخر .. فأكبر غلطة نرتكبها نحن العرب أننا نكرر نفس الاخطاء ونعيد نفس التجربة كل مرة في الاخطاء ويضيع عمر الانسان في ذلك . وكلامي هذا لا يقلل من احترامي لك ولا من همتك العالية في وصولك الى النتيجة .. كما لك الحرية في ان تضع ملفك او لا ونصيحة لك: أن تكون لك دعوة في ظهر الغيب خير لك من كنوز الدنياء وعلى العموم أكرر شكري واحترامي لك وشكرا على الروابط ...

شكرا للمداخلة والمشاركة اخوي قاسم على الرحب والسعة انا غفلت عن مكان الحدث غير حدث الماوس الى تفصيل النموذج Const MyTime = 5 'وقت سكون النموذج /ثواني Dim i As Integer Private Sub detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) i = 0 End Sub Private Sub Form_Timer() i = i + 1 If i > MyTime Then DoCmd.Close End Sub اجعل تايمر النموذج في الخصائص / عند عداد الوقت = 1000 إغلاق تلقائي بعد مدة2.mdb

DLookUp("[sumOftot]";"Query_table1";"[coud]=" & coud)

هناك مشكلة عندي ...لماذا لم يظهر المرفق عندي وتصورت ان صاحب السؤال ارفق الصور فقط لولا اجابة الاستاذ @kkhalifa1960..التي جعلتني انتبه بأن المرفق لم يظهر عندي !!

وعليكم السلام .. ضع في control source of (doyoun)..شيء كهذا DLookUp("[tot]";"Query_table1";"[coud]=" & coud)

تفضل أخي print eta-1.accdb

السلام عليكم تم عمل المطلوب في الملف المرفق... asb2.xlsm

بعد إذن الاستاذ محمد يوسف الاستاذ طاهر ينقصك وضع النص بين " " =COUNTIF(C3:C24;"طبيب")

وعليكم السلام ورحمة الله اري الكود المستخدم ثقيل بعد تحديد العمود كلة فانصحك بهذا الكود جميل وبسيط ويفي بالغرض المطلوب تفضل الملف New Microsoft Excel Worksheet (3).xlsb الكود المستخدم Sub Run() Application.ScreenUpdating = False ' Range("F2") = _ "=COUNTIF(C5,RC[-2])" Range("F3") = _ "=R[-1]C[-2]" Range("F2:F3").Value = Range("F2:F3").Value Application.ScreenUpdating = True End Sub

وعليكم السلام تفضل =COUNTIF($B$2:$N$478;A1) من B2:N478 ده المكان المراد البحث في عن الاسم المكتوب في A1 ان كان هذا ليس هو المطلوب فيرجي ارسال ملف مدعوم بشرح لما تريدة

عليكم السلام ربما Private Sub CommandButton3_Click() Dim c&, i& For i = 0 To ListBox1.ListCount - 1 With Sheets("ورقة1") .Range("g6").Offset(c).Value = ListBox1.List(i, 0) .Range("h6").Offset(c).Value = ListBox1.List(i, 1) .Range("i6").Offset(c).Value = ListBox1.List(i, 2) c = c + 1 End With Next i End Sub

وهذا تطبيق مبدئى GeneratorPassword.accdb

سأحاول شرحها لاحقا بمثال تطبيقي في موضوع منفصل إن شاء الله 🙂

تفضل أخي أزهر 🙂 (1) هذه الأكواد الاثلاثة لأزرار [إضافة ملف] و [فتح الملف] و [حذف الملف] : Private Sub AddFilesBtn_Click() '================================================================ هذا الجزء يوضع على الزر الذي يضيف الملف Dim file As String Dim fileName As String Dim SavePath As String If Me.NewRecord Then MsgBox "أكتب التفاصيل أولا", vbOKOnly, "": Exit Sub file = selectFile If IsBlank(file) Then Exit Sub fileName = GetFileName(file) SavePath = BECurrentPath & "attachments\" & [ID] & "\" & fileName ' يتم حفظ الملف في مجلد المرفقات بجانب قاعدة البيانات في مجلد بنفس رقم الآيدي MkDir (BECurrentPath & "attachments\") MkDir (BECurrentPath & "attachments\" & [ID] & "\") FileCopy file, SavePath ' حفظ المسار في مربع النص Me.filepath = fileName Me.Refresh MsgBox "تم إضافة الملف بنجاح" End Sub '================================================================ هذا الجزء يوضع على الزر الذي يفتح الملف Private Sub BrowserBtn_Click() On Error GoTo ErrorFix If Not IsBlank(Me.filepath) Then If IsFileExists(Me.filepath) = False Then MsgBox "لا يمكن العثور على الملف" Else OpenPath Me.filepath End If Exit Sub Else MsgBox "لا يوجد مرفقات" Exit Sub End If ErrorFix: If Err.Number = 0 Then On Error Resume Next Else MsgBox Err.Number & "\\\" & Err.Description End If End Sub '================================================================ هذا الجزء يوضع على زر الحذف Private Sub DeletBtn_Click() On Error GoTo whathapen If MsgBox("هل أنت متأكد من رغبتك في حذف المرفق ؟", vbYesNo, "تأكيد الحذف") = vbYes Then Else Exit Sub End If If Not IsBlank(Me.filepath) Then If IsFileExists(Me.filepath) = False Then MsgBox "لا يمكن العثور على الملف" Exit Sub Else DleteFolder BECurrentPath & "attachments\" & [ID] Me.Attachment = "" MsgBox "تم حذف الملف" Exit Sub End If Else MsgBox "لا توجد مرفقات" Exit Sub End If whathapen: If Err.Number = 53 Then MsgBox "لا توجد ملفات لحذفها" Exit Sub ElseIf Err.Number = 0 Then On Error Resume Next Else MsgBox Err.Number & "\\\" & Err.Description End If End Sub (2) وهذه الأكواد ضرورية لتشغيل الأكواد السابقة .. ضعها في موديول منفصل : Public Function selectFile() On Error GoTo ErrHandler Dim fd As FileDialog Dim filedialogPath As String Set fd = Application.FileDialog(msoFileDialogFilePicker) fd.AllowMultiSelect = False fd.Title = "حدد الملف المطلوب" ' fd.InitialFileName = CurrentProject.Path fd.Filters.Clear fd.Filters.Add "كل الملفات", "*.*" If fd.Show = True Then selectFile = fd.SelectedItems(1) ' Exit Function Else MsgBox "لم تقم باختيار أي ملف" Exit Function End If ErrHandler: If Err.Number = 0 Then Exit Function Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description ' End If End Function Public Function IsBlank(arg As Variant) As Boolean Select Case VarType(arg) Case vbEmpty IsBlank = True Case vbNull IsBlank = True Case vbString IsBlank = (LenB(arg) = 0) Case vbObject IsBlank = (arg Is Nothing) Case Else IsBlank = IsMissing(arg) End Select End Function Public Function GetFileName(txtPath As String) As String ' To Extract File Name From A given Path GetFileName = Right(txtPath, Len(txtPath) - InStrRev(txtPath, "\")) End Function Public Function IsFileExists(txtPath As String) As Boolean ' To check whether a given file or folder exists or not If Len(Dir(txtPath, vbDirectory)) = 0 Then IsFileExists = False Else IsFileExists = True End If End Function Public Sub OpenPath(strpath As String) Shell "explorer.exe" & " " & strpath, vbNormalFocus End Sub Public Function DleteFolder(FolderPath As String) Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFolder FolderPath, True Set fs = Nothing End Function Public Function BECurrentPath() On Error GoTo ErrHandler Dim FullLinkedPath As String Dim LinkedDBPath As String FullLinkedPath = Nz(DLookup("Database", "MSysObjects", "Type=6"), "") If FullLinkedPath <> "" Then LinkedDBPath = Left(FullLinkedPath, InStrRev(FullLinkedPath, "\") - 1) BECurrentPath = LinkedDBPath & "\" Else BECurrentPath = CurrentProject.Path & "\" End If ErrHandler: If Err.Number = 0 Then Exit Function Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description End Function

وعليكم السلام أخي أزهر 🙂 طلبط بسيط بإذن الله ، ولكن سأعرض عليك خدمات أكثر 😊 - هل تريد نقل الملف أيضا إلى مجلد بجانب قاعدة البيانات ؟ - وإضافة زر لفتح الملف .. ؟ - وزر آخر لحذفه ؟ إذا كانت إجابتك بنعم .. فسأرفق لك الأكواد .. أما إذا كنت فقط ستكتفي بالسؤال فهذا هو الكود الذي طلبته 🙂 : On Error GoTo ErrHandler Dim fd As Object Dim filedialogPath As String Set fd = Application.FileDialog(1) fd.AllowMultiSelect = False fd.Title = "حدد الملف المطلوب" fd.Filters.Clear fd.Filters.Add "كل الملفات", "*.*" If fd.Show = True Then 'Debug.Print fd.SelectedItems(1) Me.filesource = fd.SelectedItems(1) Else MsgBox "لم تقم باختيار أي ملف" Exit Sub End If ErrHandler: If Err.Number = 0 Then Exit Sub Else MsgBox "Error Number : " & Err.Number & " :::: " & Err.Description End If

الأستاذ العزيز @ابوخليل جابلك الحل للقاعدة الحالية جزاه الله خيرا .. 🙂 وكمقترح وفكرة لحل هذه القضية .. لما تستورد أي ملف في قاعدة البيانات إحفظ في الجدول الجزء اللي بعد المجلد اللي فيه قاعدة البيانات فقط .. وخلي الكود يكمل لك مسارات الملفات .. وبهذي الطريقة ممكن تنقل البرنامج لأي جهاز ثاني بدون ما تتأثر البيانات في الجدول وما يحتاج تغيرها كل مرة تنقل البرنامج .. توضيح ومثال : مثلا هذا رابط الملف كاملا (مع العلم أن ملف قاعدة البيانات موجود في المجلد الذي باللون الأخضر ): D:\MoosaKDataBase\Files\Id_Folder_564\MyWordFile.docx إحفظ في الجدول الجزء الذي باللون الأحمر فقط : D:\MoosaKDataBase\Files\Id_Folder_564\MyWordFile.docx هكذا : Files\Id_Folder_564\MyWordFile.docx ولما تحتاج تستدعي الملف تخلي هاذا الكود يكمل لك الباقي : CurrentProject.path & "\" & a وسيكون الرابط مكتملا هكذا CurrentProject.path & "\" & Files\Id_Folder_564\MyWordFile.docx وظيفة الكود الذي باللون الأزرق هو إحضار رابط المجلد الذي فيه قاعدة البيانات أينما كانت .. ويتغير بتغير موقعها من جهاز إلى آخر .. وسلامتكم 😉🖐🏼️

جزاك الله كل خير أستاذ سليم عمل رائع ولإثراء الموضوع بعد اذن حضرتك هذا حل اخر بالمعادلات العادية فإذا كان مثلا الرقم القومى موجود بالخلية A2 فيمكنك استخدام هذه المعادلة مع السحب بباقى الأعمدة =MID($A2,COLUMN(A2),1) الرقم القومي.xlsx

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

تفضل

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

هذا ما أقوله لك يمكنك تجربة ملف كهذا -اسهل وأدق في التعامل من ملفات الجداول الجاهزة فقط يمكنك تغيير البنود والأصناف فهذا هو الأدق في عمل خروج ودخول الأصناف Stock.xlsm

ممكن توضحلى المشكلة بالضبط بالصور على الملف لأن صفحة Stock خاصة بك انت لم اقم بعمل اى حاجة بها فقط قمت بالعمل على صفحة In & Out كما أخبرتك

وضع لو سمحت بالضبط المشكلة على الملف فالمعادلة الموجودة كما اخبرتك في العمود E من صفحة In& Out تعمل بكفاءة معى

وعليكم السلام-اهلا بك في المنتدى كان عليك استخدام خاصية البحث في المنتدى تفضل هذا الرابط : https://www.officena.net/ib/topic/91673-برنامج-لتسجيل-الخطابات-وحفظها-مع-إمكانية-فتحها-صادر-وارد/?tab=comments#comment-574880 وهذا فيديو لشرح طريقة وبرنامج اخر https://www.youtube.com/watch?v=8zCrmBIs_aY

بارك الله فيك وجزاك الله كل خير

تفضل لك ما طلبت ولاحظ هذه الصورة فسوف توضح لك الذى تسأل عليه طب الفم والاسنان.xlsx

برنامج على السريع يلي حابب يطورو ويشتغل عليه يوجد بة عدده قنوات راديو عربيه وشكرا للاخ ( ابو البشر ) يلي عمل التصميم وكملت عليه FM.rar

السلام عليكم ورحمة الله وبركاته في المثال غنية عن المقال فتح الصورة بالمستعرض.rar

السلام عليكم وإثراء للموضوع ، فاليكم هذه المعلومة (مع انها متأخرة بعض الشيء) : برامج mdb يوجد بها كلمة السر ، فمن السهل استخراجه ، لأننا نتكلم عن محرك MDB والذي اسمه JET وهو معمول من اوائل التسعينات ، وكلمة السر بداخله ، ولكن من الصعب استخراج كلمة السر من برامج accdb ، لأن محركه الجديد ACE ، يشفر بطريقة معقدة بينما في برنامج الواجهة (سواء MDB او ACCDB) والذي كان مرتبط ببرنامج الخلفية (الذي عليه كلمة السر) ، فكلمة السر تكون موجودة في الجدول MsysObjects في برنامج الواجهة ، وبدون تشفير وهذه اسهل واسرع طريقة للحصول عليها جعفر