محمد سلامة

السؤال هل يمكن مزامنة البيانات لأكثر من جهاز بمعني بمجرد ادخال اي مستخدم بيانات يستطيع اي مستخدم آخر الاطلاع عليها؟! اعتقد من تجارب سابقة لايمكن والله اعلم

الله ينور يابا جودي🌹

اللهم صل وسلم وبارك على سيدنا محمد وعلى اله وصحبه وسلم

اهلا وسهلا بك يا دكتور استخدام الكود التالى فى وحدة نمطية 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(" server_database من فضلك البرنامج غير متصل بقاعدة البيانات الرئيسيةالمسمى ", vbCritical, "SOFT.SAMPLE") Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = False .InitialFileName = CurrentDBFolder() '.Filters.Add "Access Database File (*.accde)", "*.accde", 1 .Filters.Add "Access Database File", "*.mdb, *.accdb, *.mde, *.accde, *.mda, *.accda" .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 ويتم منادته كم خلال النموذج بالكود التالى Private Sub Form_close() On Error Resume Next 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)) DoCmd.OpenForm "frm-UserLogon" DoCmd.close acForm, Me.NAME Make_Desktop_Shortcut End Sub

ليس هذا هو المطلوب

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

@SEMO.Pa3x تحياتى لك يا دكتور .. هل ممكن ترفق هذا النموذج لنستفيد من تصميمه

انا استخدم تلك الطريقة منذ فترة ودائما اضع شعار المؤسسة التي طلبت تنفيذ برنامج لها وهي فعاله جدا .. تحياتي 🌹

جزاك الله خيرا ابا جودي 😍

استاذ صالح جرب برنامج hex editor سمعت أنه ممكن يفتح برامج الاكسيس عن طريق اتغير dbp الى dox وتغيير اسم الملف ثم افتحه من الاكسيس وبعدين افتح الريبون والشيفت هذا الشرح منقول مع مخترق اخترق أحد برامجي بصيغة accde ووصول الاكواد والنماذج وارسلها لي .. لعله يفيدك في شئ تحياتي 🌹

في مرة طلب مني عميل تصميم برنامج للجوازات وكان المطلوب أن صاحب جواز السفر (الباسبور) يستلم ويوقع بالاستسلام من من خلال قلم ضوئي فبحثت في الموضوع واتضح أن يوجد اصدار كامل اكروبات pdf من خلالها يمكنك التوقيع وحفظه كمرفق في الاكسس ونفذت البرنامج ويعمل حتي الآن بكفاءة اتمني اكون افدتك بمعلومة تحياتي 🌹

اسمح لي ما دام انت اللي مخترع تلك الرموز واعتقد انها خاصة بالكتب فهناك طرق افضل للفهرسة وحديثة ولا تتكرر لو اعتقادي صحيح اذكر لك الطريقة!😁

عفواً استاذ جعفر نسيت ارد عليك في نقطة accdb للاسف لا يعمل على هذا الامتداد وجاري تجربت المثال في المشاركة السابقة وبإذن الله استفيد منه تحياتي 🌹

اسف علي التأخير في الرد وذلك لدراسة كل التعليقات والمرفقات استفدت كثيراً من مثالك استاذ ابوخليل جزاكم الله خيرا جميعا وهو فعلا المطلوب بعد تعديل بعض الأشياء ليتناسب مع البرنامج شكراً لكم استاذ جعفر @jjafferr واستاذنا ابو خليل @ابوخليل والشكر ايضا لاخي @bisker لتفاعله مع الموضوع

استاذنا انا اسف مش قادر افهم المرفق فسمحنى ومازال التكرار موجود انظر