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

محمد سلامة

الخبراء
  • Posts

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

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

  • Days Won

    3

كل منشورات العضو محمد سلامة

  1. تحياتي لكم جميعا هذا الموضوع شيق جدآ أتمني أن تبرمج اداه لسحب المتعدد من الفيدر في الاسكنر ويمكن التعامل عليها من الاكسس
  2. السلام عليكم لدي حقل نصي استخدمه لإدخال رقم موبايل العملاء اريد ان يظهر بهذا الشكل 20+ مفتاح الدولة ثابت المستخدم لا يدخله 0000 000 000 المسافة المستخدم لا يدخلها وفي النهاية يظهر هكذا +20 109 214 2121 شكراً جزيلاً مقدماً
  3. للاسف لايوجد برنامج للواتساب يعمل مع ويندوز 7 (ديسك توب) يجب ان يكون لديك على الكمبيوتر ويندوز 8 او اعلى
  4. بالفعل هذه الأداة هي التي استخدمها حالياً ولكن كبرنامج مستقل وليست مربوطة بالاكسس يعني معرفش اتحكم فيها من الاكسس مثل حفظ المرفق بعد الحفظ واعطاء الأمر بالسحب من الاسكنر من داخل الاكسس
  5. جزاك الله خيرا وبارك وغفر الله لوالديك طريقة ممتازة سؤال هل يمكن استبدال الكاميرا بالاسكنر او هل يمكن التعديل علي تلك الاداه لتناسب جهاز الاسكنر لان كما تعلم نوحه صعوبة في تعامل الاسكنر مع الاكسس خاصة الفيدر أو السحب المتعدد جزاك الله خيرا علي ما تقدمه تحياتي 🌹
  6. نفس الحال معي وانت شوفت بنفسك في الملف المرفق علي الخاص .. تحياتي 🌹
  7. شكرا لك استاذ جعفر طبعاً سوف ارسل ملاحظتي وأيضاً سوف اقول علي ملاحظة هنا اتمني أن نتعامل مع الاسكنر مباشرة من الاكسس ٠٠ السحب مباشرة من الفيدر وتحويل الي ملف بي دي اف ٠٠ تحياتي 🌹
  8. السلام عليكم ورحمه الله @ابو محمد2 اين انت يا ابومحمد اتمني تكون بخير ❤️
  9. السؤال هل يمكن مزامنة البيانات لأكثر من جهاز بمعني بمجرد ادخال اي مستخدم بيانات يستطيع اي مستخدم آخر الاطلاع عليها؟! اعتقد من تجارب سابقة لايمكن والله اعلم
  10. اللهم صل وسلم وبارك على سيدنا محمد وعلى اله وصحبه وسلم
  11. اهلا وسهلا بك يا دكتور استخدام الكود التالى فى وحدة نمطية 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
  12. السلام عليكم ورحمه الله وبركاته مطلوب كود او طريقة لقطع الاتصال بالقاعدة الخلفية في كل مرة يتم الدخول إليها من القاعدة الأمامية (البرنامج) تحياتي 🌹
  13. @SEMO.Pa3x تحياتى لك يا دكتور .. هل ممكن ترفق هذا النموذج لنستفيد من تصميمه
  14. انا استخدم تلك الطريقة منذ فترة ودائما اضع شعار المؤسسة التي طلبت تنفيذ برنامج لها وهي فعاله جدا .. تحياتي 🌹
  15. استاذ صالح جرب برنامج hex editor سمعت أنه ممكن يفتح برامج الاكسيس عن طريق اتغير dbp الى dox وتغيير اسم الملف ثم افتحه من الاكسيس وبعدين افتح الريبون والشيفت هذا الشرح منقول مع مخترق اخترق أحد برامجي بصيغة accde ووصول الاكواد والنماذج وارسلها لي .. لعله يفيدك في شئ تحياتي 🌹
  16. في مرة طلب مني عميل تصميم برنامج للجوازات وكان المطلوب أن صاحب جواز السفر (الباسبور) يستلم ويوقع بالاستسلام من من خلال قلم ضوئي فبحثت في الموضوع واتضح أن يوجد اصدار كامل اكروبات pdf من خلالها يمكنك التوقيع وحفظه كمرفق في الاكسس ونفذت البرنامج ويعمل حتي الآن بكفاءة اتمني اكون افدتك بمعلومة تحياتي 🌹
×
×
  • اضف...

Important Information