jjafferr

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

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

مشاركة مع اخي شفان عملت تعديل على الوحدة النمطية لتأخذ جميع انواع الفواصل 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 المعرف . جعفر

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

عملتها لك بالمقلوب ، بس علشان سهولة الوصف: SELECT 1 as Seq, "الجوازات" as Type, الجوزات.* from الجوزات ; union SELECT 2 as Seq , "التذاكر" as Type, التذاكر.* FROM التذاكر; UNION SELECT 3 as Seq , "السكن" as Type, السكن.* from السكن Order by Seq Desc . . عادة لا نكتب الجوزات.* ، وانما نكتب اسماء الحقول ، لأن توحيد الاستعلامات في استعلام واحد ، يستوجب وجود نفس العدد من الحقول في الاستعلامات ، ولكن بسبب تشابه الجداول ، استخد اخي شفان هذه الطريقة جعفر

شكرا اخوي شفان ، كُلُه تمام طريقتي في الاستعلام هي: 1. عمل نموذج وبه اسم/كود العميل ، 2. الاستعلامات الثلاث تأخذ اسم/كود العميل من النموذج كمعيار تصفية ، 3. ثم استعلام التوحيد يكون جاهز وحياك الله يا السيد جعفر

وعليكم السلام اعمل استعلام لكل جدول ، وبعدين ، استعلام توحيد يجمعهم جعفر

وعليكم السلام ورحمة الله وبركاته معذرة على رفع الملف بدون تجربته بالكامل طيب اتبع هذه التعليمات الجديدة لوسمحت: طبعا بعد ما تدخل وووو وتصبح صفحة الادخال امامك ، 1. ابحث برقم ويطلع لك كامل البيانات ، وياريت تعمل صورة من الصفحة ScreenShot . ثم انقر على زر "استيراد البيانات من صفحة الانترنت" ، واعطها شوية ثواني ، ثم افتح الجدول tbl_Retrieve ، واللي فيه حقلين Field_ID و Field_Value ، فإذا شفت البيانات التي ادخلتها في حقول صفحة الموقع ، شفتها موجودة في حقل Field_Value ، فهذا معناه ممكن التحكم في الصفحة ، وسنتعامل مع ارقام تسلسل الحقول في الصفحة بدل اسمائها ، 2. الخطوة التالية ، اريدك تضغط على الزر "ارسال البيانات الى صفحة الانترنت" (بس قبل ان تعمل هذا ، اريدك تكون اخذت صورة من الصفحة ScreenShot) ، فإذا الصفحة تتقبل ان نرسل لها بيانات ، بتشوف حقول الصفحة فيها ارقام مسلسلة ، وكذلك اريدك تأخذ صورة من الصفحة ScreenShot. 3. اريدك ترسل لي قاعدة البيانات اللي فيها بيانات حقول الموقع ، و صورة الصفحات ScreenShot اللي اخذتها (طبعا تقدر تحذف المعلومات الحساسة منها) ------------------------------ اما اذا قمت في عمل الخطوة رقم 1 والخطوة رقم 2 ، ومافي نتائج مثل ما اخبرتك ، فما بإمكاني عمل اي شيء زيادة !! جعفر 852.123.WebImport.mdb.zip

احنا كلنا نتعلم