-
Posts
1,224 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
3
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو محمد سلامة
-
والله ياخ علي الامر بسيط انت بس دور عليه في اعلي الصفحة..
-
تضغط علي الرسائل في اعلي الصفحة وهى علي شكل ظرف صغير ثم تضغط عل مشاهدة كل الرسائل ثم سيظهر لك كل الرسائل المرسلة من الاعضاء اليك والعكس تقوم بتحديد الكل وتضغط على زر حذف او ابعتلي ايميلك
-
السلام عليكم معلمي وأستاذي ابو خليل يعني الباركود لو اتمرر علي بطاقة شخصية او بطاقة اقامة... بها رقم البطاقة او رقم الاقامة سوف يقرأ الرقم.. ام لابد من تحويل الرقم علي شكل خطوط الباركود يعني الخلاصة كده بيقرأ رقم عادي ولا بيقرأ خطوط الباركود ويحولها لرقم في مربع النص واعذرني لانني ليس لدي جهاز للتجربة
-
الاستاذ علي الكعبي ممكن تحذف بعض من رسائلك علي الموقع هنا اريد ان ارسل لك رسالة و يرفض بسبب امتلاء الذاكرة للرسائل رسائلك الخاصة
-
تغيير لون حدود النموذج او الاطار المنبثق
محمد سلامة replied to سامي الضالعي's topic in قسم الأكسيس Access
هذا يرجع الي اصدار الويندوز لديك فمثلا الصورة المرفقة هي لويندوز اكس بي وفي ويندوز 8 يمكنك تغيير لون الاطار كما تحب هذا والله اعلم -
المساعدة في تلوين سجلات النموذج الفرعي حسب التسلسل
محمد سلامة replied to حربي العنزي's topic in قسم الأكسيس Access
السلام عليكم في خصائص التفصيل للنموذج الفرعي ستجد لون سطر الخلفية ولون البديل حدد الالوان التي تريدها ثم احفظ واغلاق النموذج.. وقم بمعاينته -
اخي الكريم انت قسمت البرنامج.. ووضعت كود للتأكد من الربط عند اغلاق النموذج الافتتاحي هل يوجد شئ غير مفهوم هذا بسبب عدم اضافة مرجع غدا نستكمل باذن الله
-
عفوا اخي انقطع التيار الكهربائي واحدثك من الموبيل نعم يعمل علي شبكة محلية وبدون مشاكل
-
اخى الكريم مرفقك الاخير يعمل بدون مشاكل وانت بنفسك ضايف الاكواد شغال نموذج start وهو سيرتبط تلقائياً
-
طيب سيبك من المرفق افتح وحدة نمطية جديدة وقم بتسميتها 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
-
جرب كده .. وتحت امركlink - m.salama.rar
-
ما اصدار الاكسس لديك
-
عيونى .. ثوانى غريبة مع ان كل المرفقات اللى فى المشاركة هنا باصدار اعلى من 2003 كيف كنت تطلع عليها ؟؟؟ وانا حملت المثال الاخير وعدلت عليه فقط
-
السلام عليكم ورحمة الله وبركاته لو تسمحوا لى بالمشاركة معكم فى هذا الموضوع يوجد اكثر من طريقة لهذا الموضوع ولكنى اكثر طريقة عجبتنى واستخدمها فى جميع برامجى للعملاء هى طريقة خاصة باستاذنا ومعلمنا ابوخليل بارك الله فيه ميزة هذه الطريقة هى انك تستطيع عمل كلمة مرور لقاعدة البياناتالخلفية (قاعدة الجداول) وتمرير كلمة السر من قاعدة الوجهات واليك الطريقة فى المثال التالى كلمة السر لقاعدة البيانات الخلفية admin وبعد تحميل ال بروجرس بار سيتاكد من الاتصال بالقاعدة ويظهر لك الشاشة الرئيسية (يمكنك تغييرها باى نموذج تريده) اذا تغيير مكان القاعدة الخلفية وعند تشغيل البرنامج سيطلب منك اختيار مكان القاعدة الجديدة لانه تغيير مكانها link - m.salama.rar
-
تشفير قواعد البيانات مشكلة حماية قاعدة البيانات بكلمة سر التشفير
محمد سلامة replied to saimon.91's topic in قسم الأكسيس Access
يجب اعادة الارتباط بقاعدة الجداول مرة اخري بعد عمل كلمة المرور -
احضار محتويات فولدر خارجى الى البرنامج
محمد سلامة replied to محمد سلامة's topic in قسم الأكسيس Access
جزاك الله خيرا وبارك الله فيك مهما احاول ان اشكرك لن اوافيك حقك شكرا جزيلا فعلا ونعمة الاخ والمعلم -
احضار محتويات فولدر خارجى الى البرنامج
محمد سلامة replied to محمد سلامة's topic in قسم الأكسيس Access
وعليكم السلام وحضرتك بخير وسعادة وشكرا لك تفاعلك ومتابعة الموضوع.. بارك الله فيك استاذ جعفر شكرا استاذ محمد وكل سنه وحضرتك طيب شكرا جزيلا استاذ جعفر هذا كان طمع في بحر خيركم وعطائكم وعدم بخلك علينا في الرد علي استفسارتنا فبارك الله فيكم جميعا وجاري المتابعة والاطلاع -
مربع نص يتم تنسيقه بنوعين من الخطوط
محمد سلامة replied to سامي الضالعي's topic in قسم الأكسيس Access
.... -
مربع نص يتم تنسيقه بنوعين من الخطوط
محمد سلامة replied to سامي الضالعي's topic in قسم الأكسيس Access
قام بنشر الان · ما هذا المرفق الرائع السلام عليكم هل يمكن معاينة التقرير بهذا الشكل؟؟ كيف نفتح التقرير بالاكسس بهذا الشكل -
احضار محتويات فولدر خارجى الى البرنامج
محمد سلامة replied to محمد سلامة's topic in قسم الأكسيس Access
Up -
تعطيل ازرار التصغير والاستعادة والاغلاق الخاص باطار الاكسس
محمد سلامة replied to ابوأسد's topic in قسم الأكسيس Access
ارجع للوراء في المشاركات ستجد موضوع متشابه مع موضوعك وقام الاستاذ ابوخليل جزاه الله خيرا الادراج كود يخفي ماتريده فقط ابحث في المشاركات للوراء -
احضار محتويات فولدر خارجى الى البرنامج
محمد سلامة replied to محمد سلامة's topic in قسم الأكسيس Access
Up -
هههههههههه وتروح الفاس في الراس هههههههههه
-
هذا لان خلفية صورة الختم بيضاء.. يجب ان تكون شفافة هناك صور بصيغة png تكون ذات خلفية بيضاء واخري تكون شفافة فحاول انت تاخد الختم مرة اخري بخلفية شفافة هذا والله اعلم
-
فتح قاعدة بيانات اكسيس محمية برقم سري
محمد سلامة replied to حربي العنزي's topic in قسم الأكسيس Access
هل يوجد بالقاعدة بيانات تخصك وتحتاج لها.. مع العلم انه يمكن فتحها ببرنامج خارجي.. اما الكود فيجب ان تعرف الباسورد لكي تضعه في الكود فاذا كنت تحتاج البيانات التي بداخلها افتحها لك بشرط تذكر لي بعض من البيانات او اسم جدول.. علي الخاص لو حابب