عبد الله قدور

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

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

السلام عليكم اليك الكود اخي الكريم DoCmd.OutputTo acOutputForm, "frmsubshowacc", "ExcelWorkbook(*.xlsx)", "", True, "", , acExportQualityPrint

=nz([column1])+nz([column2])+nz([column3])+nz([column4])

دائما وكما في كل مرة يثبت الاخ رمهان أنه الملك

انا برايي اعمل صرف له باسم عجز وانتهت القصة

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

كيف يمكن تصدير بيانات النموذج الفرعي الى اكسل مع التنسيق الموجود في النموذج الفرعي db2016.rar

جزاك الله عني كل خير اخي رمهان

السلام عليكم هذا مثال للمشكلة التي اعاني منها الان في جدول tblcoin ستجد فيه العملات ورقم اللون الخاص لكل عملة وسيظهر ذلك جليلا في نموذج frmcoin عندي الان جدول ادخال عمليات قبض او دفع بهذه العملات وهو tblInput ومعه نموذج ورقة بيانات frmInput المطلوب تلوين عمود العملات في النموذج frminput اعتمادا على الالوان المحددة في جدول العملات tblcoin ملاحظة : جدول frminput يجب ان يبقى ورقة بياناتت حصرا db2016.rar

السلام عليكم اخواني الكرام لاتنسوا موضوع الكود ويفضل ان يتم تحويله الى وحدة نمطية

شكرا جزيلا لك اخي ابا جودي

طبعا لا بما ان العلاقات موجودة في القاعدة الجداول فالعمل صحيح

الى حين تجهيز المرفق الفكرة كالتالي عندي جدول للعملات اريد استخدامها في جدول الحركة اليومية تمام ساقوم بتصميم نموذج استعراض بيانات الحركة اليومية يجب ان يكون حقل العملة ملون حسب اللون المحدد في جدول العملات وجدت هذا الكود على النت لكن الشرط يقبل قيمة عددية ولا يقبل قيمة نصية Dim objFrc As FormatCondition Dim lngRed As Long Dim lngWhite As Long Dim lngBlack As Long Dim lngYellow As Long Dim lngBlue As Long Dim lngGreen As Long lngRed = RGB(255, 0, 0) lngWhite = RGB(255, 255, 255) lngBlack = RGB(0, 0, 0) lngYellow = RGB(255, 255, 0) lngBlue = RGB(0, 0, 255) lngGreen = RGB(0, 255, 0) Me![inCoinName].FormatConditions.Delete Set objFrc = Me![inCoinName].FormatConditions.add(acFieldValue, acEqual) Set objFrc = Me![inCoinName].FormatConditions.add(acFieldValue, acEqual, "ليرة") Set objFrc = Me![inCoinName].FormatConditions.add(acFieldValue, acEqual, 500) With Me![inCoinName].FormatConditions(0) .BackColor = lngYellow .FontBold = True .ForeColor = lngRed End With With Me![inCoinName].FormatConditions(1) .BackColor = lngBlue .FontBold = True .ForeColor = lngWhite End With With Me![inCoinName].FormatConditions(2) .BackColor = lngGreen .FontBold = True .ForeColor = lngBlack End With

العلاقات يجب ان تكون في قاعدة الجداول فهذا يكون افضل

قم بعملية استيراد جداول مرتبطة

السلام عليكم هل هناك طريقة لاختيار لون التنسيق الشرطي برمجيا

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

هل يمكن ارسال رسالة من اكسس الى زبون عن طريق تلغرام

,السلام عليكم هناك اخطاء في الكود عندك يجب عليك اصلاحها قبل التحويل افتح محرر الفيجول بيسيك ثم من قائمة debug اختر الخيار الاول وسيذهب بك الى اول خطأ قم باصلاح هذا الخطأ وكرر العملية حتى يتم الغاء تفعيل هذا الخيار من قائمة debug ثم جرب التحويل مرة اخرى

اليك ما طلبت test.rar

السلام عليكم انا موجود في المنتدى الان تفضل اخي ما تريد ويمكنك التواصل معي على الخاص لو اردت على حسابي على الفيس بوك : https://www.facebook.com/abuyaser1989 او على الواتس اب على الرقم : 00905456969400

السلام عليكم لا يوجد اي اقتراحات بشأن البرنامج

بعد وضع كلمة المرور للقاعدة الجداول من قاعدة النماذج احذف الجداول وقم باضافة الجداول المرتبطة من البداية او هناك حل اخر ضع هذه الكود في وحدة نمطية Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strConnect As String Dim strLinkName As String strLinkName = strSourceTableName strConnect = "MS Access;PWD=" & strPassword & _ ";DATABASE=" & strBEPath Debug.Print strConnect Set db = CurrentDb Set tdf = db.CreateTableDef tdf.Connect = strConnect tdf.SourceTableName = strSourceTableName tdf.Name = strLinkName db.TableDefs.Append tdf Set tdf = Nothing Set db = Nothing End Function وقم باستدعائه بالكود التالي Call CreateTableLink(NewDatabase, "tbale name", "password") وللأمانة العلمية هذا الكود من ابداع معلمنا الرائع أبو أدم تحياتي له

Dim ask As Single ask = MsgBox("åá ÊÑíÏ ÍÐÝ ÇáÓäÏ", vbDefaultButton1 + vbInformation + vbMsgBoxRight + vbYesNo, "ÊäÈíå") If ask = vbYes Then 'هنا تضع الكود الذي سينفذ بعد الضغط على زر نعم end if