تشخیص فیلدی که داده های آن از چندین space تشکیل شده

[eb_1345]

بحث اینجاست که نمیدونیم اطلاعات رو بهمون میدن حالا چه جوری وارد کردن ،چه جوری خروجی گرفتن و....برای همین باید نوع دیتا تایپها و وایت اسپیسها کنترل و بررسی بشه

پس با این وجود بیائیم کار رو با یک نمونه ادامه بدیم
در فایل نمونه یک جدول قرار داره که دارای دو فیلد از نوع رشته می باشه . یک فرم هم وجود دارد که بر روی فرم دو کمند باتن . در رویداد کمند باتن اول به هر دو فیلد تعداد 10 اسپیس اضافه میشه ؛ منتها در فیلد اول هیچ کارکتر دیگه ای غیر از اسپیس اضافه نمیشه ولی در فیلد دوم بعد از 10 اسپیس یک علامت اسلش و سه حرف xxx اضافه میشه
حالا بر روی کمند باتن دوم در حلقه شرط گذاشته ایم که اگه در بین فیلدها فیلدی وجود داشت که طول اون بیشتر از صفر بود و ارزش یا مقدار فیلد مساوی اسپیس به اندازه طول فیلد بود بیاد بجای تعداد اسپیس ها علامت ستاره جایگزین کنه
فعلا فقط با همین اندازه توضیح فایل نمونه رو بررسی و امتحان کن تا در ادامه اگه سوال یا ابهام دیگه ای بود ان شاءالله بتونیم برطرف کنیم
کدهای فایل نمونه :

Private Sub Command24_Click()

Dim rs As DAO.Recordset

Dim fld As DAO.Field

Set rs = CurrentDb.OpenRecordset("Table1")

Do While Not rs.EOF

   rs.Edit

   For Each fld In rs.Fields

     If Len(fld) > 0 And fld.Value = Space(Len(fld)) Then

        fld = Replace(fld, " ", "*")

     End If

   Next

   rs.Update

   rs.MoveNext

Loop

rs.Close



End Sub



Private Sub Command29_Click()

DoCmd.RunSQL "DELETE * FROM Table1"

DoCmd.RunSQL "INSERT INTO Table1 (Fspace1,Fspace2)VALUES ('" & Space(10) & "','" & Space(10) & "/xxx" & "')"

End Sub