aqronis
یک شنبه 20 دی 1394, 22:13 عصر
سلام.
من قبل از باز کردن این تاپیک سرچ کردم و چیزی پیدا نکردم.
من یه فرم در اکسس دارم که میخوام تعداد زیادی از سریال محصولات رو در این فرم وارد کنم و با کد VB وارد دیتابیس کنم. این فرم 16 فیلد داره که اسم اونا توی اکسس "ser1" تا "ser16" هست. برای اینکار یه for نوشتم که بتونه ser1 تا ser16 رو چک کنه و هرکدوم دیتا داره رو تو دیتابیس بزاره. یه چنین چیزی:
Dim i As Integer
For i = 1 To 16
if myform.ser&i
mycode
end if
...
مشکل اینجاست که وقتی کد اجرا میشه از کد روبروی if عبارت ser1 تا ser16 تولید نمیشه. به جای اپراتور & هم + گذاشتم ولی بازم همون ارور رو میده. در واقع دنبال فیلد ser میگرده. به نظر میاد روش من اشتباهه. اگه نظر و یا کمکی دارین ممنون میشم راهنمایی کنین.
مرسی.
من قبل از باز کردن این تاپیک سرچ کردم و چیزی پیدا نکردم.
من یه فرم در اکسس دارم که میخوام تعداد زیادی از سریال محصولات رو در این فرم وارد کنم و با کد VB وارد دیتابیس کنم. این فرم 16 فیلد داره که اسم اونا توی اکسس "ser1" تا "ser16" هست. برای اینکار یه for نوشتم که بتونه ser1 تا ser16 رو چک کنه و هرکدوم دیتا داره رو تو دیتابیس بزاره. یه چنین چیزی:
Dim i As Integer
For i = 1 To 16
if myform.ser&i
mycode
end if
...
مشکل اینجاست که وقتی کد اجرا میشه از کد روبروی if عبارت ser1 تا ser16 تولید نمیشه. به جای اپراتور & هم + گذاشتم ولی بازم همون ارور رو میده. در واقع دنبال فیلد ser میگرده. به نظر میاد روش من اشتباهه. اگه نظر و یا کمکی دارین ممنون میشم راهنمایی کنین.
مرسی.