[ تمت الإجابة ]ارجو المساعدة في التحكم بخصائص عنصر

بســم الله الـرحمــن الرحيــم

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

اقتباس

انتظر مشاركتكم

وشكرا

ستجد الحل هنا غدا بمشيئة الله

بســم الله الـرحمــن الرحيــم

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

تفضل أخي الكريم هذا المثال يجمع لك كل قيم مربعات النصوص

على الفورم بحلقة تكرار لو كانت 1000 - أنظر الصورة

وهذا هو كود الاجراء ( كود قصير نوعا ما )

Public Sub EkCtrControl(frm As Form)
'Coding By Ekseer Arabteam200 Access
  On Error Resume Next
	Dim EkCtr As Control
	Dim Total As Integer, TNo As Integer
	If TNo > 0 Then GoTo e
	For Each EkCtr In frm
	If TypeOf EkCtr Is TextBox Then EkCtr.Value
	Total = Total + EkCtr.Value
	   Next EkCtr
	   MsgBox Total & "" & " : المجموع"
	   TNo = Total
	  Me.k.Caption = Total
e:
TNo = 0
End Sub

المثال مرفق - موفق أخي الفاضل

ekseer_textControl.rar

بارك الله فيك اخي الغالي اكسير وزادك من علمه وفضله

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

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

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة