ابوآمنة

شكراً لقد وجدت في الملتقى ما أريد ربط قاعدة الجداول بالباسورد المطلوب الثاني ما هو كود الباسورد الذي اضعه في كود الاستدعاء ؟

سأكون لك من الشاكرين أخي الحبيب محمد سلامة إذا كان هناك شرح مصور .

ممكن تساعندي أخي محمد سلامة في كيفية وضع كلمة مرور على قاعدة الجداول حاولت منذ مدة وكل تجاربي فشلت

أنشاء وحدة نمطية وضع الكود التالي : Option Compare Database Option Explicit Public Function CheckLinks(ByVal strDBPassword As String) As Boolean On Error GoTo CheckLinksErr Dim tdf As TableDef Dim strNewMDB As String Dim fd As FileDialog For Each tdf In CurrentDb.TableDefs If UCase(Left(tdf.name, 6)) <> "COMPAS" Then If Len(tdf.Connect) > 0 And tdf.Fields.count = 0 Then If Len(strNewMDB) = 0 Then Call MsgBox("مطلوب قم بتحديده واختياره (Market_be.accdb) ملف البيانات", vbCritical) Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = False .InitialFileName = CurrentDBFolder() .Filters.Add "Access Database File (*.accdb)", "*.accdb", 1 .title = "Select Back-End Data File" .ButtonName = "Link Tables" If .Show = False Then Exit Function Else strNewMDB = .SelectedItems(1) End If End With End If If (IsNull(strDBPassword) = True) Or (strDBPassword = "") Then tdf.Connect = ";DATABASE=" & strNewMDB Else tdf.Connect = ";DATABASE=" & strNewMDB & ";PWD=" & strDBPassword End If tdf.RefreshLink End If End If Next tdf CheckLinks = True CheckLinksDone: Exit Function CheckLinksErr: MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical Resume CheckLinksDone End Function Public Function CurrentDBFolder() As String Dim strPath As String strPath = CurrentDb.name Do While Right$(strPath, 1) <> "\" strPath = Left$(strPath, Len(strPath) - 1) Loop CurrentDBFolder = strPath End Function ثم استدعيها بأول نموذج يفتح لبرنامجك . If CheckLinks("") = False Then Call quit End If Dim tdfs As DAO.TableDefs Dim tdf As TableDef Dim sSourceDB As String Dim sBackupDB As String Dim backDBName As String Set tdfs = CurrentDb.TableDefs Set tdf = tdfs(tdfs.count - 1) sSourceDB = Right(tdf.Connect, Len(tdf.Connect) - 10) backDBName = Dir(Mid(tdf.Connect, 11)) sBackupDB = Mid(tdf.Connect, 11, Len(tdf.Connect) - (Len(backDBName) + 10)) ' أستخدمه في برنامجي وممتاز جداً من أحد الأخوة في المنتدى وأظنه ابوخليل

شكراً لكم كيف استدعي الوحدة النمطية ( المديول ) أريد الحدث الذي خلف الزر لاستدعائها , أو أرفاق مثال

وأنا أضم رغبتي معك

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

لعلك تستفيد من الملفين وهي مشاركات وجتها في الملتقى . Calendar.rar

ضع المؤشر بين الخط الفاصل بين الصفوف حتى يتحويل المؤشر إلى الأسود ذو سهمين بعدها تستطيع أن تتحكم بين مسافة الصفوف .

الملف مع المثال كامل ملف المفتاح (2017_12_19 03_25_31 UTC).rar

Private Sub Form_Open(Cancel As Integer) Dim App As Access.Application, strPath As String Set App = New Access.Application strPath = Application.CurrentProject.Path & "\sys.accdb" With App .DoCmd.RunCommand acCmdAppMinimize .OpenCurrentDatabase strPath, , "123" .DoCmd.OpenForm "Home", , , , , acWindowNormal ' .DoCmd.Maximize ' .Visible = True End With Set App = Nothing DoCmd.Quit End Sub هذا الكود يوضع في قاعدة البيانات الأولى في حدث عند الفتح هذه كانت مشاركة سابقة لأحد أعضاء المنتدى ممكن وضح باسورد على القاعدة الثانية key.accdb

جرب الآن New_-_Copy_(6).accdb

جرب الآن New_-_Copy_(5).accdb

يسمح لي أخي عبداللطيف يعمل الآن بدون مضاعفة الملبغ بعد التعديل اقساط معدله.accdb

إن شاء الله يكون المطلوبNew_-_Copy_(4).rar

أشكرك أخي الكريم تم استيراد الملف عن طريق أكسس كملف نصي وتحول إلى جدول

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

codes.rar أريد تحويل ملف csv إلى حقول يعني التاريخ في حقل ورقم الباركود في حقل آخر وهكذا ألا حظ فواصل بين كل قرأه للباركود هل بالإمكان تجزئها لحقول لو تكرمتوا

شكرا لكم جميعا وليكتمل العقد آمل وضع مثال مرفق لنرى التطبيق على أرض الواقع وشكرا

متألق كعادتك،،، إلى الأمام

تم شرح الطريقة في الفيديو