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

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

اشكرك أستاذي سعيد إليك النتيجة بعد تنفيذ الخطوات 1- تم عمل نسخة للقاعدة 2- لا يمكن عمل ضغط وإصلاح للقاعدة .. ( تظهر الرسالة ) 3- تم عمل قاعدة جديدة - لا يمكن الاستيراد أو التصدير من النسخة التالفة ( تظهر الرسالة ) 4- حاولت الاستيراد أو التصدير للآداة التي ارفقتها وليس هناك جديد ( تظهر الرسالة ) بالنسبة لقاعدة البيانات في جهاز واحد وليست مقسمة ... هناك ملاحظة أخي سعيد الآداة تتعامل مع access*.mdb وقاعدة البيانات لدي access*.accdb إستخدامت الآداة كقاعدة بيانات جديدة وحاولت الاستيراد اليها وكذلك التصدير من التالفة وظهرت الرسالة ( id ليس فهرسا في هذا الجدول )

الاساتذه الكرام سلام وإحترام مشكلة ضيعت عليّ مشروع بأكمله .. فجأة وبدون اي مقدمات ظهرت رسالة (id ليس فهرسا في هذا الجدول) وأتلفت كل النماذج والتقارير والاستعلامات .. الغريب في الأمر أن الجدول الرئيس لم يصاب أو يتلف وهذا المصبرني على هذه المشكلة .. الفزعة بارك الله فيكم ... ID is not an index in this table id ليس فهرسا في هذا الجدول تظهر هذه الرسالة عند فتح نموذج أو تقرير وفي بعض الاستعلامات وعند ضغط واصلاح قاعدة البيانات ..

استاذ جعفر خليني أرفق لك نموذج للبرنامج ..

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

التحية والاحترام لكم .. مشكلة ظهور كلمة ( خطأ#) داخل كل حقل (فارغ) نصي كان أم رقمي وتظهر في كلٌ من الاستعلام والنموذج بصراحة شكلها غير لائق فهي توحي للمستخدم العادي بأن هناك خطأ أو مشكلة ما في البرنامج .. بالنسبة للحقول الرقمية استعملت في الاستعلام isNull و Nz وكانت النتيجة جيدهحيث تظهر القيمة صفر للحقول الفارغة ولكن الحقول النصية تظل المشكلة قائمة .. أرجو أن أجد لديكم الحل وكما قال استاذنا ابوخليل .. مطلق السؤال ومطلق الإجابة .. شاكر لكم

ما شاء الله تبارك الله قلت لك انك ساحر .. ما شاء الله تبارك الله Private Sub cmd_Rename_Click() newpathANDname1 = InputBox("Please insert a new name") If Len(newpathANDname1 & "") = 0 Then Exit Sub newpathANDname = Me.lst_Files.Tag & newpathANDname1 & ".jpg" oldpathANDname = Me.lst_Files.Tag & Me.lst_Files.ItemData(Me.lst_Files.ListIndex) 'make a copy of the fie, with the new name FileCopy oldpathANDname, newpathANDname 'select another file in the listbox, so that this file is no longer in-use For i = 0 To lst_Files.ListCount - 1 If lst_Files.Column(0, i) <> newpathANDname1 Then Me.lst_Files.Selected(i) = True Exit For End If Next i 'now delete the old file name Kill oldpathANDname 'don't refresh the Form Me.Painting = False 'read the folder files Call Form_Current 'select the same file name For i = 0 To lst_Files.ListCount - 1 If lst_Files.Column(0, i) = newpathANDname1 Then Me.lst_Files.Selected(i) = True Exit For End If Next i 'refresh the Form Me.Painting = True End Sub كود عبقري يدرس ..

ما شاء الله تبارك الله .. ايها الساحر العُماني بار ك الله فيك .. إحترامي

استاذي جعفر .. هل تذكر هذا البرنامج ( الصورة المرفقة )

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

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