د.كاف يار

اتوقع كذا صح IIf(DateDiff("h";CDate([بدايه الانصراف]);CDate([الانصراف]))<=0;0;DateDiff("h";CDate([بدايه الانصراف]);CDate([الانصراف]))) حسب هنا فإذا كان فرق الانصراف الاساسي عن الانصراف الفعلي اقل من صفر فتكون النتيجة صفر New Microsoft Access Database.accdb

تفضل استخدم هذه المعادلة بكل بساطة DateDiff("h";CDate([الانصراف]);CDate([بدايه الانصراف])) New Microsoft Access Database22222.zip

نفس الحال اخي الكريم الكود الموجود في المرفق عبارة عن تايمر فقط لا اكثر تستطيع اضافة ما تريده عند انتهاء الوقت لكن لا علاقة له بأساس الموضوع Static OldcontrolName As String Static OldFormName As String Static ExpiredTime As String Dim ActivecontrolName As String Dim ActiveFormName As String Dim ExpiredMinutes As String '<<<<< ابو نادر >>>>> On Error Resume Next ActivecontrolName = Screen.ActiveControl.Name ActiveFormName = Screen.ActiveForm.Name Me.txtActiveForm = ActiveFormName If (OldcontrolName = "") Or (OldFormName = "") _ Or (ActiveFormName <> OldFormName) _ Or (ActivecontrolName <> OldcontrolName) Then OldcontrolName = ActivecontrolName OldFormName = ActiveFormName ExpiredTime = 0 Else ExpiredTime = ExpiredTime + Me.TimerInterval End If 'ExpiredMinutes = (ExpiredTime \ 1000) \ 60 'للدقائق ExpiredMinutes = (ExpiredTime \ 1000) 'للثاوني Me.txtIdelTime = ExpiredMinutes If ExpiredMinutes >= 50 Then 'لتفيير الوقت ExpiredTime = 0 Application.quit acQuitSaveAll ' <<<<<<<<<<<<<<<<<<<<< هذا الأمر يقوم بإنهاء الأكسس بالكامل تستطيع استبداله >>>>>>>>>>>>>>>>>>>>>>>>>> 'Call AllForms 'DoCmd.OpenForm "frm-UserLogon" End If

تفضل هذا التعديل ***** لكن قبل البدء يجب ان يكون اسم المفتاح الاساسي هو "ID" قي كل جدول Sub indexDelet() Public Function ReNumber() Dim db As DAO.Database Dim rs As DAO.Recordset Dim tdf As DAO.TableDef Dim idx As ADOX.Index Dim x As Integer Dim sSQL As String, S As String Set db = CurrentDb For Each tdf In db.TableDefs If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then sSQL = "ALTER TABLE [" & tdf.Name & "] ALTER COLUMN [id] LONG" db.Execute sSQL Set rs = CurrentDb.OpenRecordset(tdf.Name) If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) x = x + 1 rs.Edit rs.Fields("id") = x rs.Update rs.MoveNext Wend End If rs.Close Set rs = Nothing End If x = 0 Next MsgBox "تم اعادة الترقيم بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" End Function و في ازرار اعادة الترقيم ضع التالي Call ReNumber

انشئ Module جديد و الصق فيه الشفرة التالية Public Function ReNumber() On Error Resume Next Dim db As DAO.Database Dim rs As DAO.Recordset Dim tdf As DAO.TableDef Dim x As Integer Dim sSQL As String Set db = CurrentDb For Each tdf In db.TableDefs If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then sSQL = "ALTER TABLE [" & tdf.Name & "] Add [ID_New] Number" db.Execute sSQL Set rs = CurrentDb.OpenRecordset(tdf.Name) If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) x = x + 1 rs.Edit rs.Fields("ID_New") = x rs.Update rs.MoveNext Wend End If rs.Close Set rs = Nothing End If x = 0 Next MsgBox "تم اضافة ترقيم لجميع الجداول بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" End Function و في النموذج ازرار اعادة ترقيم ضع الأمر التالي Call ReNumber

تفضل

جرب هذي المحاولة الجمعية.accdb

انشئ Module جديد و الصق الشفرة التالية فيه Option Explicit Public Function StartTimer(NumberOfSeconds As Variant, ReportName As String) On Error Resume Next Dim PauseTime, Start, Finish, TotalTime PauseTime = NumberOfSeconds Start = Timer Do While Timer < Start + PauseTime DoEvents Loop Finish = Timer TotalTime = Finish - Start DoCmd.Close acReport, ReportName, acSaveYes End Function في ازرار فتح التقرير و بعد أمر فتح التقرير اعطي الأمر لتشغيل التايمر / المؤقت بعد اعطائه عدد الثواني و اسم التقرير StartTimer(«NumberOfSeconds»; «ReportName») مرفق التعديل tbl.accdb

ارفق مثال لكي يتم التعديل عليه

ياليت توصف مهمة هذا الكود عشان نتوصل لحل و تفضل هذه المحاولة تكويد.accdb

ماشاء الله لا قوة الا بالله فنااااان و مبدع

تفضل هذا التعديل odbExe2.zip

تفضل هذا التعديل odbExe.zip

تفضل التعديل New folder (2).zip

تفضل هذا Microsoft Access Database جديد (3).zip

هل اسماء الملفات موجودة في جدول ؟؟

تفضل التعديل ترتيب رقم 3 - نقل طالب واحد - نقل جميع الطلاب في المجموعة رقم 2 listboxSearch (4).zip

الحمد الله العفو و كلنا اخوان و في خدمتك

تفضل هذا التعديل على نفس مربح التحرير و السرد الي موجود من قبل السبب ان من كبر النموذج ما انتبهت انك اضفت مربع تحرير و سرد فيه الشهور كذلك نصيحة لك حاول مثل هذي النماذج انك ما تجعلها بحجم كبير لجل انها تناسب جميع الشاشات لو لاحظت اني صغرت حجم النموذج لكن عند الفتح ياخذ حجم الشاشة Microsoft Access Database جديد (3).zip

الموضوع بسيط مربع التحرير و السرد عشان يكون الشهر مطابق للشهر الي في نفس الجهاز فأستخدمت حلقة تكرارية مع تاريخ افتراضي عشان نطلع الأشهر و جعلت الكود في حدث عند الفتح Dim i As Integer MonthList = "اختيار ..." For i = 0 To 11 MonthList.AddItem i + 1 & "-" & Format(DateAdd("m", i, #1/1/2000#), "mmmm") Next في حدث عند التغيير في مربع التحرير و السر اضفت الفتر التالي On Error Resume Next Dim varFilter As Variant varFilter = Null If Not IsNull(MonthList) Then varFilter = (varFilter) & "format([txtMovementDateStart],'mmmm') LIKE '" & Right(MonthList, Len(MonthList) - 2) & "'" ' الفلتر t1.Caption = "التقرير الشهري للحركة لشهر" & " ( " & Right(MonthList, Len(MonthList) - 2) & " )" ' تعديل رأس الصفحة لإضافة اسم الشهر لعنوان الصفحة End If With Me.frmMovementMonthlyReport.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With و اذا رغبت بالتواصل معي تفضل على الخاص او الايميل حاليا لا استطيع استقبال المكالمات من السعودية لأني في ماليزيا

هههههههه العذر و السموحة اتفضل 2اضافة شعار.zip

طيب جرب هذا التعديل d (4).zip

طيب اتفضل Microsoft Access Database جديد (3).zip

تفضل التعديل يا بوزهرة اضافة شعار.zip

تفضل هذا التعديل Microsoft Access Database جديد (3).zip