كود تفريغ البيانات

[Ahmed_J]

السلام عليكم

لدي نموذج غير مرتبط  لاجراء عملية حسابية فيه 

المطلوب : كود لتفريغ البيانات من النموذج  من خلال زر

وشكرا

جمع الخدمة بالنموذج.accdb

تم تعديل سبتمبر 20, 2021 بواسطه Ahmed_J

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

            Dim ctl As Control
            For Each ctl In Me.Controls
                If ctl.ControlType = acTextBox Then
                    ctl.Value = Null
                End If
            Next ctl

تحياتي

[Ahmed_J]

السلام عليكم استاذ @محمد أبوعبدالله

تسلم ايدك

هل ممكن وضع رسالة اذا كانت الحقول فارغة اصلا تحت الكود

تحياتي لك استاذ

1 ساعه مضت, محمد أبوعبدالله said:

Dim ctl As Control
            For Each ctl In Me.Controls
                If ctl.ControlType = acTextBox Then
                    ctl.Value = Null
                End If
            Next ctl

 

[Ahmed_J]

up

[Eng.Qassim]

ببساطة ضع في اخر الكود السابق عبارة

           

MsgBox "الحقول فارغة "

 

[Ahmed_J]

شكرا لك

Dim ctl As Control
            For Each ctl In Me.Controls
                If ctl.ControlType = acTextBox Then
                    ctl.Value = Null
                End If
            Next ctl

قصدي اذا كانت الحقول بها بيانات  عند الضغط على زر تقريغ البيانات يتم تقريغها واظهار رسالة (تم تفريغ الحقول)

اما اذا كانت الحقول اصلا فارغة وتم الضغط على زر تقريغ البيانات تظهر رسالة (الحقول فارغة)

تحياتي للجميع

تم تعديل سبتمبر 24, 2021 بواسطه Ahmed_J

[محمد أبوعبدالله]

تفضل اخي الكريم

            Dim ctl As Control
            Dim i As Integer

                For Each ctl In Me.Controls
                    If ctl.ControlType = acTextBox Then
                        i = i + Len(ctl & vbNullString)
                        ctl.Value = Null
                    End If
                Next ctl
                If i = 0 Then
                    MsgBox "الحقول فارغة"
                Else
                    MsgBox "تم تفريغ الحقول"
                End If

تجياتي