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 ما الناقص؟

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

رائع جدا حقيقة و هذا ما اردته ولكن سؤال آخر عندي كود معين اريد ان احفضه في قائمة الاكواد باسم معين مثل الذي عملته انت no2word كيف هذا؟

بسم الله الرحمن الرحيم ممكن طريقة لجعل او كود لوضعه في خليه ليكتب المبلغ التي في خلية اخرى بالحروف مثلاً فاتورة على الاكسل الناتج في خليه 10,000.00 AED اريد كود يكتب لي Ten Thousands Dirhams طبعاً مع تغير الناتج تتغير الكتابة اوتوماتيكياً و شكراً

فعلاً شكرا لك ولكن ماذا لو اردت باسسورد آخر من اختياري يعني بعد انتهاء المدة يطلب رمز آخر اكون قد وضعته في الكود مسبقاً يعني هذا الرمز لا يعمل لطالما الوقت لم ينتهي

بسم الله الرحمن الرحيم يوجد لدي الكود التالي Private Sub CmdLogin_Click() On Error GoTo Err_CmdLogin_Click '** At this point you would use your existing user name and password validation '** routines. for the purposes of this demo the user name and password have been '** hard coded for brevity. If Me.TxtUser = "Transport" And Me.TxtPWD = "amstpt" Then 'Switch off the time control by setting the interval to 0 Me.TimerInterval = 0 MsgBox "Login Successed", vbInformation + vbInformation, "Login" DoCmd.Close DoCmd.OpenForm "frm Main" Else 'If this is the first incorrect attempt 'set the interval to one second If LngInterval = 0 Then LngInterval = 1000 End If 'notify the user MsgBox "Incorrect user name or password", vbExclamation + vbOKOnly, "Login Failed" 'turn on the hourglass for delay period DoCmd.Hourglass True 'This is optional - for testing only Me.LblWaiting.Visible = True Me.LblWaiting.Caption = "Waiting " & LngInterval / 1000 & " seconds..." Me.TxtUser = "" Me.TxtPWD = "" 'Double the existing waiting time LngInterval = LngInterval * 2 'Lock the controls for the specified time period Me.TimerInterval = LngInterval Me.TxtUser.Locked = True Me.TxtPWD.Locked = True Me.TxtUser.SetFocus Me.CmdLogin.Enabled = False End If Exit_CmdLogin_Click: Exit Sub Err_CmdLogin_Click: MsgBox Err.Description Resume Exit_CmdLogin_Click End Sub مثل ما انتو شايفين انا عملته انه يطلب اسم المستخدم و كلمة المرور عن طريق فورم انا الي اريده انه بعد مدة معنية من الزمان يتغير الباسسوورد فقط لا غير هل ممكن؟

ممكن توضيح اكثر!!!! و ياريت كود البرمجة لاني ضعيف جداً بالبرمجة ما اريده هو ان يكون كالبرامج يعطونك مدة معينة مجانية و لك بعدها يجب ان تشتريها و تضع كود

بسم الله الرحمن الرحيم ممكن طريقة جعل قاعدةالبيانات لفترة معينة من الزمن مفتوحة (مثلاً) شهر و بعدها يقوم البرنامج بطلب باسسوورد معين و يجب ان لا تنطلي عليه خدعة تغيير تاريخ البرنامج