jjafferr

الظاهر اني بشوف ردك بكرة الصباح ان شاء الله

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

1. جزء BE او الخلفية (جزء الجداول) يكون ملف مشاركة في مجلد على حاسبة ويكون لجميع المستخدمين صلاحية الإدخال/التغيير/الحذف في هذا المجلد ، معظم الناس عندهم حاسبة عادية يستخدموها لمجلد المشاركة ، والحاسبه فيها وندوز 7 او 10 او ... ، ولكن الافضل والاكثر احترافا ، ان يكون هناك جهاز خاص اسمه سيرفر او خادم يقوم بهذه المهمة ، وهذا الجهاز له مواصفات جدا عالية ، وانت تختار اللي يناسبك ، ونظام التشغيل اسمه وندوز سيرفر ، وفيه أمان وحماية جدا قويه ، وتستطيع من اعداداته السيطرة على كل صغيرة وكبيرة فيه ، وخصوصا صلاحيات المستخدمين ، وحسب حاجتك ، تستطيع ان تضع فيه العدد اللي تريده من الهاردسكات ، وحتى هذه الهاردسكات غير اللي في الكمبيوترات العادية ، ولا يعمل كل واحد بنفسه ، وانما يعملون كمجموعة تسمى Raid ، وهناك Raid 0 10 5 50 6 ، بحيث اذا واحد فيهم اخترب ، يظل النظام شغّال ولكن بكفاءة اقل ، الى ان يتم تغيير الهارد الخربان ، وتقدر انك تحط فيه العدد اللي تريده من الهاردسكات (طبعا لازم تعرف شو حاجتك مسبقا ، وعلى اساسها تشتري السيرفر اللي فيه مكان لإحتياجاتك المستقبلية) ، وبعدين تضيف زيادة ، يعني ، اذا في كمبيوترك الخاص سعة الهاردسك 500GB وامتلئ فماذا تعمل؟ ، تضطر الى استبداله بواحد جديد ذو سعة اكبر ، او تضيف واحد جديد وتغير كود برنامجك ليتماشى مع الوضع الجديد ، بينما في السيرفر ، تعال واضف في الـ Raid وبدون اي تغيير (طبعا في تغيير في اعدادت Raid ولكن ليس في البرنامج) كما ان سرعة الهاردسكات في السيرفر اسرع من الهاردسك ، وبالاضافة الى هذه السرعة ، فالـ Raid يحفظ الملف بتجزئته على جميع الهاردسكات ، فيصبح جدا سريع في الحفظ وفي قراءة الملف. وطبعا هناك العديد من الميزات الاخرى ، مثل عدد CPU وسرعتها ، ونوعيات تستطيع ان تضيف لها هاردسكات او CPU بدون المساس ببرنامجك 2. جهاز الاسكانر يحفظ صور السكانر في مجلد معين ، ولما تضع المستندات على السكانر لتصويرها ، تستطيع التصوير عن طريق زر على السكانر او الكمبيوتر لحفظها في هذا المجلد ن ثم تنقل هذه المستندات يدويا بعد التدقيق عليها ، تنقلها الى المجلد التابع لبرنامج قاعدة بياناتك (طبعا هذا يعتمد على طريقة عمل برنامجك وكيف سيقرأ هذه الصور ، وتستطيع حفظ هذه الصور في ملفات منفردة بصيغة jpg مثلا او حفظها جميعا في ملف واحد بصيغة PDF ، ولكل ميزته وعيوبه ، والاهم هو الطريقة التي يريد المستخد تصفحها) ، وتستطيع من برنامجنا التحكم في جهاز السكانر وادخال الصور في مجلد معين حسب ID الموضوع. هذا كله ، طبعا بإختصار ، وتحتاج الى متخصصين لعمل كل هذه الاعدادات بالطريقة والبرمجة الصحيحة ، وفي نهاية الامر ، البرنامج يقوم بربط جميع هذه الاشياء ، وبدون تدخل المستخدم. جعفر

احي ابو زاهر كيف اقدر اجعل البيانات تظهر في النموذج الفرعي؟ وتقدر تختار النموذج وتحوله الى تقرير تلقائيا ، هكذا مثلا: تختار النموذج: . . ويصير عندك تقرير على نفس شكل النموذج ، وتقدر تخليه كتقرير فرعي داخل التقرير الرئيسي ، وتعمل رابط بينهم (كما تفعل بين النموذج الرئيسي والنموذج الفرعي). جعفر

رقم السند مجرد ملاحظة ، واذا ما جعلت هذا الحقل من نفس النوع (يا رقم او نص) في جميع الجداول ، فما تقدر تربط الجدولين بعلاقة هذا الحقل ، فقط للعلم ، واللي اسهل تعالجه الآن. اما موضوعنا الاساسي: انت الآن غيّرت المعطيات ، ففي مشاركاتك السابقة كنت تتكلم عن 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