[مخالف]اين الخطاء في هذا الكود

Str.MoveFirst

Set Str = maar.OpenRecordset("st_sd")

srch = "select * from st_sd where numberh like '" & Sm!numberh & "'"

Set Str = maar.OpenRecordset(srch, dbOpenDynaset)

If Str!numberh = Sm!numberh Then

Set st = maar.OpenRecordset("st_fo")

srh = "select * from st_fo where alsaf like '" & Str!alsaf & "' and mosalsalf like '" & Str!alfasel & "'"

Set st = maar.OpenRecordset(srh, dbOpenDynaset)

moad.AddNew

moad!numberh = Sm!numberh

moad!maddano = Sm!maddano

moad!Name = Trim(Str!name1) & " " & Trim(Str!name2) & " " & Trim(Str!name3) & " " & Trim(Str!name4)

moad!alsaf = st!faslname

moad!maddano = Sm!maddano

moad!shaharno = Sm!shaharno

moad!mosalsalf = Sm!mosalsalf

moad!mosharaka = Sm!mosharaka

moad!ektebar = Sm!ektebar

moad.Update

Sm.MoveNext

ElseIf Str!numberh <> Sm!numberh Then

Sm.MoveNext

End If

Loop While Not Sm.EOF