Shivan Kurdi

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

لا اعرف كيف تكتب الساعة ... هل تكتب ارقام عادية ام تكتب ساعة و دقائق اذاً اذا تريد ان تكتب ارقام عادية اليك الكود الاسفل واذا تريد ان تكتب ساعة مع الدقائق غير الارقام في الكود الى ساعة Private Sub Command8_Click() Dim Mablax1 As Integer Dim Mablax2 As Integer If Me.Text2 >= 9 Then Me.Text6 = Me.Text0 * 0.02 * (Me.Text4 - Me.Text2) ElseIf Me.Text2 < 9 Then If Me.Text4 >= 9 Then Mablax1 = Me.Text0 * 0.01 * (9 - Me.Text2) Mablax2 = Me.Text0 * 0.02 * (Me.Text4 - 9) Me.Text6 = Mablax1 + Mablax2 Else Me.Text6 = Me.Text0 * 0.01 * (Me.Text4 - Me.Text2) End If End If End Sub

اتفضل 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

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

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