Shivan Kurdi - شڤان کوردی

اتفضل Database21 (1).zip

اتفضل تم اضافة مربع نصي اخر في نموذج الفرعي وتم استخدام هذا الكود =[الاشقاء نموذج فرعي].[Form]![Text25]+[الاجمالي] اليك المرفق مدرسة خاصة.rar

نعم mm.rar

اتفضل تم استخدام هذا الكود Private Sub الاسم_AfterUpdate() If Len(Me.الاسم & "") = 0 Then Form_form_ss.حالة_الوظيفة = "شاغر" Else Form_form_ss.حالة_الوظيفة = "مشغول" End If End Sub mm.rar

وضح مطلبك اكثر

انا استخدمت هذا الكود بعد تحديث الاسم اي اذا كان لا يوجد اي حرف في الاسم سيكون حالة شاغر واذا كان هناك حروف اي اسم فيه سيكون الحالة مشغول اليك الكود Private Sub الوظيفة_AfterUpdate() If Len(Me.الوظيفة & "") = 0 Then Me.الوظيفة = "شاغر" Else Me.الوظيفة = "مشغول" End If End Sub جربه mm.rar

اتفضل استخدمت هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.icmali > 5999 Then MsgBox "ان المبلغ الاجمالي اکبر من 5999 لذلك لا يتم الحفظ" Me.Undo Cancel = -1 End If End Sub جربه الان Database21.zip

القي نظرتا الى هذا SELECT CHECKINOUT.USERID, First(CHECKINOUT.CHECKTIME) AS FirstOfCHECKTIME, [11].ID, [11].FristName, Format([CHECKTIME],"dd/mm/yyyy") AS DateIN, First(Format([CHECKTIME],"hh:nn:ss AM/PM")) AS TimeIN FROM 11 INNER JOIN CHECKINOUT ON [11].USERID = CHECKINOUT.USERID GROUP BY CHECKINOUT.USERID, [11].ID, [11].FristName, Format([CHECKTIME],"dd/mm/yyyy") HAVING (((Format([CHECKTIME],"dd/mm/yyyy"))=[Forms]![ADSEmployees]![iDate2]) AND ((First(Format([CHECKTIME],"hh:nn:ss AM/PM"))) Between #12/30/1899 5:0:0# And #12/30/1899 9:59:59#)); TimeINOUT.zip

اعتذر بشدة ... لم انتبهت على ذلك اتفضل اليك هذا استعلام SELECT CHECKINOUT.USERID, Max(CHECKINOUT.CHECKTIME) AS MaxOfCHECKTIME, [11].ID, [11].FristName, Max(Format([CHECKTIME],"dd/mm/yyyy")) AS DateIN, First(Format([CHECKTIME],"hh:nn:ss AM/PM")) AS TimeIN FROM 11 INNER JOIN CHECKINOUT ON [11].USERID = CHECKINOUT.USERID GROUP BY CHECKINOUT.USERID, [11].ID, [11].FristName HAVING (((Max(Format([CHECKTIME],"dd/mm/yyyy")))=[Forms]![ADSEmployees]![iDate2]) AND ((First(Format([CHECKTIME],"hh:nn:ss AM/PM"))) Between #12/30/1899 5:0:0# And #12/30/1899 9:59:59#)); TimeINOUT.zip

استخدم first في الاستعلام TimeINOUT.zip

اتفضل تم استخدام هذا الكود =IIf(Len([المعدل] & "")=0;" ";IIf([المعدل]<50;"مكمل";"ناجح")) اليك المرفق student1.rar

استخدم DlookUp او ارفق نسخە مصغرە من قاعدە بیاناتک

استخدم ھذا الكود If Me.Icmali > 5999 Then msgbox"لا یجوز" me.undo Endif Icmali هو مربع باسم الاجمالي او ارفع نسخة مصغرة من قاعدة بياناتك للتعديل عليه

اتفضل بحث باسم الصنف.rar

اکتب ھذا الشرط IF len(Me.Muaadal & "" ) <> 0 then ' هنا اكتب كودك Endif والا ارفع قاعدة بياناتك للتعديل عليه Muaadal ھو اسم مربع المعدل

نحن ھناک لکی نستفید من البعض تحیاتی لک اخوک شفان ریکانی

شكرا لك انا ما انتبهت على ذلك استاذ @sandanet

استأذن من استاذنا @sandanet اتفضل استاذ @radwan1991 الیك تعديل بسيط على المثال الاعلاه للسيد ساندانيت AuditTrail_Detailed (1).zip

استأذن من استاذنا @مجدى يونس اتفضل استاذنا @صالح حمادي استخدم هذا الكود Sub Auto_Open() MsgBox "Hello" End Sub ويجب ان تحفظ الملف باوربوينت بصيغة ppam او ppa اي بنوع PowerPoint Addin اليك ملف تجريبي salah.rar

الیک ھذا استعلام SELECT Alsnaf.Rajmsanf, Alsnaf.Alwsf, Alsnaf.Arsid FROM Alsnaf WHERE ((Not (Alsnaf.Arsid) Is Null)); UNION SELECT Alsnaf.Rajmsanf, Alsnaf.Alwsf, Sum(IIf([Nwaha]="مشتريات",[Alkmiah],0))-Sum(IIf([Nwaha]="مردود مشتريات",[Alkmiah],0))-Sum(IIf([Nwaha]="مبيعات",[Alkmiah],0))-Sum(IIf([Nwaha]="مردود مبيعات",[Alkmiah],0)) AS الرصيد FROM Alsnaf INNER JOIN Hrakatsanf ON Alsnaf.Rajmsanf = Hrakatsanf.Rajmsanf GROUP BY Alsnaf.Rajmsanf, Alsnaf.Alwsf; UNION SELECT Alsnaf.Rajmsanf, Alsnaf.Alwsf, Alsnaf.Arsid FROM Alsnaf LEFT JOIN Hrakatsanf ON Alsnaf.[Rajmsanf] = Hrakatsanf.[Rajmsanf] WHERE (((Hrakatsanf.Rajmsanf) Is Null) AND ((Alsnaf.Arsid) Is Null)); 123.rar

ھذا الكود لفتح النموذج من اليسارك الاعلى الى يمينك للاسفل هذا عند فتح Private Sub Form_Open(Cancel As Integer) Me.InsideHeight = 0 Me.InsideWidth = 0 Me.TimerInterval = 100 End Sub وهذا في تايمر Private Sub Form_Timer() Me.InsideHeight = Me.InsideHeight + 200 Me.InsideWidth = Me.InsideWidth + 200 If Me.InsideHeight >= 3000 Then Me.InsideHeight = 4000 Me.InsideWidth = 4165 Me.TimerInterval = 0 End If End Sub وهذا الكود لفتح النموذج من يسارك الى يمينك عند الفتح Private Sub Form_Open(Cancel As Integer) Me.InsideWidth = 0 Me.TimerInterval = 100 End Sub عند تايمر Private Sub Form_Timer() Me.InsideWidth = Me.InsideWidth + 200 If Me.InsideWidth >= 4000 Then Me.TimerInterval = 0 Me.InsideWidth = 4165 End If End Sub وهذا من الاعلى الى الاسفل Private Sub Form_Open(Cancel As Integer) Me.InsideHeight = 0 Me.TimerInterval = 100 End Sub Private Sub Form_Timer() Me.InsideHeight = Me.InsideHeight + 200 If Me.InsideHeight >= 4000 Then Me.TimerInterval = 0 Me.InsideHeight = 4165 End If End Sub واليك 3 نماذج بثلاث طرائق ثلاث طرائق جميلة لفتح نماذج.rar

وترید ان یژھر سجل الرقم ٤ کما مبینە انھا خالیە من البیانات

تمام الان انا فهمت من قصدك شكرا لك تعبت معاي

اضافتا على ما قال استاذنا الحبيب يوسف احمد يجب ان يكون خاصية key preview للنموذج يساوي yes او عند فتح النمو«ج ان تستخدم ھذا الكود Me.KeyPreview = True ولانك تريد عند الضغط على F12 ان یفتح سجل جدید و یرکز الى حقل باركود اتفضل اليك هذا للنموذج الفرعي Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF12 Then Forms!sh!SH_NO.SetFocus DoCmd.GoToRecord , , acNewRec Forms!sh!SH_A_F.SetFocus Me.BAR_COD.SetFocus End If End Sub لكن يجب ان تضغط على Shift او Ctrl مع F12

شكرا استاذي الحبيب ما هو مقصود من هذا العمل اليس للبحث ؟ اذن جرب عند الضغط على زر ادد راح يضيف فقط اسم اللي في سجل الحالي ... حسب فهمي يجب ان يسجل كل الاسماء لكي بعدين يتم البحث عن واحد منهم ام اذا هناك قصد اخر لهذا العمل اعتذر انا على الخطأ تقبل تحياتي