نجوم المشاركات

هل تريد ان يظهر هكذا انا استخدمت هذا =IIf(Len([Champ1] & "")=0;"";"<div align=right dir=RTL><font size=4>" & ParseText([Champ1];0) & "</font>.<font size=2>" & ParseText([Champ1];1) & "</font></div>") مع هذا فانكشن Public Function ParseText(TextIn As String, X) As Variant On Error Resume Next Dim var As Variant var = Split(TextIn, ".", -1) ParseText = var(X) End Function Data.rar

اخوي شفان انت عملت كل شيء ولكني عملت تنظيف للكود الاخير ، ليصبح من: 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 المعرف . جعفر

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

استخدم هذا الشرط If DCount("*", "سند_صرف", "[اسم_المورد]='" & Me.supplier_name & "'" & "and [التاريخ]=#" & Me.payment_date & "#") > 0 Then Exit Sub Else ' اكتب تكملة الكود انا ما عملت التعديل على النموذج لان الجدول الموردين كان مصدر كومبوبوكس و كان مش موجود في القاعدة لذلك عطيتك الكود التحقيق الشرط فقط دمتم بخير

وهو المطلوب اثباته يا اخوتى الكرام شكرا لكم على فضلين اولا حل المشكله ثانيا فضل تعليمى

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

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

السلام عليكم اخواني اعضاء ومشرفي الموقع الكرام اخواني لدي في المرفق نموذج عند الترحيل اريد تحقيق الشرط وهو اذا كان موجود في جدول الحركات حقل البيان + حقل تاريخ الحركة مثلا دفعه عالم النسيج موجود في حقل البيان+ تاريخ اليوم مثلا موجود في حقل تاريخ الحركة لا يضيف شي واذا غير موجود يضيفه مرفع المثال ولكم الشكر مقدما ترحيل.rar

هل تتحمل قاعدة البيانات اكثر من (100000) صورة مسحوبة عبر الاسكنر مع حفظها في مجلد بجور البرنامج وعدم تمكين المستخدم فتح الصورة او حذفها الا من دخل البرنامج

هدية لهذا المنتدى الرائع كود صغير لا يتعدى سطر واحد تستطيع من خلاله ترحيل البيانات الى عدد صفحات غير محدود اترككم مع الفيديو والشرحVBA https://youtu.be/ACcfx42XJwU

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

وعليكم السلام هذه 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

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

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

السلام عليكم ورحمة الله حل آخر بالفكرة نفسها (معادلات صفيف)... لكن بمعادلات صفيف في عمود "رقم القيد" وبمعادلات بحث عادية في الأعمدة الأخرى... بن علية حاجي استدعاء بيانات حسب الفصل.rar

هل هذا ما تريده تم حماية النعادلات لعدم العبث يها عن طريق الخطأ استدعاء حسب الفصل Salim.rar

هل هذا ما تقصده ادراج اسم العميل وؤقمه (1).rar

اخي الفاضل بارك الله فيك هي نفس الطريقه فقط قم بتغير اسم الاستعلام ونص الرساله DoCmd.OpenQuery "q1"

الف شكر اخي الفاضل ( ابو ياسين ) وللفائدة هل يمكنك إعطاء مثال أخر لا ستبدال رسالة 1- استعلام تحديث حقل 2- حذف سجل مثال مرفق dbQ2.rar

استغفر الله ... نحن طلابكم سيدي كما قلت لك سابقا نعم ممكن واليك هذا تم اضافة بعض سجلات قليلة في الجداول لكي يبين لنا اكثر تم عمل 3 استعلامات وهذا استعلام للجدول جوازات SELECT الجوزات.المعرف, الجوزات.[كود العميل], الجوزات.البيان, الجوزات.القيمة, 1 AS [نوع البيان] FROM الجوزات WHERE (((الجوزات.[كود العميل]) Like "*" & [Forms]![FrmReport]![Combo1] & "*")); وهذا للتذاكر SELECT التذاكر.المعرف, التذاكر.[كود العميل], التذاكر.البيان, التذاكر.القيمة, 2 AS [نوع البيان] FROM التذاكر WHERE (((التذاكر.[كود العميل]) Like "*" & [Forms]![FrmReport]![Combo1] & "*")); وهذا للسكن SELECT السكن.المعرف, السكن.[كود العميل], السكن.البيان, السكن.القيمة, 3 AS [نوع البيان] FROM السكن WHERE (((السكن.[كود العميل]) Like "*" & [Forms]![FrmReport]![Combo1] & "*")); كما تشوف انا اضف حقل في كل الاستعلام باسم نوع البيان وعطيت رقم 1 للجواز و رقم 2 للتذاكر و رقم 3 للسكن وعمل استعلام التوحيد هكذا 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] & "*")); وعلى هذه الاستعلام عملت تقرير و تم اخفاء الحقل نوع البيان وعملت الفرز في التقرير نفسه حسب حقل نوع البيان لكي يظهر لنا التقرير هكذا وتم عمل نموذج فيها كومبوبوكس اذا تختار احد العملاء راح يظهر البيانات لذاك العميل فقط واذا ما تختار اي عميل راح يظهر كل السجلات دمتم بخير تقرير مجمع.rar

If DCount("*", "حركات", "[البيان]='" & " دفعة " & Me.supplier_name & "'" & "and [التاريخ]=#" & Me.payment_date & "#") > 0 Then DoCmd.Beep MsgBox "لـقـد تـم تـرحـيـل عـلـى حـسـاب : " & Format(Me.[supplier_name], " ") & " مـن قـبـل ", , " بـرنـامـج الـخـيـاط : " Else DoCmd.SetWarnings False DoCmd.CancelEvent DoCmd.RunSQL ("INSERT INTO حركات ([نوع السند], البيان, الاسم, [تاريخ الحركة], مدين, [user] ) SELECT = ""الموردين"" AS Expr6," & _ """ دفعة "" & [Forms].[سند_صرف]![supplier_name] AS Expr4, = ""الخزينه"" AS Expr2, [Forms].[سند_صرف]![payment_date] AS Expr3," & _ "[Forms].[سند_صرف]![payment_amount] AS Expr5, [Forms].[login]![a] AS Expr1;") DoCmd.SetWarnings True انا عندي جدول اسمه الحركات كما يسموه البعض الصندوق في هذا الجدول انا عندما ارحل من النموذج المرفق هو مثلا بيرحله بهذا الشكل حسب الكود المرفق في البيان دفعه عالم النسيج وفي التاريخ تاريخ اليوم مثلا الشرط اللي اريده اذا في بنفس التاريخ وبنفس دفعه عالم النسيج لا يقبل

عملتها لك بالمقلوب ، بس علشان سهولة الوصف: 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. ثم استعلام التوحيد يكون جاهز وحياك الله يا السيد جعفر

اتفضل استاذ @Elsayed Bn Gemy اليك هذا التقرير عملت استعلام التوحيد كما تفضل استاذ @jjafferr لكن للجداول وليس للاستعلامات لان ماكان بها شروط تقرير مجمع.rar

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

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

السلام عليكم الظاهر أنه حصل نقاش شيق في غيابي

اخي الفاضل ليس معطوب نزل اخر اصدار winrar هذة الرساله DoCmd.Beep If MsgBox(" هــل تـريـد نــســخ الاسـمـاء إلـى قـاعـدة الـعـمـلاء " & vbCrLf & "", vbYesNo, " بـرنـامـج الـخـيـاط ") = vbYes Then Dim strSQL As String DoCmd.SetWarnings False DoCmd.OpenQuery "q1" DoCmd.SetWarnings True Beep MsgBox " تـم نــســخ الاسـمـاء إلـى قـاعـدة الـعـمـلاء بـنـجـاح", vbInformation, " بـرنـامـج الـخـيـاط "

الملف المرفق معطوب ممكن ارساله مرة ثانية اخي العزيز ابو ياسين

السلام عليكم ورحمة الله باستعمال دوال البحث ببساطة، وفي الملف استعملت الدالتين INDEX و MATCH.... أرجو أن تفي الغرض المطلوب... بن علية حاجي بيع وشراء العملات.rar

تم التعديل ‏‏2017شيت مدرستى - الصف الرابع 44-44-.rar

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

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

بس سؤال اذا ممكن ... هل يمكن الاستعاضة عن الثلاث مربعات بمربع واحد فقط يؤدي وظيفة الثلاث مربعات معاً ؟ هذا مثال رائع اكتب اي شي في الجدول اسم رقم مرض اي شي يطلع مباشرتا مشاركة من احد الاخوة لاذكر اسمه الان Database3.rar

اتفضل افتح تقريرك في وصع التصميم واكتب هذا الكود عند فتح التقرير Private Sub Report_Open(Cancel As Integer) DoCmd.Minimize DoCmd.OpenReport Me.Name, acViewPreview End Sub ولان لا ارفقت اي القاعدة اتفضل اليك مرفق لكي تلقي نظرتا اليه اظهار التقرير عند اخفاء شاشة اكسس وبدون تكبير التقرير.rar

كل مزود خدمة له إعدادت تخصه من ناحية الأبي والبورت.. لكن الإجراء واحد.. في اعتقادي أن جميع مزودي خدمة الرسائل يوفرون خدمة الشفرة المصدرية لمنتجاتهم.. لو بحثت في الموقع أو تصلت على المزود سوف يقوم بخدمتك!

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

السلام عليكم ورحمة الله وبركاته فورم لتقويم ميلادي تضع من خلاله التاريخ على الخلية النشطة بامكانية التنقل بين الخلايا والعمل بالفورم اكسل 2003 اكسل2007 فورم تقويم ميلادي لادراج التاريخ.rar