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

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

السلام عليكم

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

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

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

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

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

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

وهو يعمل جيدا

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

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

فقط هذا

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

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

اريد شئين

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

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

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

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

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

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

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

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

T2t2.accdbFetching info...

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

في 18‏/8‏/2021 at 14:29, عمر ضاحى said:

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

Expand

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

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

في 18‏/8‏/2021 at 14:29, عمر ضاحى said:

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

Expand

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

T2t2.accdbFetching info...

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

في 18‏/8‏/2021 at 14:29, عمر ضاحى said:

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

Expand

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

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

في 18‏/8‏/2021 at 15:35, د.كاف يار 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

Expand

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

وترك الجداول

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

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

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

T2t2.accdb 692 kB · 0 downloads

Expand

هذا ما ارته

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

ولى اضافه

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

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

ما الخطأ

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‏/8‏/2021 at 15:55, 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
Expand

كيف اطبقها

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

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

في 18‏/8‏/2021 at 16:44, عمر ضاحى said:

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

Expand

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

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

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

في 18‏/8‏/2021 at 14:29, عمر ضاحى said:

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

Expand

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

في 18‏/8‏/2021 at 16:44, عمر ضاحى 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
كيف اطبقها

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

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

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

في 18‏/8‏/2021 at 14:29, عمر ضاحى said:

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

Expand

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

T2t2.accdbFetching info...

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

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

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

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

Expand

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

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

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

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

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

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

T2t2.accdb 764 kB · 1 download

Expand

بص

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

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

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

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

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

في 18‏/8‏/2021 at 15:35, د.كاف يار 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

Expand

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

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.accdbFetching info...

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

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

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

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

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

T2t2.accdb 868 kB · 1 download

Expand

الف الف شكر

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

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

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

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

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

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

T2t2.accdb 868 kB · 3 downloads

Expand

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

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

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

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

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

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

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

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

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

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

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

T2t2.accdb 868 kB · 5 downloads

Expand

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

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

في 18‏/8‏/2021 at 20:10, عمر ضاحى said:

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

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

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

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

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

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

Expand

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

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

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

اشكرك الف شكر

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

في 19‏/8‏/2021 at 08:31, د.كاف يار 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

Expand

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

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

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

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

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

T2t2.accdb 868 kB · 8 downloads

Expand

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

You are awesome Dr.

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

في 19‏/8‏/2021 at 08:31, د.كاف يار 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

Expand

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

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

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

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

بارك الله فيك

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

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

في 19‏/8‏/2021 at 19:55, عمر ضاحى said:

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

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

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

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

بارك الله فيك

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

Expand

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

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

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

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

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

في 19‏/8‏/2021 at 20:07, Eng.Qassim said:

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

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

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

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

Expand

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

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

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

ان ادرس كل كود

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

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

😍

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

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

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

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

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

T2t2.accdb 868 kB · 15 downloads

Expand

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

تسجيل الدخول

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

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

عمر ضاحى

د.كاف يار

د.كاف يار

Eng.Qassim

عمر ضاحى

د.كاف يار

Eng.Qassim

د.كاف يار

عمر ضاحى

عمر ضاحى

د.كاف يار

عمر ضاحى

عمر ضاحى

abouelhassan

د.كاف يار

عمر ضاحى

Eng.Qassim

عمر ضاحى

Eng.Qassim

عمر ضاحى

أبو امين

Join the conversation

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

تصفح الموقع

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

Support

Important Information