آقای سنبله کار
من یک فیلد از نوع Number به تیبل Far اضافه کردم بنام b و کد رو نیز تغییر دادم ولی خطا میگیره ...
Private Sub Command6_Click()
DoCmd.SetWarnings False
Dim Count
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
For Count = az To ta
DoCmd.RunSQL "INSERT INTO far ( cod, num, b )SELECT asli.cod, " & Count & " FROM asli WHERE (((asli.cod)='" & cod & "'));"
Next
[Form_far Subform].Requery
DoCmd.SetWarnings True
End Sub
نمیدونم چرا این خطا رو میگیره .