jjafferr

رقم السند مجرد ملاحظة ، واذا ما جعلت هذا الحقل من نفس النوع (يا رقم او نص) في جميع الجداول ، فما تقدر تربط الجدولين بعلاقة هذا الحقل ، فقط للعلم ، واللي اسهل تعالجه الآن. اما موضوعنا الاساسي: انت الآن غيّرت المعطيات ، ففي مشاركاتك السابقة كنت تتكلم عن 3 حقول يجب التأكد انها غير موجودة في الجدول حركات . اما الآن فتقول: . وحتى في قولك الجديد ، حقل supplier غير موجود في الجدول حركات . =================================================================== بعد ان اخبرتك البيانات اعلاه ، رجاء لما تكتب رد: 1. كتابة جدول وفيه الحقول اللي تريدنا نعمل مقارنه بينها ، كالتالي: اسم كل حقل في جدول سند_صرف ، ويقابله الحقل في جدول حركات . 2. تأكد من وجود الحقول في الجدول الذي تتكلم عنه. جعفر

شكرا لك على المشاركة

على بركة الله الظاهر ان الوحدة النمطية ما كان فيها متغيرات كثيرة ، فمجرد التغيير اللي تفضلت فيه كان كافي لحل مشكلتك. جعفر

السلام عليكم اخوي ابو زاهر اعطني دقائق انظر في سؤالك ان شاء الله جعفر

ابو ياسين يجب تعديل نوع حقل رقم_السند ، حتى يكون نفسه في الجدولين ، يا رقم او نص. . انت كلامك عن "عالم النسيج" وهو في حقل اسم_المورد في جدول سند_صرف ، طيب شو اسم الحقل اللي لازم نقارنه به في جدول حركات؟ . جعفر

معلومة نسيت اقولها msgbox me.text.column(0) هو نفسه msgbox me.text

السلام عليكم اخي ابو ياسين ، رجاء اعمل تعديل على المرفق ، ويجب ان يكون جدول الموردين فيه جعفر

اولا ، ولسهولة قراءة الكود ، رجاء ادخاله كما في الموضوع هكذا: . ثانيا ، نعم هي نفس قيمة me.text.column(0) . وهي اهم شيء في اعدادات الحقل. جعفر

وعليكم السلام هذا العمود الذي به معلومات الحقل (يعني في الاستعلام اللي عملته للحقل ، العمود الاول) ، واذا حفظت الحقل ، فتكون هذه القيمة. جعفر

Public Function Parse_to_Rich_Text(TextIn As String) As String Dim var() As String Dim delim As String Dim i As Integer Dim T As String 'Exit when No value If Len(TextIn & "") = 0 Then Parse_to_Rich_Text = "" Exit Function End If 'get the delimiter separator For i = 1 To Len(TextIn) If Not IsNumeric(Mid(TextIn, i, 1)) Then delim = Mid(TextIn, i, 1) Exit For End If Next i 'split the text to two values var = Split(TextIn, delim) T = "<div " 'Start, Make HTML code 'Left side T = T & "<font" 'font info, First Line T = T & " size=4" 'size T = T & ">" 'close T = T & "</font>" 'font info, Last Line T = T & " <b>" 'Bold, begin T = T & var(0) & delim 'Text T = T & "</b>" 'Bold, Close 'Right side T = T & "<font" T = T & " size=2" T = T & " color=red" T = T & ">" T = T & var(1) T = T & "</font>" T = T & "</div>" 'Close, Make HTML code 'Debug.Print T Parse_to_Rich_Text = T End Function اوامر HTML التي يمكننا استعمالها في حقل Rich Text في الاكسس: https://support.office.com/en-us/article/Insert-or-add-a-rich-text-field-9f86237d-dbbc-4a85-b12c-9d8dca824630?CorrelationId=e5ac3d8a-72c2-4ac2-8f74-c70704f01a2f&ui=en-US&rs=en-US&ad=US&ocmsassetID=HA010014097 وبرمجة هذه الاوامر ممكن ان نبحث عنها هنا ، لكي نعمل الجملة المطلوبة https://www.w3schools.com/TAgs/default.asp جعفر 878.RichText.accdb.zip

اشوف الطلب زاد ، فإنشاء الله اخبركم في الموضوع نفسه جعفر

وعليكم السلام بما انه عندك سبب/معادلة في وضع هذه القيمة لحقل معين ، ضع هذا السبب/المعادلة في "حدث الحالي" للنموذج ، وسترى القيمة في الحقل جعفر

مشاركة مع اخي شفان عملت تعديل على الوحدة النمطية لتأخذ جميع انواع الفواصل Public Function ParseText(TextIn As String, X) As Variant On Error Resume Next Dim var As Variant Dim delim As String For i = 1 To Len(TextIn) If Not IsNumeric(Mid(TextIn, i, 1)) Then delim = Mid(TextIn, i, 1) Exit For End If Next i var = Split(TextIn, delim, -1) ParseText = var(X) End Function . وانا افضل لو نعمل كود الحقل في الوحدة النمطية مباشرة كذلك ، لأنك ستحصل على النتائج بضعف السرعة (اسرع مرتين) ، لأنك ستنادي الوحدة النمطية مرة لكل حقل جعفر

وعليكم السلام ودّي تسأل أسئله سهله علشان اقدر ارد عليك انزل البرنامج من المرفق ، وما عليك من كائنات النموذج . ادخل صفحة الانترنت اللي فيها الاذاعات ، مثل https://www.internet-radio.com/stations/80s/ ثم ادخل هذا العنوان في حقل عنوان الصفحة في النموذج هكذا: . واختار القناة اللي تعجبك بس للعلم ، مب كل القنوات راح تفتح ، لأن منها اللي ما يقبل يشتغل على متصفح الماكروسوف اكسبلورر جعفر

ولكن الصورة في مشاركتك الاخيرة مال برنامج آخر هذا خلاني اتساءل

انا ما انزلت مرفق اخي كاسر ، فما اعرف شو عمل وبما انك لم تظهر لنا رسالة الخطأ ، فكان لازم اجرب النموذج الذي استوردته في قاعدة البيانات الجديدة ، واذا بي القى الخطأ ، والذي يقول بأنه لم يجد الجدول Accounts !! رجعت الى الكائنات ، واذا بالكثير منها لم يتم استيراده (عندما قمت بإستيراد الكائنات من زر الاسترداد ، كان الاكسس ينغلق عندي ، فاضطررت الى استيرادهم يدويا) ، ثم اضفت لك المكتبات الناقصة في الكود ، حسب القاعدة القديمة ، ثم عملت لك العلاقات حسب القاعدة القديمة والآن اتغدى ، كإستراحة المحارب جعفر

الجدول اساسا فارغ ، ولكن لما تعمل الخطوات اللي اخبرتك عنها ، فالجدول سيأخذ البيانات من الصفحة رجاء استخدم آخر مرفق

وعليكم السلام تفضل . جعفر 880.Accounts 2008.accdb.zip

شكرا اخي ولكن المعلومة هذه غير متكاملة وغير دقيقة ، فلو تابعت المشاركات في الرابط الذي ارفقته انت ، سترى ان العضو Kamali_82 استعمل الكود ولم يعمل معه ، كما وانه لي مشاركة في نفس الموضوع واشرت فيه الى رابط موضوع آخر يحل المشكلة. وهذا رابط يناقش نفس الموضوع جعفر

وعليكم السلام هذه 6 طرق ، برسائل وبدون ، وانا اخترت لك آخر واحدة منها ، وهي تعطيك شريط في اسفل شاشة الاكسس: . Option Compare Database Private Sub أمر10_Click() On Error GoTo Err_أمر10_Click 'Dim stDocName As String 'stDocName = "q1" 'DoCmd.OpenQuery stDocName, acNormal, acEdit '1 العمل بصمت وبدون اشعارات ' CurrentDb.Execute ("q1") '2 العمل بصمت وبدون اشعارات ' DoCmd.SetWarnings False ' DoCmd.OpenQuery "q1" ' DoCmd.SetWarnings True '3 العمل بصمت وبدون اشعارات ، ولكن بوجود ساعة ترابية تشير الى وجود عمل ' DoCmd.Hourglass True ' DoCmd.OpenQuery "q1" ' DoCmd.Hourglass False '4 عمل اشعار ثابت لمدة 3 ثوان في اسفل الشاشة ' Application.SetOption "Show Status Bar", True ' Application.Echo True ' Application.Echo False, "الاستعلام يقوم بالتحديث" ' ' DoCmd.SetWarnings False ' DoCmd.OpenQuery "q1" ' DoCmd.SetWarnings True ' ' PauseTime = 3: Start = Timer ' Do While Timer < Start + PauseTime ' DoEvents ' Loop ' ' Application.SetOption "Show Status Bar", False ' Application.Echo True '5 عمل اشعار متغير لمدة 3 ثوان في اسفل الشاشة ' Application.SetOption "Show Status Bar", True ' SysCmd acSysCmdSetStatus, "الاستعلام يقوم بالتحديث" ' DoCmd.SetWarnings False ' DoCmd.OpenQuery "q1" ' DoCmd.SetWarnings True ' ' PauseTime = 3: Start = Timer ' Do While Timer < Start + PauseTime ' DoEvents ' A = A + 1 ' If A / 50 = Int(A / 50) Then B = B & " . " ' SysCmd acSysCmdSetStatus, B & "الاستعلام يقوم بالتحديث" ' Loop ' Application.SetOption "Show Status Bar", False ' SysCmd acSysCmdClearStatus '6 عمل اشعار متغير لمدة 3 ثوان في اسفل الشاشة Application.SetOption "Show Status Bar", True SysCmd acSysCmdInitMeter, "الاستعلام يقوم بالتحديث", 5000 DoCmd.SetWarnings False DoCmd.OpenQuery "q1" DoCmd.SetWarnings True PauseTime = 3: Start = Timer Do While Timer < Start + PauseTime DoEvents A = A + 1 SysCmd acSysCmdUpdateMeter, A Loop Application.SetOption "Show Status Bar", False SysCmd acSysCmdClearStatus Exit_أمر10_Click: Exit Sub Err_أمر10_Click: MsgBox Err.Description Resume Exit_أمر10_Click End Sub . وهذا الرابط فيه البرنامج المرفق ، يعني خذ منه الكود وخليه في برنامجك : http://www.access-programmers.co.uk/forums/attachment.php?attachmentid=32438&stc=1&d=1275923825 . . والنتيجة Notification بطريقة البرامج المحترفة ، فوق ساعة الكمبيوتر . جعفر 876.msg styles.mdb.zip BalloonToolTipSample.mdb.zip

وعليكم السلام رجاء مراجعة هذا الرابط جعفر

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

اذا مشروع بهذه الاهمية وما يكون له دعم حقيقي!! السيرفر مب مجرد كمبيوتر ، ولا صلاحيات فقط ، وانما الهاردسكات المفروض يكونوا بطريقة Raid والتي تشتغل حتى لو اخترب احدها ، بالاضافة الى Backup المفروض اللي يصير له يوميا. بدون سيرفر تقدر تعمل مجلد مخفي ، وفي طريقتين لهذا المجلد ، إما عن طريق الوندوز (وهذا ممكن يظهر من اعدادات المتصفح) ، والطريقة الثانية هي عن طريق برامج تخفي المجلد ولا يستطيع احد ان يراها.

1. اذا كان المشروع بهذه الاهمية ، فالمفروض انه يكون في سيرفر ، 2. في السيرفر ، مجلد الصور ومجلد المستندات ، يجب ان لا يكون لأحد الصلاحية في دخوله وتصفحه ، وبهذه الطريقة لن يستطيع احد من خارج البرنامج رؤية او حذف الصور ،