rudwan

ماذا فعلت حتى ظهر معك خطأ , و ماهو الخطأ ؟

أضف الى حقول الجدول حقل MyNumber و تنسيقه رقم , و هو حق مختلف عن الحقل IncomeNo الذي تتحدث عنه و تنسيقه نص الآن في النموذج ضع الكود التالي عند حدث الدخول الى حقل MyNumber Private Sub MyNumber_Enter() Me.MyNumber = Nz(DMax("MyNumber", "MyTable"), 0) + 1 Me.IncomeNo = Right(Year(Now()), 1) & "\" & Me.MyNumber End Sub

قم بتجزئة ملفك الى قسمين , قاعدة البيانات ( تحوي الجداول فقط ) و الواجهة ( تحوي بقية المكونات ) و ذلك طبعا بعد قفل النماذج بحيث لايستطع أحد الدخول الى تصميمها , و تعمل ربط بين الملفين الآن ضع قاعدة البيانات الخاصة بالجداول على جهازك , و ضع له نسخة من الواجهة فقط على جهازه و اربط نسخته بملف قاعدة البيانات الأصلي

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

أرفقت الملف . حسنا , مالذي تريد تعديله فيه ؟

جرب الكود التالي Private Sub Command0_Click() Dim Sql As String Dim TableName As String TableName = CStr(InputBox("Select Table Name ")) Sql = "INSERT INTO Table1 SELECT " & TableName & ".* FROM " & TableName & ";" DoCmd.RunSQL Sql End Sub

اضف حقل تاريخ الى الجدول و قيمته الافتراضية تاريخ اليوم بحيث عند اضافة اي سجل جديد يخزن قيمة تاريخ الاضافة فيه و ليكن اسمه EntryDate الآن في الاستعلام أضف حقلا جديدا اسمه الفترة Per:Now()-EntryDate+1 الآن أضف حقلا جديدا اسمه حقل الملاحظات ( و هو ليس من حقول الجدول ) Remarks:iif([Per]<=20,"New"," ")

أخي لاتوجد برامج جاهزة لدينا , بل نحن نعمل على مساعدة من لديه مشكلة برمجية ما أثناء تصميم برنامجه , فاذا كنت تصمم برنامجا لميزانيتك و تحتاج مساعدة فأهلا بك

تضع كود اختبار قيمة المفتاح الرئيسي و فيما اذا كانت موجودة سابقا في الجدول و ذلك في حدث قبل الادخال للعنصر , فاذا وجدت قيمة سابقة يتم الغاء الادخال الحالي للسجل Private Sub Item_BeforeUpdate(Cancel As Integer) If Not IsNull(DLookup("item", "table","[item]=" & me.item)) Then MsgBox " item has been recorded previosly " Cancel = -1 End If End Sub

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

السلام عليكم أخي gamlin أرجو عند ارفاق أي ملف من المنتدى و من باب حفظ الحقوق أن تذكر مصدر الملف و من هو مصممه و أقصد به ملف التصميم الشجري و هو من تصميم أستاذنا أبو هادي مراقب المنتدى . حتى لايظن أحد ما أن الملف من تصميمك و هو ليس كذلك . أما من ناحية تصميم برنامج الحسابات ,فالملاحظ أن هذا التصميم يتعامل مع المحاسبة البسيطة التي تعتمد على القيود المحاسبية فقط . و لكن اذا كان هناك يوميات مختلفة و سندات قبض و دفع وواردات خزينة و مدفوعات بنكية و اجراءات مستندية للاعتمادات المستندية و حسابات زبائن و حسابات عملاء و أرصدة و شيكات ... الخ فا‘عتقد أن هناك حوجة الى المزيد من الجداول

حسنا , انسخ الاستعلام نفسه نسختين , الأولى ضع فيها في شرط التغير >0 أي سيعطيك الأرقام الموجبة فقط و ضع شرط معاكس له في الاستعلام الثاني أي <0 ليعطيك الأرقام السالبة فقط ثم اعمل استعلام مجموع على الاستعلام الأول ليعطيك مجموع الكميات الموجبة و استعلام مجموع آخر على الاستعلام الثاني ليعطيك مجموع الكميات السالبة

انظر النموذج Users Password.rar

معناه أن أسماء تلك الحقول الجديدة في الكود مختلفة عن أسماءها الحقيقية , هذا أولا ثانيا هناك اشكالية برمجية . اذا كانت تلك الأحرف هي أسماء الحقول غير المنضمة , ثم بعد أن تسند للحقول المنضمة تلك القيم و تحفظ السجل تقوم بالغاء قيم تلك الحقول و جعلها خالية بهذا الكود DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.GoToRecord , , acNewRec MsgBox "لقد تم الترحيل بنجاح", , "SADDIQ" b = Null اذا عندما تذهب الى سجل جديد لن تستطيع اسناد قيم للحقول المنضمة طالما أن قيم الحقول غير المنضمة أصبحت خالية

أعطني اسم المستخدم و كلمة المرور لملفك

طالما أنك رتبت الصفقات تنازليا في الاستعلام " أغلى الصفقات " فالمفروض أن هذا طلبك فما هو الباقي ؟

سواء أدخلت نظام الورديات أم لا , الفكرة هي عمل الجدول لأول توزيعه , ثم تكرار نفس السجلات لفترات لاحقة أي أنت بحاجة لادخال سجلات جديدة بقدر عدد الموظفين الموجودين في كل توزيعه . لذلك اعمل التوزيع المرغوب لأول توزيعه ثم كرر السجلات كما هو واضح في الاستعلام و بالنسبة للتحكم ببداية التاريخ , استعض عن تاريخ 30/04/2006 بمتغير و ليكن EnterStartingDate و عند تشغيل الاستعلام يطلب منك ادخال قيمة لهذا المتغير

كما قلت لك , اسند الى مربع النص الذي تريده المعادلة التالية Pass= MyUser.pass

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

الملف الذي أرفقته لايتعامل مع اسم المستخدم و كلمة السر الموجودين في جدول المستخدمين بل تم تعريفهما على اساس أنهما متغير مركزي في قاعدة البيانات يتم استدعاؤه من أي مكان في الملف بواسطة الكود الذي كتبته لك , و هو تماما مختلف عن اسم و كلمة السر الموجودين في جدول المستخدمين

السلام عليكم أحضر كلمة السر بالكود التالي Pass= MyUser.pass و اسم المستخدم User= MyUser.username

أولا هذا الكود ليس هو كود اضافة حقل الى الجدول ثانيا ماهي هذه القيم : a b c d >>>>

أخي sas_kik أنا لا أقدم لك اطراء , بل أعطيك جزءا من حقك , فأنا ألاحظ مشاركات الأعضاء , و مشاركاتك فعلا في مستوى متميز

انظر أخي الاستعلام query1 في المرفقات Groups.rar

على هذا فان الأسهل هو أن تستخدم نموذج التقويم و تختار منه بداية فترة البحث في مربع نص و نهاية فترة البحث في نص ثاني و تعرض نتائج الاستعلام على أساس أنها تمثل القيم بين مربعي نص البداية و النهاية لأن عبارة Like تتعامل مع النصوص و ليس مع التاريخ , التاريخ يحتاج قيمة مطابقة أو مابين تاريخين .