Abbas Amiri
جمعه 27 اردیبهشت 1392, 23:51 عصر
سلام
در بخشی از روال مربوط به انتقال تغییرات زیر را بدهید :
strSql = "INSERT INTO 3 ( madrese, q, dini, arabi, emla, ensha, qfarsi, ej, tar, gog, ez, qz, ryazi, olom, herfe, honar, var, par, dq, ddini, darabi, demla, densa, dfarsi, dej, dtar, dgog, dez, dqz, dryazi, dolom, dherfe, dhonar, dvar, dpar, tq, tdini, tarabi, ttemf, tensha, tfarsi, tej, ttar, tgog, temz, tqz, tryazi, tolom, therfe, thonar, tvar, tpar, tq1, tdini1, tarabi1, temf1, tensa1, tfarsi1, tej1, ttar1, tgog1, temz1, tqz1, tryazi1, tolom1, therfe1, thonar1, tvar1, tpar1, qq, qdini, qarabi, qemla, qensa, qafarsi, qej, qtar, qgog, qqz, qemz, qryazi, qolom, qherfe, qhonar, qvar, qpar, qaq1, qadini1, qaarabi1, qaemf1, qensa1, qafarsi1, qej1, qtar1, qgog1, qqz1, qemz1, qryazi1, qolom1, qherfe1, qhonar1, qvar1, qpar1, kol91, kol92, kolq91, kolq92, t91, t92, q91, q92, m91, m92 ) " & _
"SELECT madrese, q, dini, arabi, emla, ensha, qfarsi, ej, tar, gog, ez, qz, ryazi, olom, herfe, honar, var, par, dq, ddini, darabi, demla, densa, dfarsi, dej, dtar, dgog, dez, dqz, dryazi, dolom, dherfe, dhonar, dvar, dpar, tq, tdini, tarabi, ttemf, tensha, tfarsi, tej, ttar, tgog, temz, tqz, tryazi, tolom, therfe, thonar, tvar, tpar, tq1, tdini1, tarabi1, temf1, tensa1, tfarsi1, tej1, ttar1, tgog1, temz1, tqz1, tryazi1, tolom1, therfe1, thonar1, tvar1, tpar1, qq, qdini, qarabi, qemla, qensa, qafarsi, qej, qtar, qgog, qqz, qemz, qryazi, qolom, qherfe, qhonar, qvar, qpar, qaq1, qadini1, qaarabi1, qaemf1, qensa1, qafarsi1, qej1, qtar1, qgog1, qqz1, qemz1, qryazi1, qolom1, qherfe1, qhonar1, qvar1, qpar1, kol91, kol92, kolq91, kolq92, t91, t92, q91, q92, m91, m92 " & _
"FROM 3 IN '" & strPath & "' WHERE Not IsNull(madrese) AND madrese Not IN(SELECT madrese FROM 3);"
DoCmd.RunSQL strSql
Refresh
Exit Sub
ErrHandler:
If Err = 3078 Then
MsgBox "ÌÏæá ÇØáÇÚÇÊ Çíä Çíå ÏÑ ÝÇíá ÇäÊÎÇÈ ÔÏå æÌæÏ äÏÇÑÏ", , "ÎØÇ"
ElseIf Err <> 2501 Then
MsgBox "ÇØáÇÚÇÊ Çíä Çíå íÇ ÑÔÊå ÏÑ Çíä ÝÇíá æÌæÏ äÏÇÑÏ", , "ÎØÇ"
End If
End Sub
چنانچه فیلد مدرسه خالی باشد ، چیزی انتقال نمی یابد .
ضمن اینکه فیلد مدرسه کلید اصلی جدول است ، خصوصیت Allow Zero Length vh fvhfv را No قراردهید ، تا اصلا چنین مشکلی بوجود نیاید .
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.