bumb قام بنشر أغسطس 12, 2021 مشاركة قام بنشر أغسطس 12, 2021 (معدل) السلام عليكم الكود التالي يقوم بتنظيف التكست بوكس كيف احوله الى subroutine او Function ؟ Dim ctrl As Control For Each ctrl In Me.Controls If TypeOf ctrl Is TextBox Then ctrl = Null End If Next ctrl تحياتي لكم تم تعديل أغسطس 12, 2021 بواسطه bumb رابط هذا التعليق شارك More sharing options...
أفضل إجابة Eng.Qassim قام بنشر أغسطس 12, 2021 أفضل إجابة مشاركة قام بنشر أغسطس 12, 2021 19 minutes ago, bumb said: السلام عليكم الكود التالي يقوم بتنظيف التكست بوكس كيف احوله الى subroutine او Function ؟ Dim ctrl As Control For Each ctrl In Me.Controls If TypeOf ctrl Is TextBox Then ctrl = Null End If Next ctrl تحياتي لكم اعملها مع تحميل النموذج On load Form رابط هذا التعليق شارك More sharing options...
bumb قام بنشر أغسطس 12, 2021 الكاتب مشاركة قام بنشر أغسطس 12, 2021 27 دقائق مضت, Eng.Qassim said: اعملها مع تحميل النموذج On load Form الداله او الفنكشن رح استخدمها في تنظيف الكنترولز بعد الإضافة ما تنفع في تحميل النموذج رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 12, 2021 مشاركة قام بنشر أغسطس 12, 2021 27 minutes ago, bumb said: الداله او الفنكشن رح استخدمها في تنظيف الكنترولز بعد الإضافة ما تنفع في تحميل النموذج اعمل زر خاص لها للتنظيف رابط هذا التعليق شارك More sharing options...
bumb قام بنشر أغسطس 12, 2021 الكاتب مشاركة قام بنشر أغسطس 12, 2021 2 دقائق مضت, Eng.Qassim said: اعمل زر خاص لها للتنظيف رح استخدمها في كذا فورم ما ابغا اكرر الكود رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر أغسطس 12, 2021 مشاركة قام بنشر أغسطس 12, 2021 السلام عليكم مشاركه مع المهندس @Eng.Qassim Function gocleared(frm As Form) Dim ctrl As Control For Each ctrl In frm.Controls If TypeOf ctrl Is TextBox Then ctrl = Null End If Next ctrl End Function واستدعها تحت الزر Call gocleared(Me) بالتوفيق رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 12, 2021 مشاركة قام بنشر أغسطس 12, 2021 3 minutes ago, احمد الفلاحجي said: السلام عليكم مشاركه مع المهندس @Eng.Qassim Function gocleared(frm As Form) Dim ctrl As Control For Each ctrl In frm.Controls If TypeOf ctrl Is TextBox Then ctrl = Null End If Next ctrl End Function واستدعها تحت الزر Call gocleared(Me) بالتوفيق احسنت اخي ..لكن لايحتاج الى استدعاء ان كان لديه نموذج واحد اما ان كان لديه عدة نماذج ويريد تنظيفها فيحتاج الى فنكشن واستدعاء رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر أغسطس 12, 2021 مشاركة قام بنشر أغسطس 12, 2021 الان, Eng.Qassim said: احسنت اخي ..لكن لايحتاج الى استدعاء ان كان لديه نموذج واحد احسن الله اليك هذا رد السائل قبل ردى الان, bumb said: رح استخدمها في كذا فورم ما ابغا اكرر الكود بالتوفيق رابط هذا التعليق شارك More sharing options...
bumb قام بنشر أغسطس 12, 2021 الكاتب مشاركة قام بنشر أغسطس 12, 2021 39 دقائق مضت, احمد الفلاحجي said: السلام عليكم مشاركه مع المهندس @Eng.Qassim Function gocleared(frm As Form) Dim ctrl As Control For Each ctrl In frm.Controls If TypeOf ctrl Is TextBox Then ctrl = Null End If Next ctrl End Function واستدعها تحت الزر Call gocleared(Me) بالتوفيق رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر أغسطس 12, 2021 مشاركة قام بنشر أغسطس 12, 2021 اخى الفاضل @bumb هل ممكن ارفاق النموذج الذى ظهرت به الرساله بدل من الصور بالتوفيق رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 12, 2021 مشاركة قام بنشر أغسطس 12, 2021 (معدل) @bumbاعتقد سببه انه لديك مربع نص منظم تم تعديل أغسطس 12, 2021 بواسطه Eng.Qassim رابط هذا التعليق شارك More sharing options...
SEMO.Pa3x قام بنشر أغسطس 12, 2021 مشاركة قام بنشر أغسطس 12, 2021 1 ساعه مضت, bumb said: السبب: لديك TextBox مكتوب فيه قيمة معينة مثلا.. Forms!frm_home!Age يجب تفريغ جميع مربعات النص، وادراج القيم برمجياً 1 رابط هذا التعليق شارك More sharing options...
bumb قام بنشر أغسطس 13, 2021 الكاتب مشاركة قام بنشر أغسطس 13, 2021 (معدل) فعلا طلع السبب التكست بوكس المنضم تم تعديل أغسطس 13, 2021 بواسطه bumb رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 13, 2021 مشاركة قام بنشر أغسطس 13, 2021 2 hours ago, bumb said: في المرفق نموذجين احد النموذجين وهو نموذج frmAddUser كود تنظيف التكست بوكس لم يحدد بشرط وهو يعمل بشكل جيد بينما النموذج frmAddPerson والذي فيه المشكلة فكود التنظيف محدد بشرط Database.accdb 1000 kB · 1 download في النموذج لديك مربع نص مرتبط وفي تلك الحالة لن يعمل الكود فأما ان يتم تفريغ مربعات النص من داخل زر الحفظ واما تغيير مربع نص (مسلسل المعرف) الى كومبو بوكس لكن في هذه الحالة لن يظهر لك رقم المعرف وانت لاتحتاجه فهو رقم تلقائي ويمكن اخفاءه DatabaseB.accdb 1 رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر أغسطس 13, 2021 مشاركة قام بنشر أغسطس 13, 2021 (معدل) 14 ساعات مضت, bumb said: السلام عليكم الكود التالي يقوم بتنظيف التكست بوكس كيف احوله الى subroutine او Function ؟ Dim ctrl As Control For Each ctrl In Me.Controls If TypeOf ctrl Is TextBox Then ctrl = Null End If Next ctrl تحياتي لكم لا يمكن استخدام الكود بهذه الكيفية تفضل الكود بعد التعديل و انصحك بأن تتعلم قراءة الكود لكي تكون على كلم بكل شفرة تستخدمها Sub ClenAllTextBox() Dim ctrl As Control For Each ctrl In Me.Controls If TypeOf ctrl Is TextBox Then Me.Form.Controls(ctrl.Name) = Null End If Next ctrl End Sub و في ازرار الحفظ و في أخر أمر للحفظ استعدي الوظيفة Call ClenAllTextBox تم تعديل أغسطس 13, 2021 بواسطه د.كاف يار 2 رابط هذا التعليق شارك More sharing options...
bumb قام بنشر أغسطس 13, 2021 الكاتب مشاركة قام بنشر أغسطس 13, 2021 2 ساعات مضت, د.كاف يار said: لا يمكن استخدام الكود بهذه الكيفية تفضل الكود بعد التعديل و انصحك بأن تتعلم قراءة الكود لكي تكون على كلم بكل شفرة تستخدمها Sub ClenAllTextBox() Dim ctrl As Control For Each ctrl In Me.Controls If TypeOf ctrl Is TextBox Then Me.Form.Controls(ctrl.Name) = Null End If Next ctrl End Sub و في ازرار الحفظ و في أخر أمر للحفظ استعدي الوظيفة Call ClenAllTextBox لا يمكن استخدامه بهذه الطريقة لأن كلمة Me سينتج بسببها خطأ رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر أغسطس 13, 2021 مشاركة قام بنشر أغسطس 13, 2021 25 دقائق مضت, bumb said: لا يمكن استخدامه بهذه الطريقة لأن كلمة Me سينتج بسببها خطأ غير صحيح لأنها منطقية لكن التجربة خير برهان جرب و فالك التوفيق و اذا كانت ماهي عاجبتك الغيها و كذلك راح يعمل معك الكود رابط هذا التعليق شارك More sharing options...
طلب اكسس قام بنشر أغسطس 13, 2021 مشاركة قام بنشر أغسطس 13, 2021 33 دقائق مضت, bumb said: لا يمكن استخدامه بهذه الطريقة لأن كلمة Me سينتج بسببها خطأ الكود يعمل و بتجربة رائعة و مريحة عيني بس فيه مشكلة انه ما يمسح الكمبو بكس اخي اذ مافيها كلافه عليكي فدوى لروحك تعدل الكود لجل يقبل الكمبو للضرورة لأنه بحثت عنه كثير و انت انقذتني رابط هذا التعليق شارك More sharing options...
bumb قام بنشر أغسطس 13, 2021 الكاتب مشاركة قام بنشر أغسطس 13, 2021 18 دقائق مضت, د.كاف يار said: غير صحيح لأنها منطقية لكن التجربة خير برهان جرب و فالك التوفيق و اذا كانت ماهي عاجبتك الغيها و كذلك راح يعمل معك الكود جربتها وفعلا نتج خطأ بسبب Me رابط هذا التعليق شارك More sharing options...
طلب اكسس قام بنشر أغسطس 13, 2021 مشاركة قام بنشر أغسطس 13, 2021 13 دقائق مضت, bumb said: جربتها وفعلا نتج خطأ بسبب Me غريبة عيني ماكو اي خطأ رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر أغسطس 13, 2021 مشاركة قام بنشر أغسطس 13, 2021 طيب اتفضل هذا التعديل في البداية انشى Module جديد و الصق فيه التالي Option Explicit Public Function ClenAllTextBox(FormName As String) As String Dim ctrl As Control For Each ctrl In Forms(FormName).Controls If TypeOf ctrl Is TextBox Then Forms(FormName).Controls(ctrl.Name) = Null End If Next ctrl End Function الاستدعاء في اي نموذج لديك Call ClenAllTextBox(Form.Name) 2 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 13, 2021 مشاركة قام بنشر أغسطس 13, 2021 1 hour ago, طلب اكسس said: الكود يعمل و بتجربة رائعة و مريحة عيني بس فيه مشكلة انه ما يمسح الكمبو بكس اخي اذ مافيها كلافه عليكي فدوى لروحك تعدل الكود لجل يقبل الكمبو للضرورة لأنه بحثت عنه كثير و انت انقذتني هل قصدك بدون كمبو بوكس.. يبقى نموذج صاحب المشاركة على حاله؟ شوف المرفقDatabaseB.accdb 2 hours ago, طلب اكسس said: الكود يعمل و بتجربة رائعة و مريحة عيني بس فيه مشكلة انه ما يمسح الكمبو بكس اخي اذ مافيها كلافه عليكي فدوى لروحك تعدل الكود لجل يقبل الكمبو للضرورة لأنه بحثت عنه كثير و انت انقذتني الكود يفبل الكمبوبوكس لكنه يمسح مابداخل التيكست بوك رابط هذا التعليق شارك More sharing options...
طلب اكسس قام بنشر أغسطس 13, 2021 مشاركة قام بنشر أغسطس 13, 2021 6 دقائق مضت, Eng.Qassim said: هل قصدك بدون كمبو بوكس.. يبقى نموذج صاحب المشاركة على حاله؟ شوف المرفقDatabaseB.accdb الكود يفبل الكمبوبوكس لكنه يمسح مابداخل التيكست بوك سعادة المهندس اقصد ان هذا يمسح فقط مربع النص لكن ما يمسح مربع التحرير و السرد يعني لو رايد امسح كل شي ما يقبل غير مربع نص رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 13, 2021 مشاركة قام بنشر أغسطس 13, 2021 7 minutes ago, Eng.Qassim said: هل قصدك بدون كمبو بوكس.. يبقى نموذج صاحب المشاركة على حاله؟ شوف المرفقDatabaseB.accdb الكود يفبل الكمبوبوكس لكنه يمسح مابداخل التيكست بوك DatabaseB.rar رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر أغسطس 13, 2021 مشاركة قام بنشر أغسطس 13, 2021 (معدل) 14 minutes ago, طلب اكسس said: سعادة المهندس اقصد ان هذا يمسح فقط مربع النص لكن ما يمسح مربع التحرير و السرد يعني لو رايد امسح كل شي ما يقبل غير مربع نص اذا كنت تريد مسح الاثنين .. يعني الكمبو والتيكست استخدم الكود التالي Public Sub ClearControls(frm As Form) On Error Resume next Dim objControl as Control For Each objControl in Me.Controls With objControl if .ControlType = acComboBox or acTextbox then .Value = Null end if End With Next objControl End Sub تم تعديل أغسطس 13, 2021 بواسطه Eng.Qassim 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان