PDA

View Full Version : error تهیه دیسکت بیمه در office 2007


fathi48
پنج شنبه 12 آبان 1390, 10:35 صبح
با سلام و عرض خسته نباشید حضور اساتید ارجمند خصوصاً استاد عزیزم amirzazadeh لطفاً در نمونه ارسالی error ایجاد شده را در db2برطرف فرمائید.(فرمت db1 اکسس 2003 و فرمت db2 اکسس 2007 می باشد)
Abbas Amiri
پنج شنبه 12 آبان 1390, 19:23 عصر
در ایونت Command0_Click اصلاح کنید
Dim rsc As DAO.Recordset
در ضمن چرا از SetWarning استفاده نکرده اید؟
fathi48
چهارشنبه 18 آبان 1390, 07:53 صبح
در ایونت Command0_Click اصلاح کنید
Dim rsc As DAO.Recordset
در ضمن چرا از SetWarning استفاده نکرده اید؟

ضمن تشکر از پاسخ حضرتعالی SetWarning را در همان نمونه ارسالی(db1) روی false قرارد دادم ولی درمواردی که هیچ رکوردی برای تهیه دیسکت وجود ندارد باز error 3021را می دهد لطفآ در صورت امکان نمونه را اصلاح فرموده و مجدداً آپلود نمائید.
Abbas Amiri
چهارشنبه 18 آبان 1390, 18:34 عصر
پس از خط اول کد زیر بقیه را اضافه کنید



Set rsc = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
If rsc.RecordCount = 0 Then
MsgBox "هیچ رکوردی وجود ندارد"
Exit Sub
End If