محمد طاهر عرفه

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

جرب هذا الموضوع http://www.officena.net/ib/index.php?showt...ic=583&hl=تقريب مع استخدام التقريب بدرجة تقريب 0.5 فى الدالة الثالثة فى المثال

انا استخدمت اومرالقوائم فقط فى حفظ السجل و بالنسبة لتعطيل الكود لم أفهم السؤال المطروح مع تحياتي

لماذا 95% ما المشكلة ؟؟ الفكرة فى الكود هي انه اذا كان الرقم مثلا 60000 وتكون نسبته 3% لما فوق ال 45000 فال 45000 تأخذ نسبة 1.5% و ال 15000 التالية تأخذ ( 3% - 1.5% ) هذا ما فهمته مما سبق و ما تطابق مع نتائج المثال الذي وضعته

اذا أردت نسخ سجل بالكامل فلا أفضل استخدام استدعاء أوامر القوائم و لكن يتم ذلك بال dao أو ال ado هذا مثال لنسخ السجل الموجود فى النموذج الي سجل جديد مع تغيير الترقيم باضافة 1 و هو يحتاج الي اضافة مرجع dao و يتم فيه نسخ السجل فى النموذج الحالي و اضافة سجل و فتح النموذج علي السجل الجديد Private Sub copyRec_Click() Dim MYDB As Database, MYSET1 As Recordset Set MYDB = CurrentDb() Set MYSET1 = MYDB.OpenRecordset("Query-or-Tablename") MYSET1.AddNew Dim n As Long n = DMax("inID", "Query-or-Tablename") + 1 MYSET1![ID] = n MYSET1![Field1] = Me![TextBox1] MYSET1![Field2] = Me![TextBox2] MYSET1![Field3] = Me![TextBox3] MYSET1![Field4] = Me![TextBox4] MYSET1.Update MYSET1.Close Set MYDB = Nothing DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 MsgBox " Copy Record Data Completed into record no. :" & Str(n), 64, "Alert" Dim stLinkCriteria As String stLinkCriteria = "[ID]=" & n DoCmd.OpenForm "Formname", , , stLinkCriteria End Sub

السلام عليكم علي ما فهمت بصعوبة من الارقام التي وضعتها كناتج فى النهاية أن النسبة المتزايدة تطبق علي الفرق الذي زاد عن الشريحة السابقة فقط أي أن كل الارقام التي زادت عن ال 45000 يتم تطبيق نسبة 1.5% علي أول 45000 منها ... و هكذا ... مثال اذا وقع الرقم تحت ال 60000 يتم تطبيق 1.5% علي اول 45000 و 3% علي الباقي .. و هكذا مرفق المثال و أرجو أن يكون هو ما تطلب GetPerentage2.rar

لان هذا الكود يحتاج الي اضافة مرجع dao افتح محرر البيزيك ALT+F11 او من وضع التصميم اختار اظهار الاكواد لاي نموذج ثم TOOLS PREFERENCES و أضف مرجع Microsoft DAO 3.6 و راجع المراجع فى المثال مع مثالك

آخر تعديل ذكرته يعطيك الخصم كنسبة مئوية لكي تضربه فى القيمة الاصلية بعد ذلك و اذا أردت الحصول علي القيمة ( ال 6 مباشرة ) التي هي فرق ال 400 من ال 394 فى المثال السابق اما ان تطرحهما أو أن تعدل السطر الاخير فى الدالة الي getpercentage = myval * (discount / 100)

إضافة سجل باستخدام SQL إضافة سجل من نموذج بدون مصدر بيانات http://www.officena.net/ib/index.php?showtopic=15 إضافة سجل باستخدام DAO إضافة سجل من نموذج بدون مصدر بيانات http://www.officena.net/ib/index.php?showtopic=14 إضافة سجل باستخدام ADO إضافة سجل من نموذج بدون مصدر بيانات http://www.officena.net/ib/index.php?showtopic=13

1 افتح التقرير فى وضع التصميم 2 اختار حقل الاسم 3 من قائمة فورمات Format 4 اختار conditional Format 5 ثم اختار Expression 6 و اكتب التعبير التالي nz(Len([textboxname]);0)=0 ثم غير اللون الي الأحمر مثلا 8 احفظ التقرير ثم أغلقه عند فتح التقرير ستجد كل السجلات التي بها قيم خالية فى مربع النص المختار ملونة بالأحمر بعد حفظ التقرير لاختيار التنسيق المختلف للحقول التي بها قيمة = خميس مثلا فى حقل الايام كرر الخطوات من 1 الي 4 ثم اختار Cell Value 5 اختار Equal 6 اكتب "خميس" 7 ثم غير اللون الي الأحمر مثلا 8 احفظ التقرير ثم أغلقه عند فتح التقرير ستجد كل الأسماء المساوية ل "خميس" ملونة بالأحمر بعد حفظ التقرير اذا كان عندك أكسس 97 أعتقد أن هذه الخاصية لا تعمل معه

اضغط ALT+F11 لتصل الي محرر البيزيك أو من قائمة Tools Macro و للمزيد حول محرر البيزيك يمكنك مراجعة هذا الموضوع دروس في التعامل مع ال vba فى الإكسيل http://www.officena.net/ib/index.php?showt...opic=206&hl=vba فالموضوع متشابه فى الاكسيل و الوورد

لم أفهم قصدك هذا مثال مرفق فى الرد اللخير ذكرت 4000 ، أظنك تقصد 400 كما فى المواضيع السابقة و اذا قصدت انك تريد الخصم و ليس القيمة بعد الخصم فيمكنك الحصول عليه كما فى المثال أو عن طريق الدالة مباشرة باستبدال getpercentage = myval - (discount / 100) * myval بالسطر التالي getpercentage = (discount / 100) GetPerentage.rar

اذا اردت عدم دخول ال 400 نفسها فى نسبة ال 2% فاستبدل Case Is >= 400 ب Case Is > 400 و هكذا للباقي اذا أردت نفس الشيء لهم استبدل كل ال Case Is >= .. ب Case Is >.. فتصير النسبة الخاصة بال 400 نفسها 1.5% بدلا من 2% لانها ستدخل فى الشريحة السابقة مع تحياتي

للمزيد حول المفتاح المركب http://www.officena.net/ib/index.php?act=ST&f=17&t=261

اجعل الحقل فى الجدول من نوع OLE Object و ابسط الطرق لادخال الصورة فى الحقل لكل سجل هو عمل نسخ لها ثم Paste فى الجدول فتظهر كلمة Picture ثم عند العرض فى النموذج ستجد الصورة ظاهرة و لكن هذا ليس هو الحل الامثل فحل المسار هو الحل الافضل من أجل حجم القاعدة و اداؤها

مشكور :(

سبقني الاخوة فى الترحيب بعودتك اهلا بك أخي فهد و في انتظار المزيد :lol:

أولا أهلا بك ثانيا ، يرجي مراجعة قواعد طرح المشاركات و منها عدم طرح سؤالين فى مشاركة واحدة . بالنسبة للسؤال الاول لابد من استخدام دالة خاصة ، بخلاف دوال الاكسيل و لكتابة الدالة افتح محرر البيزيك ALT+F11 ( يوجد فى الارشيف مقدمة للتعامل مع ال vba فى الاكسيل يرجي مراجعتها ) ثم أدرج موديول جديد و به ضع الكود التالي Function getpercentage(myval) Dim dicount As Single Select Case myval Case Is >= 5000 discount = 6.5 Case Is >= 4400 discount = 6 Case Is >= 4000 discount = 5.5 Case Is >= 3400 discount = 5 Case Is >= 3000 discount = 4.5 Case Is >= 2400 discount = 4 Case Is >= 2000 discount = 3.5 Case Is >= 1400 discount = 3 Case Is >= 1000 discount = 2.5 Case Is >= 400 discount = 2 Case Is >= 0 discount = 1.5 Case Else discount = 0 End Select getpercentage = myval - (discount / 100) * myval End Function و بذلك يمكنك استدعاؤها مباشرة من مربع حوار الدوال مجموعة User Defined أو كتابة جملة الاستخدام مباشرة مثل : مثلا يوجد الرقم قبل التخفيض فى الخلية C5 و ضع الجملة الاتية فى الخلية لاتي تريد الناتج بها =getpercentage(C5)

مرفق وصلة تحميل الملف الذي تفضل به الاخ الكريم a_saladen Popup97.txt

أخي أحمد أعتقد أن الشرح الجميل فى حاج الي اضافة بسيطة لتوضيح مفهوم الفهارس رح لكي يشعر من يطبق الخطوات بالنتيجة التي من المفترض أن يصل اليها أي ما هو الفهرس ؟ اضافة بسيطة يمكن بدلا من فتح ال "" و الكتابة بعد المرجع استخدام خاصية جاهزة فى الاكس بي باختيار الكلمة ثم بعد اختيار xe بدلا من ان نختار field Codes نختار MarkThis Value فربما تكون اسهل للبعض فى الادخال مع الشكر و التحية

وجود ارقان حساب الاصل و حساب الاهلاك وو محساب مجمع الاهلاك في كل من جدولي المجموعات و الاصول ، يبدو أنه من أجل وجود قيمة افتراضية لرقم الحساب عند ادخال بيان فى جدول الاصل ام ان الموضوع رقم حساب رئيسي ليتم التأكد من ادراج رقم حساب ابن منه فى جدول الاصول اما ان لم يكن هذا و لا ذاك فيمكن حذفها من جدول المجموعات بالنسب لجدول الاصول ، اقترح اضافة حقل لتوضيح قيمة أو نسبة ما تم اهلاكه و جقل آخر لتوضيح هل تم االهلاك بالكامل ام لا ( من نوع نعم لا ) بالنسبة للفرع ، أعتقد أن التطبيق الاعم سيكون ترك التصميم كما هو مع تغيير الاسم الي كود المكان ، فيختلف الاستخدام حسب المستخدم فيمكن أن يكون التصنيف بالمباني أو بالادارات مثلا ، و فى النهاية هو مكان فرع أو مبني أو ادارة ، لذا اقترح تغيير الاسم الي المكان بدل الفرع ، و من يريد الفرع فليكتب فى جدول الاماكن ، فرع القاهرة ، فرع طنطا ... هذه اقتراحات فقط و أترك للأخوة المحاسبين التعقيب بمدي لزومها من عدمه بالنسبة لتعليقات الاخ ابو هادي 1-2- اتفق في حذف مسلسل جدول المجموعات ، اما جدول الاصول فاعتقد أن كود الاصل ربما لا يمثل رقم فريد أي يمكن تكراره لذا قد نحتاج المسلسل اي كمات فى مثال اشرف يمكن وجود اصلان تابعان لمجموعة رقم اثنان ، و رقمهما 2001 فسنحتاج المسلسل ، اما اذا لم تكن هذه الحالة ممكنة فلن نحتاجه 3-النسبة قد نحتاجها لو كانت ستعامل علي لأساس قيمة افتراضية فى جدول المجموعات تضاف تلقائيا الي الاصول و يمكن تغييرها 4- اتفق فى ذلك مع تحياتي

موضوع ذو صلة استخدام آخر لل array Formula http://www.officena.net/ib/index.php?showtopic=1075

هذا المثال يوضح كيفية استخراج القيمة القصوي للمبيعات لمبيعات شهر محدد سواء بكتابة رقم الشهر أو بكتابة اي تاريخ فى هذا الشهر و هو تطبيق آخر لل array forumula فكرة : أحمد شرف --- ملاحظة موضوع ذو صلة ( استخدام آخر لل array Formula ) http://www.officena.net/ib/index.php?showt...ic=625&hl=array arrayF_getfield.rar

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

هذا مثال للتعامل مع الحافظة قام بتعريبه الاخ فيصل الحربي clipboard_faisal.rar