علي المصري

تم تعديل الكود كالتالي : If [BKUP] = True Then NewFile = [StrNew] & "\" & Format(Date, "dd-mm-yyyy") & " " & Format(Now(), "Hh-Nn AMPM") & "-" & DBwithoutEXT & right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Do Until CheckMyFile(NewFile) = 1 [ResultLBL].Visible = False Loop [ResultLBL].Visible = True If [CloseMe] = True Then DoCmd.Close Exit Sub End If ' --------------------- äÓÎ ÇÍÊíÇØí ãÚ ÇáÖÛØ æ ÇáÇÕáÇÍ ------------- Dim NewTempFile As String, NewCompFile As String If [COMP] = True Then NewTempFile = [StrNew] & "\" & "MAXXIN" & right(DBwithEXT, 4) NewCompFile = [StrNew] & "\" & Format(Date, "dd-mm-yyyy") & " " & Format(Now(), "Hh-Nn AMPM") & "-" & DBwithoutEXT & right(DBwithEXT, 4) CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewTempFile & """" Shell CopyMyDB, 0 Do Until CheckMyFile(NewTempFile) = 1 [ResultLBL].Visible = False Loop Dim MyPass As String MyPass = ";" & "PWD" & "=" & [PW] On Error GoTo Err_Compact If IsNull([PW]) Then DBEngine.CompactDatabase NewTempFile, NewCompFile If Not IsNull([PW]) And [PSWRD] = True Then DBEngine.CompactDatabase NewTempFile, NewCompFile, , , MyPass On Error GoTo 0 [ResultLBL].Visible = True Kill (NewTempFile) If [CloseMe] = True Then DoCmd.Close Exit Sub End If MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If Err_Compact: [ResultLBL].Visible = True [ResultLBL].Caption = "áã" & vbCr & "íäÌÍ" & vbCr & "ÇáÇÌÑÇÁ" Kill (NewTempFile) MsgBox Err.Number & " - " & Err.Description, , "áã ÊäÌÍ ÇáÚãáíÉ" End Sub ولكن عن عمل نسخة احتياطية مع الضغط يعطى خطأ عن Kill (NewTempFile) فلا أدري كيف يمكن التعديل عليها هذه النقطة

أستاذ أحمد الفلاحجي شكرا جزيلا على البرنامج الخاص بالنسخ الاحتياطي ولكن عند تجربة البرنامج على اكسيس 2013 حيث امتداد قاعدة البيانات هو accdb يعطي النسخة الاحتياطية بالفعل ولكن التاريخ يتداخل مع الامتداد حيث انني حصلت على التاريخ بعد حرف a وهو الحرف الأول من الامتداد فهل من تعديل شكرا

شكرا جزيلا جزاك الله الفردوس الأعلى في الجنة جاري تركيب النموذج على قاعدة البيانات والتجربة جزاكم الله خيرا برجاء الاطلاع على الموضوع التالي http://www.officena.net/ib/topic/64325-مثال-يعمل-على-اكسس-32-بت-و-64-بت/ المشاركة الخاصة بي في هذا الموضوع ارجو حل هذه المشكلة

ممكن مثال يشرح الاكواد أي مثال بعيد عن ربط قاعدة البيانات بقاعدة أخرى او جداول اريد مثال به الاكواد كي اتعلم منها اين يتم وضع الاكواد والطريقة التي استخدمها في وضع الاكواد في مكانها المناسب لاني قمت باستخدام الكود التالي #If VBA7 Then 'هذه لنسخة 64 بت Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Boolean #Else 'وهذه لنسخة 32 بت Private Declare Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Long #End If ولكن عند فتح احد النماذج اعطى رسالة خطأ في الكود وبعدها حذفت الكود ولكن النموذج اصبح يفتح معي ولكن لا يظهر أي كائنات فيه فرجاء مثال يوضح استخدام الاكواد هل الكود يبقى كما هو ام يتم إزالة علامة الهاش #

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

iif(A>5,"Good",iif(B>8,"VeryGood",iif(C>9,"Excellent","Fail"))) مثال بسيط ولكن لاحظ أن عدد الأقواس المفتوحة يساوي عدد الأقواس المغلقة

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

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

كيف يمكن تحويل عمل النسخة الاحتياطية يدويا

ماذا انتظر من الأستاذ الذي علمني شكرا أبو خليل دالة ذكية يمكن استخدامها في كل عمليات التقريب 5 و 10 و 15 و وما شابه ذلك جزاك الله خيرا فهل الفاصلة فاصلة عشرية ؟ لانه ذكر النتاج 819 ! ولم يذكر 819000 وهو الناتج في الحلين من قبل الاساتذه اذا اعتبرنا الرقم بدون فاصلة ! واذا بفاصلة يظهر رقما اخر ! وهذا مجرد تحويل فكرة الاستاذين الى تعبير في مربع نص : =IIf([Summuny] Mod 250>0;([Summuny]-([Summuny] Mod 250))+250;[Summuny]) تحياتي رائعة أستاذ رمهان

شكرا جزيلا وبارك الله فيكم جميعا

في النموذج اكتب مصدر البيانات id الاسم الشعبة النوع الجنس تجده في المرفق تسجيل غياب.rar

جرب المرفق التالي Prog1000.rar

---------

كود بسيط يمكن من تحويل جمل ال SQl الخاصة بالاستعلام إلى جمل SQL تستخدمها في محرر ال VBA الكود منقول من http://allenbrowne.com/ser-71.html convert QuerySql ToVBA_Sql.rar

استخدم الكود التالي Private Sub Form_Load() Dim strSql As String strSql = "SELECT students.id, students.الاسم, students.الصف, students.الفرع, students.الشعبة, students.الجنس, Count(absence.absentlesson) AS CountOfabsentlesson, Count(absence.absent) AS CountOfabsent" & vbCrLf & _ "FROM students INNER JOIN absence ON students.id = absence.id " & vbCrLf & _ "GROUP BY students.id, students.الاسم, students.الصف, students.الفرع, students.الشعبة, students.الجنس;" Me.RecordSource = strSql End Sub مع تحويل ظهور النموذج إلى split form

جزاك الله خيرا أبو عبدالله غفر الله لك ولوالديك فكرة ممتازة وهذه هي النتيجة النهائية إثراءً للموضوع بعد عمل بعض التعديلات A1.rar

جرب المرفق التالي 2.rar

بالنسبة للتسمية انظر الصورة المرفقة

هل يمكن عمل زر معاينة أو طباعة وفي نفس الوقت حفظ وفتح سجل جديد

هل يمكن جعل قاعدة بيانات تم تصميمها باكسيس 32 بت تعمل على اكسيس 64 بت والعكس

السلام عليكم ورحمة الله وبركاته انظر المرفق تم التعديل تسجيل غياب.rar

وعليكم السلام ورحمة الله وبركاته فقط استبدل n1 بـ نص0 و n2 بـ نص2 لأن n1 و n2 تسمية وليست مربع نص 111.rar

الحمد لله تم بعون الله وحمده شكرا

شكرا جزيلا بهذه الطريقة لابد ان المستخدم لابد ان يعرف الخطوات التالي 1- المعاينة أو الطباعة 2- ثم الحفظ لكي يتم حفظ المخالفة للطالب ويفتح سجل جديد