اضافه کردن پیش شماره 0 و 0513 به یک فیلد در جدول ؟

[mohsen.fk]

با سلام یک بانک اطلاعاتی دارم داخلش یکسری اطلاعات ذخیره شده 1000 داده فردی - یک فیلد دارم اطلاعات موبایل و تلفن ثابت داخلش تعریف شده که با نام Tell هستش و موبایل بعضی از داده ها با 0 ثبت شده و بعضی از آنها بدون 0 و تلفن های ثابت بدون پیش شماره 0513 راهنمایی چطور این پیش شماره ها رو در داخل این داده ها اضافه کنم اطلاعات خیلی زیاد هستش رکوردهای تعریف شده منظورم هستش ؟
ممنون میشم

130167

[Abbas Amiri]

سلام
احتمالا شما قصد دارید شماره تلفنهای شهرستان که بدون کد هستند را ، کد دار کنید. و به شماره موبایلهایی که ابتدای آنها 0 ندارد ، صفر اضافه کنید
نام جدول Tell و نام فیلد ATel است
کدهای زیر را در یک ماژول کپی و هر جا که مایلید آنرا فراخوانی کنید:
Sub EditTellNumbers()
Dim rs As Recordset, telNum As String
On Error GoTo err
Set rs = CurrentDb.OpenRecordset("Tell")
With rs
While Not .EOF
telNum = .Fields("ATel")
If Left(telNum, 1) <> "0" Then
If Left(telNum, 1) = "9" Then
telNum = "0" & telNum
Else
telNum = "0513" & telNum
End If
.Edit
.Fields("ATel") = telNum
.Update
End If
.MoveNext
Wend
End With
Set rs = Nothing
MsgBox "شماره ها آپدیت شد"
Exit Sub
err:
MsgBox "خطا در هنگام تغییر شماره ها"
End Sub