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

محمد سلامة

الخبراء
  • Posts

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

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

  • Days Won

    3

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

  1. والله ياخ علي الامر بسيط انت بس دور عليه في اعلي الصفحة..
  2. تضغط علي الرسائل في اعلي الصفحة وهى علي شكل ظرف صغير ثم تضغط عل مشاهدة كل الرسائل ثم سيظهر لك كل الرسائل المرسلة من الاعضاء اليك والعكس تقوم بتحديد الكل وتضغط على زر حذف او ابعتلي ايميلك
  3. السلام عليكم معلمي وأستاذي ابو خليل يعني الباركود لو اتمرر علي بطاقة شخصية او بطاقة اقامة... بها رقم البطاقة او رقم الاقامة سوف يقرأ الرقم.. ام لابد من تحويل الرقم علي شكل خطوط الباركود يعني الخلاصة كده بيقرأ رقم عادي ولا بيقرأ خطوط الباركود ويحولها لرقم في مربع النص واعذرني لانني ليس لدي جهاز للتجربة
  4. الاستاذ علي الكعبي ممكن تحذف بعض من رسائلك علي الموقع هنا اريد ان ارسل لك رسالة و يرفض بسبب امتلاء الذاكرة للرسائل رسائلك الخاصة
  5. هذا يرجع الي اصدار الويندوز لديك فمثلا الصورة المرفقة هي لويندوز اكس بي وفي ويندوز 8 يمكنك تغيير لون الاطار كما تحب هذا والله اعلم
  6. السلام عليكم في خصائص التفصيل للنموذج الفرعي ستجد لون سطر الخلفية ولون البديل حدد الالوان التي تريدها ثم احفظ واغلاق النموذج.. وقم بمعاينته
  7. اخي الكريم انت قسمت البرنامج.. ووضعت كود للتأكد من الربط عند اغلاق النموذج الافتتاحي هل يوجد شئ غير مفهوم هذا بسبب عدم اضافة مرجع غدا نستكمل باذن الله
  8. عفوا اخي انقطع التيار الكهربائي واحدثك من الموبيل نعم يعمل علي شبكة محلية وبدون مشاكل
  9. اخى الكريم مرفقك الاخير يعمل بدون مشاكل وانت بنفسك ضايف الاكواد شغال نموذج start وهو سيرتبط تلقائياً
  10. طيب سيبك من المرفق افتح وحدة نمطية جديدة وقم بتسميتها modRelinker وادرج بها هذا الكود 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("ãä ÝÖáß ÇáÈÑäÇãÌ ÛíÑ ãÊÕá ÈÞÇÚÏÉ ÇáÈíÇäÇÊ ÇáÑÆíÓíÉÇáãÓãì (ÇßÊÈ ÇÓã ÇáÞÇÚÏÉ ÇáÎáÝíÉ åäÇ ÜÜ ÞÇÚÏÉ ÇáÌÏÇæá)", vbCritical, "SOFT SAMPLE -Pro.In.Out") 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 وفى النموذج الافتتاحى فى بداية البرنامج ضع الكود التالى Private Sub Form_Close() On Error Resume Next If CheckLinks("admin") = 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 "LNK_TBL_DLG" DoCmd.Close acForm, Me.Name End Sub وقم بعمل كلمة سر لقاعدة البيانات الخلفية باسم admin
  11. جرب كده .. وتحت امركlink - m.salama.rar
  12. عيونى .. ثوانى غريبة مع ان كل المرفقات اللى فى المشاركة هنا باصدار اعلى من 2003 كيف كنت تطلع عليها ؟؟؟ وانا حملت المثال الاخير وعدلت عليه فقط
  13. السلام عليكم ورحمة الله وبركاته لو تسمحوا لى بالمشاركة معكم فى هذا الموضوع يوجد اكثر من طريقة لهذا الموضوع ولكنى اكثر طريقة عجبتنى واستخدمها فى جميع برامجى للعملاء هى طريقة خاصة باستاذنا ومعلمنا ابوخليل بارك الله فيه ميزة هذه الطريقة هى انك تستطيع عمل كلمة مرور لقاعدة البياناتالخلفية (قاعدة الجداول) وتمرير كلمة السر من قاعدة الوجهات واليك الطريقة فى المثال التالى كلمة السر لقاعدة البيانات الخلفية admin وبعد تحميل ال بروجرس بار سيتاكد من الاتصال بالقاعدة ويظهر لك الشاشة الرئيسية (يمكنك تغييرها باى نموذج تريده) اذا تغيير مكان القاعدة الخلفية وعند تشغيل البرنامج سيطلب منك اختيار مكان القاعدة الجديدة لانه تغيير مكانها link - m.salama.rar
  14. يجب اعادة الارتباط بقاعدة الجداول مرة اخري بعد عمل كلمة المرور
  15. جزاك الله خيرا وبارك الله فيك مهما احاول ان اشكرك لن اوافيك حقك شكرا جزيلا فعلا ونعمة الاخ والمعلم
  16. وعليكم السلام وحضرتك بخير وسعادة وشكرا لك تفاعلك ومتابعة الموضوع.. بارك الله فيك استاذ جعفر شكرا استاذ محمد وكل سنه وحضرتك طيب شكرا جزيلا استاذ جعفر هذا كان طمع في بحر خيركم وعطائكم وعدم بخلك علينا في الرد علي استفسارتنا فبارك الله فيكم جميعا وجاري المتابعة والاطلاع
  17. قام بنشر الان · ما هذا المرفق الرائع السلام عليكم هل يمكن معاينة التقرير بهذا الشكل؟؟ كيف نفتح التقرير بالاكسس بهذا الشكل
  18. ارجع للوراء في المشاركات ستجد موضوع متشابه مع موضوعك وقام الاستاذ ابوخليل جزاه الله خيرا الادراج كود يخفي ماتريده فقط ابحث في المشاركات للوراء
  19. هههههههههه وتروح الفاس في الراس هههههههههه
  20. هذا لان خلفية صورة الختم بيضاء.. يجب ان تكون شفافة هناك صور بصيغة png تكون ذات خلفية بيضاء واخري تكون شفافة فحاول انت تاخد الختم مرة اخري بخلفية شفافة هذا والله اعلم
  21. هل يوجد بالقاعدة بيانات تخصك وتحتاج لها.. مع العلم انه يمكن فتحها ببرنامج خارجي.. اما الكود فيجب ان تعرف الباسورد لكي تضعه في الكود فاذا كنت تحتاج البيانات التي بداخلها افتحها لك بشرط تذكر لي بعض من البيانات او اسم جدول.. علي الخاص لو حابب
×
×
  • اضف...

Important Information