Elsayed Bn Gemy

برافو استاذ مارد 

لكن ايش رايك بتعديل بسيط جدا !!  اضف المعامل not لتصبح  not in   !! وخلاص مرة واحدة يحذف المكرر !!

وانت والله مرة بتجاوب حاجات صعبة ومرة ماتزبطشي معاك !! 

 

بالتوفيق للجميع

ولا تزعل اخى رمهان  - فلتت منى دى انا بس من الصبح كنت بفكر فى الطريقة لانى كنت اتعلمتها قبل كدا ونسيتها

عموما المرفق جاهز الان ...

واحب ان انوه انه من يجارى رمهان ؟؟؟ ههههههه

استعلام لحذف المتكرر فى الجدول.rar

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

قم باضافة البيانات التى تريدها

وعندما تريد تصفية الجدول الى القيم الفريدة الغير متكررة قم بتشغيل الاستعلام

قمت باضافة حقل واحد فقط هو (mared_id)  لتحديد السجلات المكررة

ثم انشات الاستعلام

تفضل اخى الفاضل

شكرا لك اخى الكريم محمد ان تفسح المجال لطالب علم ما زال يحبوا لينهل من نبع علمكم حفظكم الله

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

بص انا حددت الصلاحيات فى 3 كلمات

admin

editor

visitor

فكان كل واحد يسجل على البرنامج الخاص بى اعتبره زائر فقط يرى ويشاهد وغير مسموح له بالاضافة او التعديل فى السجلات

ثانيا المحرر وطبعا انتم عارفين صلاحياته

واخيرا الادمن  وهو المسئل عن كل حاجة فى البرنامج بما فيهم لوحة التحكم الخاصة باعداات البرنامج

الكلام السهل بس التنفيذ فى الاول انا كنت شايفه صعب بس انا عملت الاتى

فى جدول المستخدمين ضفت حقل اسمه الصلاحيات مصدر بياناته قائمة منسدلة فيها 3 وظائف (الادمن - المحررر -والزائر )

وكل مستخدم له رقم تعريف يولد تلقائى .

اما فى النماذج

فى كل نموذج

كان من الطبيعى ان يظهر اسم لمستخدم الحالى

فقمت باضافة حقل مخفى بالرقم التعريفى

وقمت باضافة حق اخر مخفى باسم الصلاحيات

وقمت بعمل الاحداث المتسلسة الاتيه

قمت بعمل استدعاء لصالحية المستخدم الحالى عن طريق اسمه

ووضعت قيمى هذه الصلاحيه فى مربع النص المخفى (صلاحيات )

وعلى حسب القيمة الموجودة فى مربع النص كنت اضع  الصلحيات

بمعنى

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

وبعد استدعها قم باظهار الزر المخفى المسمى بلوحة التحكم وهكذا

وشكرا انك وافقت انى اصدعك شويه

انا ممكن ابعت مرفق

هل هذا ما تريده يا اخى

عبارة عن قائمة منسدله فى الاستعلام لتحدديد ما تريد

db1.rar

هيفتح طبعا من اول وجديد بس انا بفكر اربطه باسم الكمبيوتر نفسه

جزاك الله خيرا أستاذنا.... والشهير بالمارد

حقا رأيت من متابعتى لمواضيعك وردودك المتميزة عجبا أيها المارد

العفو اخى ابا عبد الله نت استاذنا

آسف على التأخر فى الرد أولا مشكور على الرابط أخى

ثانيا الرابط لمعالج التحزيم فى أكسس 2007 وليس لل runtime

وأخيرا أنا أعمل على أكسس 2010

وشكرا لك مرة أخرى

متاسف لك ا اخى الكريم

هذا هو الرابط ل 2010

https://www.microsoft.com/en-us/download/details.aspx?id=10910

الله ينور عليك يامارد افندي

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

 

بالرغم من انك هتسجل والمعالج مش هيفتح من اول وجديد وكل حاجة تمام

بس ولنفرض انك نقلت البرنامج على جهاز تانى

المفروض يفتح المعالج من اول وجديد بس دا مش هيحصل فى النسخة دى

ان شاء الله فى نسخة تانية

فى التحسين دا بحيث لو نقلت البرنامج على اى جهاز يسجل من جديد

هذا هو مرفقك يا اخى الكريم به التقارير التى تريدها

تقرير اجمالى وتقرير عن موظف معين

ومتاسف على التاخير يعلم الله ما انا فيه

رواتب.rar

اخى الكريم محمد عصام مشكور جدا على البرنامج الرائع  ولكن لى وجهة نظر فى هذا الموضوع اسمح لى ان اطرحه فى مشاركتك الجميلة هذه

عزيزي

هناك سؤالين :1.  بعد حذف التكرار من الجدول : هل سيتم ادخال تكرار مرة اخرى ومن ثم الحذف كل مرة ؟

                 2. هل ممكن يضاف عمود تسلسل للجدول ؟

كما لو تتفضل بشرح للبرنامج وعبارة عن ماذا ؟

 

تحياتي

سؤال يطرح نفسه اخى الكريم رمهان وبقوة

ما فائدة حذف التكرار اذا لم اوقف المصدر او السبب فى تكرار البيانات

وانى اسال صاحب المشاركة هذا السؤال

اخى الكريم انا الحل اللى عندى انك تعمل نسخة من الجدول الموجود

ولكن تخلى الحقول مفاتيح اساسية

وتعمل استعلام الحاق عن الجدول القديم

الحاق بالجدول الجديد

وعند الالحاق لن يلحق سوى قيمة واحدة من القيم المكررة لو يمشى معاك ارفعلك المرفق ؟؟

الى ان يفيدنا الاخوة بحل

هل هذا ما تريد اخى الفاضل

DB_Jandbi.rar

اضافة الى ما سيقدمه اخى ابا عمر  هذا الكود

مبدئا وقبل كل شيء يجب الاتى

1 - قم بعمل نموذج وليكن اسمه (sleep_mode)

2 - ستحتاج الا اخفاؤه بواسطة الماكرو ثم Hidden

3 - فى حدث عند عداد الوقت ضع الكود التالى

Option Compare Database
Option Explicit

Private Sub Form_Timer()
         Const IDLEMINUTES = 60

         Static PrevControlName As String
         Static PrevFormName As String
         Static ExpiredTime

         Dim ActiveFormName As String
         Dim ActiveControlName As String
         Dim ExpiredMinutes

         On Error Resume Next

         ActiveFormName = Screen.ActiveForm.Name
         If Err Then
            ActiveFormName = "No Active Form"
            Err = 0
         End If

         ActiveControlName = Screen.ActiveControl.Name
            If Err Then
            ActiveControlName = "No Active Control"
            Err = 0
         End If

         If (PrevControlName = "") Or (PrevFormName = "") _
           Or (ActiveFormName <> PrevFormName) _
           Or (ActiveControlName <> PrevControlName) Then
            PrevControlName = ActiveControlName
            PrevFormName = ActiveFormName
            ExpiredTime = 0
         Else
            ExpiredTime = ExpiredTime + Me.TimerInterval
         End If

         ExpiredMinutes = (ExpiredTime / 1000) / 60
         If ExpiredMinutes >= IDLEMINUTES Then
            ExpiredTime = 0
            IdleTimeDetected ExpiredMinutes
         End If

End Sub

Sub IdleTimeDetected(ExpiredMinutes)
   With Screen.ActiveForm
      If Screen.ActiveForm.Dirty = True Then
      .Undo
      End If
      End With
   Application.Quit
End Sub

فى الواقع هذا الكود به ثلاث اشياء مهمة يجب ان تعرفها

1 - هذا الكود سيتراجع عن اى اجراء او تعديل لم تقم بحفظه

2 - هذا الكود لن يعمل فى حالة Sleep mode للكمبيوتر  انما قبل ما يوصل للحالة دى

3 - الكود واخد امر اغلاق Application  انما لو عاوز اى امر تانى يبقى نعدله بعدين

شرح مهم لطريقة عمل الكود

الكود بيقول انه اذا مر 60 دقيقة من زمن الخمول  اقفل قاعدة البيانات ههههههههههههه

         ExpiredMinutes = (ExpiredTime / 1000) / 60

ممكن يتغير من متغير حساب زمن الخمول دا  ونخليه مثلا دقيقتين

ExpiredMinutes = (ExpiredTime / 1000) / 2

وشكر الله لكم حسن صنيعكم

جميل جدا الشرح دا والفكرة بسيطة وسهلة 

بس انا مضطر اعمل لكود دا فى كل النماذج حتى لو عندى 100 نموذج مثلا

طب ليه ميبقاش عندى نموذج مفتوح ومخفى عن طريق الماكرو مثلا

بداخله كود يقوم بذلك

مجرد اقتراح

 

اخى الكريم بارك الله فيك نحن ننهل من نبع علمكم انتم

 

تفضل مرفق لتسجيل الدخول والخروج وفتح حساب لاكتر من يوزر جديد كمان

ماشاء الله  مبدع دائما كعادتك

 

العفو كدا فاضل السؤال الاول صح ؟؟

انتظر ياتيك الفرج قريبا انا بجربه وهبعتوهولك فى المرفق

حاول اصلاح الاوفيس لديك من خلال كنترول بانل

add and remove

لان المرفق الذى ارسلته اليك

قمت باضافة جدول باسم العهد

يحتوى على رقم للعهدة

وربط جميع الجداول به

وهو سيغنيك عن اشياء كثيرة

واضافة الى ذلك اماكنية لبحث برقم العهدة ؟؟ لمن ؟؟ ومتى خرجت وهكذا ؟؟

نقم خالص الاسف بس الموضوع مكنش ينفع يتجزأ

مرة تانية نكرر الاسف

اخى الكريم بارك الله فيك نحن ننهل من نبع علمكم انتم

تفضل مرفق لتسجيل الدخول والخروج وفتح حساب لاكتر من يوزر جديد كمان

log(off-on).rar

جارى رفع مرفق لسه عامله طازة لنموذج تسجيل الدخول والخروج

بس اتعشى الاول ههههههههه تعالوا اتفضلو

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

اولا لازم يكون عندك جدول للمستخدمين ودا الطبيعى

ثانيا ممكن تضيف جدول للاعضاء النشطين

العضو اللى يسجل دخول يتم نقل اسمه اليه

وعند تسجلالخروج يتم مسح اسمه من جدول الاعضاء النشطين

وطبعا دا سوف يتم  من خلال الاستعلامات عادى

بالنسبة للسؤال الول اعتقد انه ممكن نكتب كود فى حدث ( عند عداد الوقت )

وسيبونى افكر فى الكود ههههههههههه

هل تقصد بالراتب الكلى هو الراتب الاسمى ؟؟

جرب المرفق دا

http://www.mediafire.com/download/4sfco7xrm4tl6k0/برنامج_عهد_المستودع_-_Copy.rar

طبعا فى كتير بس النهاردة كان صيام والشغل وحاجة صعبه اااعزرنى

كدا فاضل التقارير واستدعاء الراتب المدخل مسبقا

وبعد ما اكتشفت انى برد على الموضوع دا فى موضوع تانى ههههههههههه زهامر وكدا

اتمنى من الاخ السيد رقم رسالة الخطأ او صورة ليها يكون احسن

وشكرا لك