bakry kassala

كل الاقسام في جدول واحد....

احترامي مهندس قاسم اشكرك جداً على اقتراحك وفكرتك السليمة وهي ممتازة اذا كنا صممنا عليها من البداية.... لكن لدينا برنامج نعمل عليه الآن وفكرته العكس تماماً فنحن نضيف الموظف للقسم من مربع تحرير (يظهر لنا اسماء الموظفين) بمعنى ندخل نموذج الاقسام ثم نضيف إليه الموظفين ونحتاج عندما نضيفه الى للقسم #تنبيه بأن هذا الموظف يتبع حالياً للقسم (س) وكان يتبع لقسم كذا وكذا - هل تريد اضافته للقسم الجديد؟... الحاجة الى هذه الفكرة هي سرعة تنفيذ النقل من قسم الى قسم دون الرجوع الى تقرير الموظف الذي تظهر فيه الاقسام التي كان ينتمي لها والقسم الحالي لهذا الموظف. عليه ارجو إذا امكن نصمم نموذج مبني على هذه الفكرة يعتمد في معرفة التكرار على رقم الهوية... شاكر ومقدر لك

السلام عليكم اساتذتي الكرام emp_tbl الجدول emp_nam اسم موظف id_emp هوية الموظف dept_emp قسم الموظف emp_ftm النموذج يتم إضافة الموظف الى اقسام متعددة لأسباب خاصة بالعمل.. المطلوب التنبيه برسالة بأن هذا الموظف يتبع حالياً للقسم (س) & القسم (ج) هل تريد اضافته للقسم (د)؟ نعم - يضاف / لا - إلغاء الامر يتم فحص التكرار برقم هوية الموظف.... أتمنى تكون وضحت الفكرة... برجاء المساعدة أكيد احترامي لأوفيسنا واعضائه الكرام

استاذي ابوخليل جزاك الله الجنة بغير حساب وغفر لك ولنا ولوالدينا ولأساتذتنا الكرام ام عهود زهرة الجنة حفظها الله أينما كانت - رمهان - جعفر - وووو... لا أريد أنسى أحداً مِنْ مَنْ افادونا وكانوا لنا سنداً كبيراً احبكم في الله ولكم مني كل التقدير والعرفان والإحترام بكري

احترامي استاذي الفاضل sandanet .. فضلاً ارجو التوضيح أكثر .. هل هذا الملف يزرع في قاعدة البيانات المر اد عدم ظهور الرسالة فيها ؟ أم .. هذا الملف يشغل كملف قائم بذاته وبالتالي يلغي الرسالة في جميع قواعد البيانات التي سيتم تشغيلها مستقبلاً في هذا الجهاز ؟ مع كامل تقديري لك ..

الكرام خبراء اكسس في موقعنا المتميز اوفيسنا السلام عليكم ورحمة الله مساعدتكم مشكورين في : إلغاء رسالة (تمكين المحتوى) التي تظهر عند فتح قاعدة بيانات اكسس لأول مرة في جهاز الكمبيوتر .. حيث لا يشترط عدم ظهورها لقواعد البيانات الاخرى على الجهاز .. المطلوب فقط لقاعدة البيانات المحددة .. ارجو أن تكون فكرة المطلوب وصلت .. انظر الصورة المرفقة للرسالة المطلوب عدم ظهروها .. شاكر ومقدر لكم اعزائي

استاذي ابوخليل ارجو التكرم بالتوضح الكود اكثر .. هل يمكن أن يتم الحذف بواسطة استعلام حذف ؟

استاذي الفاضل ابوخليل - احترامي استخدم الكود التالي لنقل سجل من الجدول mytbl الى الجدول tbl1 حسب الـ id ثم حذفه من الجدول mytbl أرجو شاكراً مراجعة الكود استاذي .. Me.Refresh DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO tbl1 " & _ "SELECT * FROM mytbl WHERE (((mytbl.id)=[forms]![frm]![id]));" DoCmd.RunSQL "DELETE mytbl.id FROM frm WHERE (((mytbl.id)=[forms]![frm]![id]));" DoCmd.SetWarnings True Me.Refresh

مشكور أخي عبدالسلام ... ولكن ما زالت المشكلة قائمة .. تظهر رسالة : Update او CancelUpdate بدون AddNew او Edit ولا يمكن التنقل بين السجلات .. يحدث ذلك عند حذف اي سجل من السجلات .. حيث يتم تلقائياً انشاء سجل جديد تتجمد فيه عملية التنقل بين السجلات علماً بأن هذا السجل ينشأ تلقائي وليس بحدث ... ( إنشاء سجل جديد في البرنامج يتم بواسطة حدث عند الضغط على زر منفصل تماماً )

استاذي ابوخليل لدي سؤال هل يمكننا أن نضع شرط لهذا الكود بحيث لا يعمل إلا في حال وجود تغيير أو تحرير في بيانات سجل أو اضافة سجل جديد .. ؟

استاذي ابوخليل اشكرك .. لكن هناك رسالة خطأ : الرسالة : Update او CancelUpdate بدون AddNew او Edit (Error 3020)

التحية والاحترام لأساتذتي الكرام .. الكود التالي يضيف اسم المستخدم + وقت التعديل في الجدول عند اضافة سجل جديد أو تحرير سجل المشكلة حسب فهمي البسيط لها : عند حذف هذا السجل (المضاف او الذي تم تحريره) لا يجد الكود الحقل المخصص لكتابة اسم المستخدم و الوقت عليه .. لذلك تحدث المشكلة : حيث لا يمكن الذهاب للسجل التالي أو السابق .. ارجو شاكراً التعديلعلى الكود لحل هذه المشكلة .. Private Sub Form_BeforeUpdate(Cancel As Integer) 'user ' userTable 'fullname ' userNmae On Error GoTo ErrorBakry If Me.NewRecord Then Me.CreatedBy = DLookup("fullname", "users") Me.CreatedDate = Now() Else Me.ModifiedBy = DLookup("fullname", "users") Me.ModifiedDate = Now() Exit Sub ErrorBakry: MsgBox "حدث خطأ ما ", vbOKOnly + vbCritical + vbMsgBoxRight, "تنبيه" Resume Next End If End Sub

جزاك الله خير أخي الفاضل سعيد بعد تجربة الآداة تظهر الرسالة التالية