برنامج لتسجيل زوار مكتبة

بســم الله الـرحمــن الرحيــم

السلام عليكم الخوه الاعضاء احتاج الي مساعدتكم في كود لدالة باستخدام vba

المشكلة كالاتي لقد قمت بتصميم برنامج باستخدام اكسس 2007 و احتجت الي بعض الدوال من vba

لقد قمت بتصميم شاشة بها قائمة من الطلبات التسجيل المؤجلة عندما يختار المستخدم حقل معين من القائمة ويضغط علي زر قبول الزيارة يجب ان ينتقل من هذه القائمة الي قائمة اخري المشكلة هي ان الكود يتنفذ مرة واحدة فقط و لا يمكن ان انفذه علي بقية الحقول مالم اغلق الشاشة و افتحه مره اخرى ارجو مراجعة الكود الاتي

Dim title As String

Dim style As VbMsgBoxStyle

Dim response As VbMsgBoxResult

msg = "قبول الزيارة؟"

style = VbMsgBoxStyle.vbYesNo

title = "نظام إدارة الرواد"

response = MsgBox(msg, style, title)

If response = VbMsgBoxResult.vbYes Then

visit.Value = True

MsgBox "تم قبول الزيارة", vbOKOnly, "نظام ادارة الرواد"

Else

visit.Value = False

MsgBox "الزيارة ما زالت في الانتظار", vbOKOnly, "نظام إدارة الرواد"

End If

End If

DoCmd.Close acForm, "pending visits", acSaveYes

DoCmd.OpenForm "pending visits", acNormal, , , acFormAdd*