jjafferr

معلومة نسيت اقولها 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. في السيرفر ، مجلد الصور ومجلد المستندات ، يجب ان لا يكون لأحد الصلاحية في دخوله وتصفحه ، وبهذه الطريقة لن يستطيع احد من خارج البرنامج رؤية او حذف الصور ،

انت قلت انك تريد: والرابط يخبرك الطريقة ، وفيه مثال كذلك. هل في شيء آخر تريده بالنسبة لمجلد حفظ الصور؟ او الطريقة؟ جعفر

انا ما فهمت قصدك !! انا اعطيتك الحل ، في الرابط.

في هذه الحالة بدل ان نربط صورة برقم الطلب ، نعمل مجلد برقم الطلب ، ونجعل كل الصور الـ 50 فيه ، ونعمل مربع تحرير وسرد Listbox في النموذج ، اللي على اساس رقم الطلب ، يعرض لنا قائمة بأسماء الصور اللي في مجلد رقم الطلب ، ولما تنقر على اسم الصورة ، تظهر الصورة في النوذج ، مثل هذا النموذج (الاجزاء رقم 3 و 4 فقط) . جعفر

اخوي شفان انت عملت كل شيء ولكني عملت تنظيف للكود الاخير ، ليصبح من: SELECT الجوزات.المعرف, الجوزات.[كود العميل], الجوزات.البيان, الجوزات.القيمة, 1 AS [نوع البيان] FROM الجوزات WHERE (((الجوزات.[كود العميل]) Like "*" & [Forms]![FrmReport]![Combo1] & "*")); UNION SELECT التذاكر.المعرف, التذاكر.[كود العميل], التذاكر.البيان, التذاكر.القيمة, 2 AS [نوع البيان] FROM التذاكر WHERE (((التذاكر.[كود العميل]) Like "*" & [Forms]![FrmReport]![Combo1] & "*")); UNION SELECT السكن.المعرف, السكن.[كود العميل], السكن.البيان, السكن.القيمة, 3 AS [نوع البيان] FROM السكن WHERE (((السكن.[كود العميل]) Like "*" & [Forms]![FrmReport]![Combo1] & "*")); الى: SELECT المعرف, [كود العميل], البيان, القيمة, 1 AS [نوع البيان] FROM الجوزات WHERE [كود العميل] = [Forms]![FrmReport]![Combo1] UNION all SELECT المعرف, [كود العميل], البيان, القيمة, 2 AS [نوع البيان] FROM التذاكر WHERE [كود العميل] = [Forms]![FrmReport]![Combo1] UNION all SELECT المعرف, [كود العميل], البيان, القيمة, 3 AS [نوع البيان] FROM السكن WHERE [كود العميل] = [Forms]![FrmReport]![Combo1] Order by المعرف . جعفر

يا سلام يا استاذ شفان ما شاء الله عليك فلّستها وقطّعتها بالمليمتر ، هذا معناه انك فنان في تفليس السمك وتقطيعه كذلك جعفر