روی دکمه اجرااین کد را بگذاریدPrivate Sub Command6_Click()
Dim Count
For Count = az To ta
DoCmd.RunSQL "INSERT INTO far ( cod, num )SELECT asli.cod, " & Count & " FROM asli WHERE (((asli.cod)='" & cod & "'));"
Next
End Sub
روی دکمه اجرااین کد را بگذاریدPrivate Sub Command6_Click()
Dim Count
For Count = az To ta
DoCmd.RunSQL "INSERT INTO far ( cod, num )SELECT asli.cod, " & Count & " FROM asli WHERE (((asli.cod)='" & cod & "'));"
Next
End Sub
شهر الکترونیک چیزی که همه بهش نیاز دارن و ما ایرانیها از همه نیازمند تر و در عین حال بی تفاوت تر به آن .
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول