هل هناك طريقة لتعبئة الفراغات مقابل المواد برقم الهوية بحيث يسهل البحث برقم الهوية

[علياء يسرالدين]

test1.accdb

تم تعديل مارس 8, 2019 بواسطه علياء يسرالدين

[kanory]

تفضلي .....

test1.accdb

[علياء يسرالدين]

تماما المطلوب 

الله يزيدك من فضلة

[ابوآمنة]

Dim myDb As DAO.Database
Dim MyRs As DAO.Recordset
Dim myfld As DAO.Field
Dim i As Variant

Set myDb = CurrentDb()
Set MyRs = myDb.OpenRecordset("Table1")
MyRs.MoveFirst
Do While Not MyRs.EOF
MyRs.Edit
For Each myfld In MyRs.Fields
If myfld.Name = "Girlid" Then
If MyRs(myfld.Name).Value <> "" Then
i = MyRs(myfld.Name).Value
Else
MyRs(myfld.Name).Value = i
MyRs.Update
End If
End If

Next myfld

MyRs.MoveNext
Loop

kanory

أخي الكريم :

هل بالإمكان شرح الكود المستخدم 

حتى نتعلم منه