كرار صبري _ أبو جنى

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

الخطأ مني ... تفضل ... 4 نموذج.rar

تفضل ... 3 نموذج.rar

اقصد ماذا تحتاج انت ؟ يوزر عادي ( يحق له الدخول على محافظته فقط ) و سوبر يوزر ( يحق له الدخول على كل المحافظات ) هل هذا ما تريده ...

هل يوجد يوزر لديك له صلاحية محافظتين او ثلاث ... ام لليوزر اما صلاحية محافظة واحدة او كل المحافظات ...

حياك الله استاذ سعيد ... ان شاء الله تكون بخير ... اعتقد ان عنوان الموضوع يختلف عن المطلوب ... فالمطلوب رصيد مواد واردة و صادرة ... و حاولت ان احفظ نسخة بتنسيق اقدم من 2010 لكن ظهرت رسالة خطأ ... آسف ...

اولا جعلت حقل المحافظة قائمة منسدلة ( سوف ارى ان شاء الله ماذا يمكن ان اعمل بالنسبة لاعطاء يوزر كل الصلاحيات ) ثم نقلت اسم اليوزر من نموذج الادخال الى النموذج الرئيسي uuu = Me.username [Forms]![Form1]![User] = uuu ثم عند فتح نموذج كمبيوتر الذي مصدره الاستعلام كمبيوتر و الذي شرطه في حقل المحافظة DLookUp("[cons]";"user";"[username]='" & [Forms]![Form1]![User] & "'")

تفضل ... لكن بشرط عدم حذف اي سجل ... و ادخال البيانات بالتسلسل ... المتوسط المتحرك 2.rar

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

و عليكم السلام و رحمة الله و بركاته ...

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

اخي كلام الاخ حسين تمام و مية % ... لأنه لا علم لليوزر بهذا الملف المخفي ... و اذا اردت فهذه طريقة ثانية ... تعمل على حفظ رقم المعالج و رقم الماذر بورد في اول تشغيل للبرنامج ( حيث ان قيمة الحقل xxx من الجدول = 1 ) اما التشغيل الثاني و ما بعد فستتم المقارنة ( حيث ان قيمة الحقل xxx من الجدول = 2 ) * يتم ضبط النموذج frm1 بحيث يعمل عند التشغيل . * لم اتمكن من غلق النموذج frm1 عند فتح نموذج الواجهة , لذا ارجوا من احد الاخوة او الاساتذة الكرام عمل ذلك ... My Protect.rar

ابو شهاب لا شكر على واجب ... ان لم تستطع ارفاق البرنامج ... فاعمل مثال مصغر و ارفقه ...

يعني تمام ولا لا ...

اخي احمد ما رأيك ... عمر الجهاز 2.rar

و عليكم السلام و رحمة الله و بركاته ... هذا الكود هو السبب ( في الحالي ) للنموذج الشهادة Private Sub Form_Current() DoCmd.MoveSize 500, 500, 1000, 500 Me.InsideHeight = 0 Me.InsideWidth = 0 End Sub

و عليكم السلام و رحمة الله و بركاته ... DLast("[asm]";"alasmaa") آخر اسم من جدول الاسماء ...

دائما تفوتني هذه النقطة ... فيصبح الكود : Private Sub List0_DblClick(Cancel As Integer) If DCount("*", "Table1", "[id]=" & Me![List0].Column(1) & " And [namee]='" & Me![List0].Column(2) & "'") > 0 Then DoCmd.OpenForm "Table1", , , "[id]=" & Me![List0].Column(1) ElseIf DCount("*", "Table11", "[id]=" & Me![List0].Column(1) & " And [namee]='" & Me![List0].Column(2) & "'") > 0 Then DoCmd.OpenForm "Table11", , , "[id]=" & Me![List0].Column(1) ElseIf DCount("*", "Table12", "[id]=" & Me![List0].Column(1) & " And [namee]='" & Me![List0].Column(2) & "'") > 0 Then DoCmd.OpenForm "Table12", , , "[id]=" & Me![List0].Column(1) End If End Sub

اخي ابحث في المنتدى عن التنسيق الشرطي أو افتح موضوع جديد ...

يعني ( اين الخطأ في هذا الكود ) If DCount("*", "Table1", "[id]=" & Me![List0].Column(1) And "[namee]=" & Me![List0].Column(2)) > 0 Then و اذا كان id متشابه للجداول الثلاثة ...

اخي يجب ان يكون نوع البيانات في الحقل هو : عملة و المنازل العشرية : 2