لماذا لا يتحقق الشرط

vb6 كتب:

يا أخوان هذا كود نقل بيانات من جدول إلى أخر بحسب شروط محددة

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

المطلوب في الكود أنه إذا لم يحقق السجل الشرط يذهب إلى السجل التالي

ولكن لا تعمل أدات الشرط كما يجب حيث أنه إذا لم يتحقق الشرط تظهر رسالة انه لا يوجد سجل ما هو الخطا في هذا الكود