اذهب الي المحتوي
أوفيسنا

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

عمر ضاحى

بواسطه عمر ضاحى
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by د.كاف يار,

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

عمر ضاحى

عمر ضاحى

قام بنشر
قام بنشر

السلام عليكم 

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

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

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

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

 

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

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

وهو يعمل جيدا 

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

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

فقط هذا

 

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

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

اريد شئين 

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

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

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

 

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

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

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

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

 

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

T2t2.accdb

رابط هذا التعليق
شارك
د.كاف يار

د.كاف يار

قام بنشر
قام بنشر
منذ ساعه, عمر ضاحى 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

 

  • Like 2
رابط هذا التعليق
شارك
Eng.Qassim

Eng.Qassim

قام بنشر
قام بنشر
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

 

  • Like 1
رابط هذا التعليق
شارك
عمر ضاحى

عمر ضاحى

قام بنشر
  • الكاتب
قام بنشر
منذ ساعه, د.كاف يار 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

 

كيف اطبقها 

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

رابط هذا التعليق
شارك
د.كاف يار

د.كاف يار

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

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

 

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

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

رابط هذا التعليق
شارك
Eng.Qassim

Eng.Qassim

قام بنشر
قام بنشر
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

 

كيف اطبقها 

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

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

رابط هذا التعليق
شارك
عمر ضاحى

عمر ضاحى

قام بنشر
  • الكاتب
قام بنشر
1 ساعه مضت, د.كاف يار said:

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

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

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

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

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

رابط هذا التعليق
شارك
عمر ضاحى

عمر ضاحى

قام بنشر
  • الكاتب
قام بنشر (معدل)
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

 

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

تم تعديل بواسطه عمر ضاحى
رابط هذا التعليق
شارك
  • أفضل إجابة
د.كاف يار

د.كاف يار

قام بنشر
  • أفضل إجابة
قام بنشر

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

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

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

T2t2.accdb

  • Like 3
  • Thanks 2
رابط هذا التعليق
شارك
عمر ضاحى

عمر ضاحى

قام بنشر
  • الكاتب
قام بنشر
16 دقائق مضت, د.كاف يار said:

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

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

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

T2t2.accdb 868 kB · 1 download

الف الف شكر 

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

 

رابط هذا التعليق
شارك
عمر ضاحى

عمر ضاحى

قام بنشر
  • الكاتب
قام بنشر
25 دقائق مضت, د.كاف يار said:

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

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

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

T2t2.accdb 868 kB · 3 downloads

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

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

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

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

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

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

رابط هذا التعليق
شارك
abouelhassan

abouelhassan

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

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

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

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

T2t2.accdb 868 kB · 5 downloads

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

رابط هذا التعليق
شارك
د.كاف يار

د.كاف يار

قام بنشر
قام بنشر
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

 

  • Like 2
رابط هذا التعليق
شارك
عمر ضاحى

عمر ضاحى

قام بنشر
  • الكاتب
قام بنشر

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

اشكرك الف شكر 

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

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

Eng.Qassim

قام بنشر
قام بنشر
21 hours ago, د.كاف يار said:

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

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

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

T2t2.accdb 868 kB · 8 downloads

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

You are awesome Dr.

  • Like 2
رابط هذا التعليق
شارك
عمر ضاحى

عمر ضاحى

قام بنشر
  • الكاتب
قام بنشر
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

Eng.Qassim

قام بنشر
قام بنشر
6 minutes ago, عمر ضاحى said:

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

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

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

 

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

بارك الله فيك

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

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

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

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

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

  • Thanks 1
رابط هذا التعليق
شارك
عمر ضاحى

عمر ضاحى

قام بنشر
  • الكاتب
قام بنشر
1 ساعه مضت, Eng.Qassim said:

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

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

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

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

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

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

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

ان ادرس كل كود 

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

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

😍

رابط هذا التعليق
شارك
  • 8 months later...
أبو امين

أبو امين

قام بنشر
قام بنشر
في 18‏/8‏/2021 at 21:42, د.كاف يار said:

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

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

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

T2t2.accdb 868 kB · 15 downloads

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept