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

محمد سلامة

الخبراء
  • Posts

    1,184
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    3

محمد سلامة last won the day on يناير 18

محمد سلامة had the most liked content!

السمعه بالموقع

442 Excellent

عن العضو محمد سلامة

  • تاريخ الميلاد يوليو 1

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مصمم ومبرمج قواعد بيانات اكسس وSQL
  • البلد
    مصر
  • الإهتمامات
    البرمجة - كرة القدم - السباحة

وسائل التواصل

  • Website URL
    http://soft.sample2014@gmail.com للتواصل

اخر الزوار

5,071 زياره للملف الشخصي
  1. السؤال هل يمكن مزامنة البيانات لأكثر من جهاز بمعني بمجرد ادخال اي مستخدم بيانات يستطيع اي مستخدم آخر الاطلاع عليها؟! اعتقد من تجارب سابقة لايمكن والله اعلم
  2. اللهم صل وسلم وبارك على سيدنا محمد وعلى اله وصحبه وسلم
  3. اهلا وسهلا بك يا دكتور استخدام الكود التالى فى وحدة نمطية 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
  4. السلام عليكم ورحمه الله وبركاته مطلوب كود او طريقة لقطع الاتصال بالقاعدة الخلفية في كل مرة يتم الدخول إليها من القاعدة الأمامية (البرنامج) تحياتي 🌹
  5. @SEMO.Pa3x تحياتى لك يا دكتور .. هل ممكن ترفق هذا النموذج لنستفيد من تصميمه
  6. انا استخدم تلك الطريقة منذ فترة ودائما اضع شعار المؤسسة التي طلبت تنفيذ برنامج لها وهي فعاله جدا .. تحياتي 🌹
  7. استاذ صالح جرب برنامج hex editor سمعت أنه ممكن يفتح برامج الاكسيس عن طريق اتغير dbp الى dox وتغيير اسم الملف ثم افتحه من الاكسيس وبعدين افتح الريبون والشيفت هذا الشرح منقول مع مخترق اخترق أحد برامجي بصيغة accde ووصول الاكواد والنماذج وارسلها لي .. لعله يفيدك في شئ تحياتي 🌹
  8. في مرة طلب مني عميل تصميم برنامج للجوازات وكان المطلوب أن صاحب جواز السفر (الباسبور) يستلم ويوقع بالاستسلام من من خلال قلم ضوئي فبحثت في الموضوع واتضح أن يوجد اصدار كامل اكروبات pdf من خلالها يمكنك التوقيع وحفظه كمرفق في الاكسس ونفذت البرنامج ويعمل حتي الآن بكفاءة اتمني اكون افدتك بمعلومة تحياتي 🌹
  9. اسمح لي ما دام انت اللي مخترع تلك الرموز واعتقد انها خاصة بالكتب فهناك طرق افضل للفهرسة وحديثة ولا تتكرر لو اعتقادي صحيح اذكر لك الطريقة!😁
  10. عفواً استاذ جعفر نسيت ارد عليك في نقطة accdb للاسف لا يعمل على هذا الامتداد وجاري تجربت المثال في المشاركة السابقة وبإذن الله استفيد منه تحياتي 🌹
  11. اسف علي التأخير في الرد وذلك لدراسة كل التعليقات والمرفقات استفدت كثيراً من مثالك استاذ ابوخليل جزاكم الله خيرا جميعا وهو فعلا المطلوب بعد تعديل بعض الأشياء ليتناسب مع البرنامج شكراً لكم استاذ جعفر @jjafferr واستاذنا ابو خليل @ابوخليل والشكر ايضا لاخي @bisker لتفاعله مع الموضوع
  12. استاذنا انا اسف مش قادر افهم المرفق فسمحنى ومازال التكرار موجود انظر
×
×
  • اضف...

Important Information