09-11-12, 05:21 PM
لاستبدال جميع الحقول الفارغة بصفر نستخدم الكود
كود :
Dim C As Control
For Each C In Me
If TypeOf C Is TextBox Then
if C.Text =trim("") then
C.Text =0
end if
end if
Next C
The most difficult part of developing a program is understanding the problem.
----8<------------------------------------------------------------------------------------
The second most difficult part is deciding how you're going to solve the problem.
----8<------------------------------------------------------------------------------------
----8<------------------------------------------------------------------------------------
The second most difficult part is deciding how you're going to solve the problem.
----8<------------------------------------------------------------------------------------
