Oliver916

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

في نموذج income الحقل الذي مكتوب امامه amount per liter يعني في الجدول حقل in هو مقدار الكمية الواردة :)

بسم الله ارحمن الرحيم انا حالياً اقوم بتصميم برنامج لحساب الكمية المصروفة و المتوفرة لدي من الديزل لقد قمت بتصميم جدول للديزل الوارد و جدول للديزل الخارج ولكنني لم استطع ان اصمم التقرير اليومي الذي يريني (الديزل المصروف في اليوم الفلاني) و اجمالي المخزون بعد الصرف Diesel (2).zip

الملف مرفق Diesel.rar

بسم الله الرحمن الرحيم انا الآن قمت بتصميم برنامج لحساب الديزل مبني على ادخال الديزل الوارد من المورد و الديزل الخارج للمعدات و السيارات ما اريده هو طريقة لاظهار تقرير يومي فيه ما يلي الديزل المتوفر لدي في الخزان (Opening balance) و بعدها تفاصيـــل الخارج للمعدات و السيارات (Consumption) و في النهاية الرصيد الختامي بعد (Closing balance) ---- انا لدي جدول و فورم لادخال الديزل الوارد جدول و وفورم لادخال الديزل المصروف فقط لا غير

هل من مجيب؟

بسم الله الرحمن الرحيم حالياً اقوم بتصميم برنامج لإدارة مخزن ورشة ميكانيكية الفكرة تقوم على مبداء الا و هو اضافة مادة معينة لجدول المواد هذا الجدول يحتوي اسم المادة، سعر الوحدة، مكان المادة لدي نموذج آخر لادخال المواد نختار المادة من القائمة المسندلة و بعدها تضع تاريخ دخول المخزن و التعداد و لدي أيضاً نموذج آخر لخروج المواد نختار المادة من القائمة المسندلة و نضع تاريخ الخروج و التعداد * من الممكن ان تاتينا الموادة لاكثر من مرة بتعداد مختلف مثلاً قد نشتري اطارات بالحجم الفلاني 10 و بعد فترة نشتري 5 اطارات مرة اخرى و هكذا ولكن ما ارده هو تقرير يريني النتاج النهائي لكل مادة مثلاً الاطار بالحجم الفلاني اشترينا منه مرة 10 اطارات و مرة اخرى 5 و مرة اخرى 7(ناتج الدخول22) في حين استعملنا منه مرة 2 و مرة 4 اطارات (ناتج الخروج 6) ما اريده من التقرير ان يظهر لي الناتج النهائي لعدد الاطارات المذكورة الا وهو 16 طبعاً اريد كل المواد الذي في المخزن ان يكونوا بتقرير واحد و حساب التعداد سيكون بنفس الطريقة ملاحظة* العمل على access 2007 بالواجهة الانجليزية و هذا هو الملف " تحميل " و أي اتوضيح انا جاهز

شكراً جزيلاً لك لا ادري لماذا لم انتبه لهذه النقطة :(

بسم الله الرحمن الرحيم لدي تقرير لطلب الموارد فيه الرقم المورد و اسمه و عدده و سعره الي اريده ان اذا كان اسم المورد = Discount ما يظهر وقت الطباعة يعني يكون موجود في قاعدة البيانات ولكن في التقرير لا يظهر ممكن حل؟

هل استخدمت خاصية Users and permissions لانشاء حسابات المستخدمين؟؟ ^^^^^^^^^^^^^^^^^ لا لم استخدم

هل من مجيب؟

بسم الله الرحمن الرحيم انا لدي قاعدة بيانات فيها نموذج لادخال اسم المستخدم و كلمة المرور قبل الدخول المهم انني عندما ادخل الاسم و كلمة المرور لا يقبلهم الا اذا كانت على الحاسوب الذي قمت بتصميم قاعدة البيانات عليه! مالحل؟ و هذا الكود: Option Compare Database Public LngInterval As Long Private Sub CmdClose_Click() DoCmd.Quit End Sub Private Sub Form_Current() Me.Ad = Date Me.Refresh End Sub Private Sub CmdLogin_Click() On Error Resume Next If Me.Bd > Me.Ad And Me.TxtUser = "AA" And Me.TxtPWD = "bb" Then DoCmd.Close DoCmd.OpenForm "frm Main" ElseIf Me.Bd < Me.Ad And Me.TxtUser = "AA" And Me.TxtPWD = "BBCC" Then MsgBox "Login Successed", vbInformation + vbInformation, "Login" DoCmd.Close DoCmd.OpenForm "frm Main" Else MsgBox "Incorrect user name or password", vbExclamation + vbOKOnly, "Login Failed" End If End Sub Private Sub Form_Load() 'disables the timer control LngInterval = 0 End Sub Private Sub Form_Timer() 'Unlock controls and make available for input and turn off the hourglass Me.TxtUser.Locked = False Me.TxtPWD.Locked = False Me.CmdLogin.Enabled = True DoCmd.Hourglass False End Sub

شكرررررررررررررررررررا جزيلا لقد قمت بتعديله قليلاً اضفت شرط me.bd > me.Ad بعد elseif

اخي لقد تعبثت قليلاً بالاكواد حسب ما طلبت مني و صار هكذا Dim Ad Dim bd Ad = Date bd = datend If Ad < bd Then If Me.TxtUser = "Transport" And Me.TxtPWD = "amstpt" And Ad < bd Then Else If Me.TxtUser = "Transport" And Me.TxtPWD = "78amstpt54" And bd <= Ad Then Me.TimerInterval = 0 MsgBox "Login Successed", vbInformation + vbInformation, "Login" DoCmd.Close DoCmd.OpenForm "frm Main" End If Else يظهر لي Error يقول لي Else without IF و يظلل الـelse الاخيرة: DoCmd.Close DoCmd.OpenForm "frm Main" End If Else ما الناقص؟

للأسف لم افهم اخي انا ضعيف نوعاً ما في البرمجة و الاكواد ممكن تساعدني اكثر و تريني التعديل ان لم يكن صعباً عليك؟