طلب حذف بيانات الجداول _ معدل

**عمر ضاحى** · أغسطس 18, 2021

السلام عليكم

معايا اكثر من مشكله

فى الملف المرفق به 3 نماذج رئيسيه

كل نموذج به مشكله بسيطه ان شاء الله

نبدأ ب بسم الله الرحمن الرحيم

1- اسم النموذج : Delete All Data

عمل هذا النموذج هو تفريغ قاعدة البيانات

وهو يعمل جيدا

لكن اريد ان اذيف اثتسناء لبعض الجداول

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

فقط هذا

2- اسم النموذج : frmACC

هذا الفورم خاص بصلاحيات الموظفين من تعديل واضافه وغيره

اريد شئين

ا- من القائمة المنسدله عند اختيار رقم المستخدم يجلب لى البيانات

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

يعنى لما اختار الكل فتح يعلم على صف فتح ليعطي صلاحية فتح النموذج

3-اسم النموذج : frmSalaryHistory

هذا الفورم خاص بعرض جميع الرواتب للموظفين

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

وايضا اريد عند اختيار السنه اولا يظهر لى الشهور وعند اختيار الشهر يظهر لى الرواتب الخاصه بهذه الشهر

ولكم جزيل الشكر

T2t2.accdb

**د.كاف يار** · أغسطس 18, 2021

منذ ساعه, عمر ضاحى said:

1- اسم النموذج : Delete All Data

هذا التعديل الاول استبدل الكود بالتالي و لا تنسى اضافة اسماء الجداول في الاستثناء

If Me.txtPassWord = "123" Then
Dim Msg As String
Msg = MsgBox("كلمة المرور صحيحه" & vbNewLine & "" & vbNewLine & " هل تريد بالتأكيدحذف جميع البيانات ؟", vbYesNo, "انتبه")

    If Msg = vbYes Then
MsgBox "جارى حذف جميع البيانات الان", vbInformation, "اعلام"
On Error GoTo Error_TruncateTables

Dim db As DAO.Database
Dim TDF As DAO.TableDef
Dim strSQL_DELETE As String

Set db = CurrentDb()

    For Each TDF In db.TableDefs
        If Left(TDF.Name, 4) <> "MSys" Then
            If TDF.Name <> "اسم الجدول الأول" Or TDF.Name <> "اسم الجدول الثاني" Then
                strSQL_DELETE = "DELETE FROM " & TDF.Name & ";"
                db.Execute strSQL_DELETE
            End If
        End If
    Next
MsgBox "تم حذف جميع البيانات فى الجداول", vbCritical, "تنبيه"
db.Close

Exit_Error_TruncateTables:
    Set TDF = Nothing
    Set db = Nothing
    Exit Sub

Error_TruncateTables:
    Select Case Err.Number
        Case 3376
            Resume Next
         Case 3270
            Resume Next
        Case Else
            MsgBox Err.Number & ": " & Err.Description
            Resume Exit_Error_TruncateTables
    End Select

Else
MsgBox "لن يتم اجراء حذف البيانات من قاعدة البيانات", vbInformation, "اعلام"
End If
Else
MsgBox "كلمة المرور خطأ", vbInformation, "تنبيه"
End If
End Sub

**د.كاف يار** · أغسطس 18, 2021

منذ ساعه, عمر ضاحى said:

2- اسم النموذج : frmACC

تفضل هذا التعديل لهذه الجزئية

T2t2.accdb

**Eng.Qassim** · أغسطس 18, 2021

1 hour ago, عمر ضاحى said:

1- اسم النموذج : Delete All Data

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

Docmd.runSQL "DELETE * from Table1"
DoEvents
Docmd.runSQL "DELETE * from Table2"
DoEvents
Docmd.runSQL "DELETE * from Table3"
DoEvents
Docmd.runSQL "DELETE * from Table4"
DoEvents

**عمر ضاحى** · أغسطس 18, 2021

منذ ساعه, د.كاف يار said:

هذا التعديل الاول استبدل الكود بالتالي و لا تنسى اضافة اسماء الجداول في الاستثناء

If Me.txtPassWord = "123" Then
Dim Msg As String
Msg = MsgBox("كلمة المرور صحيحه" & vbNewLine & "" & vbNewLine & " هل تريد بالتأكيدحذف جميع البيانات ؟", vbYesNo, "انتبه")

    If Msg = vbYes Then
MsgBox "جارى حذف جميع البيانات الان", vbInformation, "اعلام"
On Error GoTo Error_TruncateTables

Dim db As DAO.Database
Dim TDF As DAO.TableDef
Dim strSQL_DELETE As String

Set db = CurrentDb()

    For Each TDF In db.TableDefs
        If Left(TDF.Name, 4) <> "MSys" Then
            If TDF.Name <> "اسم الجدول الأول" Or TDF.Name <> "اسم الجدول الثاني" Then
                strSQL_DELETE = "DELETE FROM " & TDF.Name & ";"
                db.Execute strSQL_DELETE
            End If
        End If
    Next
MsgBox "تم حذف جميع البيانات فى الجداول", vbCritical, "تنبيه"
db.Close

Exit_Error_TruncateTables:
    Set TDF = Nothing
    Set db = Nothing
    Exit Sub

Error_TruncateTables:
    Select Case Err.Number
        Case 3376
            Resume Next
         Case 3270
            Resume Next
        Case Else
            MsgBox Err.Number & ": " & Err.Description
            Resume Exit_Error_TruncateTables
    End Select

Else
MsgBox "لن يتم اجراء حذف البيانات من قاعدة البيانات", vbInformation, "اعلام"
End If
Else
MsgBox "كلمة المرور خطأ", vbInformation, "تنبيه"
End If
End Sub

هذا الكود حذف لى النماذج

وترك الجداول

انا اريد ان احذف البيانات التى فى الجداول ما عدى جدول مثلا AAA1 و AAA2 و AAA3

49 دقائق مضت, د.كاف يار said:

تفضل هذا التعديل لهذه الجزئية

T2t2.accdb 692 kB · 0 downloads

هذا ما ارته

الف شكر لحضرتك

ولى اضافه

اذا ارت ان اجعل مفتاح واحد يعدل على الكل

فجربت الكود بهذه الصيغه لكن لم تعمل

ما الخطأ

Private Sub AllowAll_Click()
On Error Resume Next
Dim db          As DAO.Database
Dim sSQL        As String
    If (AllowEdit Or AllowOpen Or AllowDelete Or AllowAdd) = -1 Then
        Set db = CurrentDb
            sSQL = "UPDATE tbl2Allows SET [AllowOpen] = -1,[AllowDelete] = -1,[AllowAdd] = -1,[AllowEdit] = -1 WHERE [UserCode]=" & ID
            db.Execute sSQL
    Else
        Set db = CurrentDb
            sSQL = "UPDATE tbl2Allows SET [AllowOpen] = 0,[AllowDelete] = 0,[AllowAdd] = 0 ,[AllowEdit] = 0 WHERE [UserCode]=" & ID
            db.Execute sSQL
    End If
    frmSubAllows.Requery

End Sub

48 دقائق مضت, Eng.Qassim said:
بالاضافة لما ذكره استاذي @د.كاف يار نستطيع حذف الجداول بجمل السكوال
Docmd.runSQL "DELETE * from Table1"
DoEvents
Docmd.runSQL "DELETE * from Table2"
DoEvents
Docmd.runSQL "DELETE * from Table3"
DoEvents
Docmd.runSQL "DELETE * from Table4"
DoEvents

كيف اطبقها

انا اريد ان يحذف البيانات من داخل جميع الجداول ما عدا بعض الجداول المعينه لا يقرب لها

**د.كاف يار** · أغسطس 18, 2021

2 دقائق مضت, عمر ضاحى said:

هذا الكود حذف لى النماذج

هذا نفسه الخاص بك كل ما في الأمر وضعت شرط لا اكثر

كذلك هذا لا يحذف نموذج اقرأ الكود فهو حلقة تكرارية للجداول و ليس للنماذج

**Eng.Qassim** · أغسطس 18, 2021

2 hours ago, عمر ضاحى said:

3-اسم النموذج : frmSalaryHistory

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

14 minutes ago, عمر ضاحى said:
هذا الكود حذف لى النماذج

وترك الجداول

انا اريد ان احذف البيانات التى فى الجداول ما عدى جدول مثلا AAA1 و AAA2 و AAA3

هذا ما ارته

الف شكر لحضرتك

ولى اضافه

اذا ارت ان اجعل مفتاح واحد يعدل على الكل

فجربت الكود بهذه الصيغه لكن لم تعمل

ما الخطأ
Private Sub AllowAll_Click()
On Error Resume Next
Dim db          As DAO.Database
Dim sSQL        As String
    If (AllowEdit Or AllowOpen Or AllowDelete Or AllowAdd) = -1 Then
        Set db = CurrentDb
            sSQL = "UPDATE tbl2Allows SET [AllowOpen] = -1,[AllowDelete] = -1,[AllowAdd] = -1,[AllowEdit] = -1 WHERE [UserCode]=" & ID
            db.Execute sSQL
    Else
        Set db = CurrentDb
            sSQL = "UPDATE tbl2Allows SET [AllowOpen] = 0,[AllowDelete] = 0,[AllowAdd] = 0 ,[AllowEdit] = 0 WHERE [UserCode]=" & ID
            db.Execute sSQL
    End If
    frmSubAllows.Requery

End Sub
كيف اطبقها

انا اريد ان يحذف البيانات من داخل جميع الجداول ما عدا بعض الجداول المعينه لا يقرب لها

انت من يحدد الجداول التي تريد حذف سجلاتها

**د.كاف يار** · أغسطس 18, 2021

3 ساعات مضت, عمر ضاحى said:

3-اسم النموذج : frmSalaryHistory

تفضل هذا التعديل ارجوا ان يفي بالغرض

T2t2.accdb

**عمر ضاحى** · أغسطس 18, 2021

1 ساعه مضت, د.كاف يار said:

هذا نفسه الخاص بك كل ما في الأمر وضعت شرط لا اكثر

كذلك هذا لا يحذف نموذج اقرأ الكود فهو حلقة تكرارية للجداول و ليس للنماذج

لكن هذا ما حدث معي لا اعرف كيف

الجداول موجوده والبيانات بها

اما النماذج غير موجوده

**عمر ضاحى** · أغسطس 18, 2021

1 ساعه مضت, د.كاف يار said:

تفضل هذا التعديل ارجوا ان يفي بالغرض

T2t2.accdb 764 kB · 1 download

بص

اولا الله يبارك فيك ويكرمك ويوسع عليك

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

لان ده فعلا ال انا عاوزه

يعنى لو امكن تشرحلى الفكره كلها عملتها ازاى تكسب فينا كلنا ثواب

لان انا متلغبط فيها وعاوز افهمها كويس

3 ساعات مضت, د.كاف يار said:

هذا التعديل الاول استبدل الكود بالتالي و لا تنسى اضافة اسماء الجداول في الاستثناء

If Me.txtPassWord = "123" Then
Dim Msg As String
Msg = MsgBox("كلمة المرور صحيحه" & vbNewLine & "" & vbNewLine & " هل تريد بالتأكيدحذف جميع البيانات ؟", vbYesNo, "انتبه")

    If Msg = vbYes Then
MsgBox "جارى حذف جميع البيانات الان", vbInformation, "اعلام"
On Error GoTo Error_TruncateTables

Dim db As DAO.Database
Dim TDF As DAO.TableDef
Dim strSQL_DELETE As String

Set db = CurrentDb()

    For Each TDF In db.TableDefs
        If Left(TDF.Name, 4) <> "MSys" Then
            If TDF.Name <> "اسم الجدول الأول" Or TDF.Name <> "اسم الجدول الثاني" Then
                strSQL_DELETE = "DELETE FROM " & TDF.Name & ";"
                db.Execute strSQL_DELETE
            End If
        End If
    Next
MsgBox "تم حذف جميع البيانات فى الجداول", vbCritical, "تنبيه"
db.Close

Exit_Error_TruncateTables:
    Set TDF = Nothing
    Set db = Nothing
    Exit Sub

Error_TruncateTables:
    Select Case Err.Number
        Case 3376
            Resume Next
         Case 3270
            Resume Next
        Case Else
            MsgBox Err.Number & ": " & Err.Description
            Resume Exit_Error_TruncateTables
    End Select

Else
MsgBox "لن يتم اجراء حذف البيانات من قاعدة البيانات", vbInformation, "اعلام"
End If
Else
MsgBox "كلمة المرور خطأ", vbInformation, "تنبيه"
End If
End Sub

هل هكذا التطبيق يكون صحيح ؟

If Me.txtPassWord = "123" Then
Dim Msg As String
Msg = MsgBox("كلمة المرور صحيحه" & vbNewLine & "" & vbNewLine & " هل تريد بالتأكيدحذف جميع البيانات ؟", vbYesNo, "انتبه")

    If Msg = vbYes Then
MsgBox "جارى حذف جميع البيانات الان", vbInformation, "اعلام"
On Error GoTo Error_TruncateTables

Dim db As DAO.Database
Dim TDF As DAO.TableDef
Dim strSQL_DELETE As String

Set db = CurrentDb()

    For Each TDF In db.TableDefs
        If Left(TDF.Name, 4) <> "MSys" Then
            If TDF.Name <> "tbl1ACC" Or TDF.Name <> "tbl2Allows" Or TDF.Name <> "tbl3FormList" Then
                strSQL_DELETE = "DELETE FROM " & TDF.Name & ";"
                db.Execute strSQL_DELETE
            End If
        End If
    Next
MsgBox "تم حذف جميع البيانات فى الجداول", vbCritical, "تنبيه"
db.Close

Exit_Error_TruncateTables:
    Set TDF = Nothing
    Set db = Nothing
    Exit Sub

Error_TruncateTables:
    Select Case Err.Number
        Case 3376
            Resume Next
         Case 3270
            Resume Next
        Case Else
            MsgBox Err.Number & ": " & Err.Description
            Resume Exit_Error_TruncateTables
    End Select

Else
MsgBox "لن يتم اجراء حذف البيانات من قاعدة البيانات", vbInformation, "اعلام"
End If
Else
MsgBox "كلمة المرور خطأ", vbInformation, "تنبيه"
End If

لان دلوقتى مش بيستثنى اى جداول وبيحذف الكل زي مكان فى الاول

تم تعديل أغسطس 18, 2021 بواسطه عمر ضاحى

**د.كاف يار** · أغسطس 18, 2021

تفضل هذا التعديل شامل لكل ما طلبت

سوف تتمكن من اختيار الجداول التي ترغب في افراغ البيانات منها

الرقم السري داخل الكود لإفراغ البيانات 123

T2t2.accdb

**عمر ضاحى** · أغسطس 18, 2021

16 دقائق مضت, د.كاف يار said:

تفضل هذا التعديل شامل لكل ما طلبت

سوف تتمكن من اختيار الجداول التي ترغب في افراغ البيانات منها

الرقم السري داخل الكود لإفراغ البيانات 123

T2t2.accdb 868 kB · 1 download

الف الف شكر

وجزاك الله كل خير

**عمر ضاحى** · أغسطس 18, 2021

25 دقائق مضت, د.كاف يار said:

تفضل هذا التعديل شامل لكل ما طلبت

سوف تتمكن من اختيار الجداول التي ترغب في افراغ البيانات منها

الرقم السري داخل الكود لإفراغ البيانات 123

T2t2.accdb 868 kB · 3 downloads

هل لى بطلب اضافى فى نقطة تفريغ الجداول

ما شاء الله عمل عظيم جدا

وكنت حابب ان امنع بعض الجداول من الظهور

او ان يحفظ الاعدادات للجداول التى لن يفرغها

اى يكون التلقائى حذف الجميع

لكن اذا استثنيت جدول يحفظ هذه الجدول ضمن القائمة البيضاء ولا يقرب لها فى الحذف

**abouelhassan** · أغسطس 18, 2021

3 ساعات مضت, د.كاف يار said:

تفضل هذا التعديل شامل لكل ما طلبت

سوف تتمكن من اختيار الجداول التي ترغب في افراغ البيانات منها

الرقم السري داخل الكود لإفراغ البيانات 123

T2t2.accdb 868 kB · 5 downloads

روعة شكر وتقدير واحترام من اخيك استاذنا

**د.كاف يار** · أغسطس 19, 2021

12 ساعات مضت, عمر ضاحى said:

هل لى بطلب اضافى فى نقطة تفريغ الجداول

ما شاء الله عمل عظيم جدا

وكنت حابب ان امنع بعض الجداول من الظهور

او ان يحفظ الاعدادات للجداول التى لن يفرغها

اى يكون التلقائى حذف الجميع

لكن اذا استثنيت جدول يحفظ هذه الجدول ضمن القائمة البيضاء ولا يقرب لها فى الحذف

استخدم هذا المكود و لا تنسى اضافة اسماء الجداول في المتغيير

On Error Resume Next
If MsgBox("هل تريد افراغ الجداول المحدد ؟", vbExclamation + vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then
    If InputBox("ادخل كلمة المرور لتأكد الحذف", "تأكيد افراغ الجداول") = "123" Then
        Dim db                  As DAO.Database
        Dim tdf                 As DAO.TableDef
        Dim NonTB1              As String
            
            NonTB1 = "table_name1"
            NonTB1 = (NonTB1 + ",") & "table_name2"
            NonTB1 = (NonTB1 + ",") & "table_name3"
                
                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
                    If tdf.Name <> Split(NonTB1, ",")(0) And tdf.Name <> Split(NonTB1, ",")(1) And tdf.Name <> Split(NonTB1, ",")(2) Then
                        sSQL = "DELETE FROM " & tdf.Name
                        db.Execute sSQL
                    End If
                End If
            Next
            MsgBox "تم افراغ الجداول المحددة بنجاح", vbMsgBoxRight + vbInformation, "تأكيد"
    End If
End If

**عمر ضاحى** · أغسطس 19, 2021

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

اشكرك الف شكر

ويعطيك العافيه ويجازيك عنا كل خير

2 ساعات مضت, د.كاف يار said:

استخدم هذا المكود و لا تنسى اضافة اسماء الجداول في المتغيير

On Error Resume Next
If MsgBox("هل تريد افراغ الجداول المحدد ؟", vbExclamation + vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then
    If InputBox("ادخل كلمة المرور لتأكد الحذف", "تأكيد افراغ الجداول") = "123" Then
        Dim db                  As DAO.Database
        Dim tdf                 As DAO.TableDef
        Dim NonTB1              As String
            
            NonTB1 = "table_name1"
            NonTB1 = (NonTB1 + ",") & "table_name2"
            NonTB1 = (NonTB1 + ",") & "table_name3"
                
                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
                    If tdf.Name <> Split(NonTB1, ",")(0) And tdf.Name <> Split(NonTB1, ",")(1) And tdf.Name <> Split(NonTB1, ",")(2) Then
                        sSQL = "DELETE FROM " & tdf.Name
                        db.Execute sSQL
                    End If
                End If
            Next
            MsgBox "تم افراغ الجداول المحددة بنجاح", vbMsgBoxRight + vbInformation, "تأكيد"
    End If
End If

**Eng.Qassim** · أغسطس 19, 2021

21 hours ago, د.كاف يار said:

تفضل هذا التعديل شامل لكل ما طلبت

سوف تتمكن من اختيار الجداول التي ترغب في افراغ البيانات منها

الرقم السري داخل الكود لإفراغ البيانات 123

T2t2.accdb 868 kB · 8 downloads

بالحقيقة عندما ارى هكذا روائع ..يبدوا لي اني كالعصفور امام الصقور الحرة (الشاهين

You are awesome Dr.

**عمر ضاحى** · أغسطس 19, 2021

11 ساعات مضت, د.كاف يار said:

استخدم هذا المكود و لا تنسى اضافة اسماء الجداول في المتغيير

On Error Resume Next
If MsgBox("هل تريد افراغ الجداول المحدد ؟", vbExclamation + vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then
    If InputBox("ادخل كلمة المرور لتأكد الحذف", "تأكيد افراغ الجداول") = "123" Then
        Dim db                  As DAO.Database
        Dim tdf                 As DAO.TableDef
        Dim NonTB1              As String
            
            NonTB1 = "table_name1"
            NonTB1 = (NonTB1 + ",") & "table_name2"
            NonTB1 = (NonTB1 + ",") & "table_name3"
                
                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
                    If tdf.Name <> Split(NonTB1, ",")(0) And tdf.Name <> Split(NonTB1, ",")(1) And tdf.Name <> Split(NonTB1, ",")(2) Then
                        sSQL = "DELETE FROM " & tdf.Name
                        db.Execute sSQL
                    End If
                End If
            Next
            MsgBox "تم افراغ الجداول المحددة بنجاح", vbMsgBoxRight + vbInformation, "تأكيد"
    End If
End If

والله مهما شكرت حضرتك لا اكفيك قدرك

فقدرك عظيم عندنا

وربنا يبارك فيك

الكود يعمل جيد جدا بل ممتاز واكثر

بارك الله فيك

نفسي اكون مثلك فى علمك

**Eng.Qassim** · أغسطس 19, 2021

6 minutes ago, عمر ضاحى said:

والله مهما شكرت حضرتك لا اكفيك قدرك

فقدرك عظيم عندنا

وربنا يبارك فيك

الكود يعمل جيد جدا بل ممتاز واكثر

بارك الله فيك

نفسي اكون مثلك فى علمك

مصر ام الدنيا في الثقافة والعلم .. فاول مكتبة عملاقة في التاريخ هي مكتبة الاسكندرية

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

فليس عيبا ان تسال .. لكن العيب ان يبقى الانسان جاهلا (حاشاك طبعا)

بالتوفيق يارب

**عمر ضاحى** · أغسطس 19, 2021

1 ساعه مضت, Eng.Qassim said:

مصر ام الدنيا في الثقافة والعلم .. فاول مكتبة عملاقة في التاريخ هي مكتبة الاسكندرية

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

فليس عيبا ان تسال .. لكن العيب ان يبقى الانسان جاهلا (حاشاك طبعا)

بالتوفيق يارب

والله يا هندسه حضرتك ايضا دائما الاحظك ان اجدك اول الرادين على استفساراتى لذا لك شكرا وعرفاني لك لجميلك ويحفظك الله من كل شر ولا يريك فى عزيز مكروه

وبالنسبه لاشارتك

هذا فعلا ما احاول ان اتعلمه بارك الله فيك وفى امثالك

ان ادرس كل كود

لكن بالنسبه لى هذا مبهر لسبب تركيبة الكود على بعض

الابداع اعشقه

😍

أبو امين · مايو 13, 2022

في 18‏/8‏/2021 at 21:42, د.كاف يار said:

تفضل هذا التعديل شامل لكل ما طلبت

سوف تتمكن من اختيار الجداول التي ترغب في افراغ البيانات منها

الرقم السري داخل الكود لإفراغ البيانات 123

T2t2.accdb 868 kB · 15 downloads

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

تسجيل الدخول

طلب حذف بيانات الجداول _ معدل

الردود الموصى بها

عمر ضاحى

د.كاف يار

د.كاف يار

Eng.Qassim

عمر ضاحى

د.كاف يار

Eng.Qassim

د.كاف يار

عمر ضاحى

عمر ضاحى

د.كاف يار

عمر ضاحى

عمر ضاحى

abouelhassan

د.كاف يار

عمر ضاحى

Eng.Qassim

عمر ضاحى

Eng.Qassim

عمر ضاحى

أبو امين

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information