javid_p84
جمعه 23 بهمن 1383, 21:45 عصر
سلام
خسته نباشین :mrgreen:
یه مشکل اساسی دارم ممنون میشم کمک کنین
وقتی توی VB کد زیر رو میخوام اجرا کنم خطای Query is too Complex
For i = 0 To Fix((rstTtable.Fields.Count / 2)) - 3
rstTtable.Fields((2 * i) + 5).Value = IIf(Trim(frm.Text1(i).Text) <> "", Trim(frm.Text1(i).Text), "")
rstTtable.Fields((2 * i + 1) + 5).Value = IIf(Trim(frm.Text2(i).Text) <> "", Trim(frm.Text2(i).Text), "")
Next i
rstTtable.Fields(1).Value = IIf(Trim(frm.Text1(22).Text) <> "", Trim(frm.Text1(22).Text), "")
rstTtable.Fields(2).Value = IIf(Trim(PicAdr) <> "", PicAdr, "")
rstTtable.Fields(4).Value = IIf(Trim(frm.Text1(23).Text) <> "", Trim(frm.Text1(23).Text), "")
rstTtable.Update
:kaf: :strange:
ممنون
:موفق:
خسته نباشین :mrgreen:
یه مشکل اساسی دارم ممنون میشم کمک کنین
وقتی توی VB کد زیر رو میخوام اجرا کنم خطای Query is too Complex
For i = 0 To Fix((rstTtable.Fields.Count / 2)) - 3
rstTtable.Fields((2 * i) + 5).Value = IIf(Trim(frm.Text1(i).Text) <> "", Trim(frm.Text1(i).Text), "")
rstTtable.Fields((2 * i + 1) + 5).Value = IIf(Trim(frm.Text2(i).Text) <> "", Trim(frm.Text2(i).Text), "")
Next i
rstTtable.Fields(1).Value = IIf(Trim(frm.Text1(22).Text) <> "", Trim(frm.Text1(22).Text), "")
rstTtable.Fields(2).Value = IIf(Trim(PicAdr) <> "", PicAdr, "")
rstTtable.Fields(4).Value = IIf(Trim(frm.Text1(23).Text) <> "", Trim(frm.Text1(23).Text), "")
rstTtable.Update
:kaf: :strange:
ممنون
:موفق: