Me!Text121 = Val(Combo7.Column(1)) + Val(Combo29.Column(1)) + Val(Combo31.Column(1))

ผมยังแก้ปัญหาที่ว่า มันไม่ต้องเลือกให้ครบ ก็สามารถ รวมค่าได้หนะครับ

คือถ้าคอมโบบ๊อกตัวใดตัวนึ่งไม่ได้เลือกค่า มันจะเออร์แล้วไม่คำนวนครับ มีวิธีแก้ไหมครับ

เอาแบบง่ายๆ ที่สุด นะครับ
สมมุติค่า ตัวแปร 10 ค่า
เช่น
dim cb1 as integer
dim cb2 as integer
..
dim cb3 as integer

กำหนดค่าให้เป็น 0 เหมือนกับเริ่มต้นก่อนเลือก combobox ต้องสอดคล้องกับ เหตุการณ์นะครับ
cb1=0
cb2=0
..
cb10=0

เมื่อยังไม่เลือก combobox ค่าจะเป็น 0
ถ้าเลือก จะเป็น val(combo.column(1))

เมื่อ click ก็เอา text.value มารับ =cb1+cb2+...+cb10

ขอบคุณ คุณ ditasilk มากครับ

ขอละเอียดหน่อยได้ไหมครับงงครับ

มีหลายวิธีเหมือนกันนะครับ
เราสามารถไปกำหนดที่ตารางครับให้ค่าเริ่มต้น เป็น 0 ถ้าไม่ได้เลือกก็เป็น 0 แบบนี้ง่ายที่สุดครับ แต่ถ้าไม่ได้กำหนด ผมมักจะใช้ฟังชัน nz (....,0)

Me!Text121 = nz(Val(Combo7.Column(1)),0) + nz(Val(Combo29.Column(1)),0) + .........................

ไม่รู้ว่าจะตรงใจรึปล่าวลองดูนะครับ

ไม่ได้ครับ เลยครับ คุณ Un จนปัญญาแล้ว

Option Compare Database
Option Explicit
Dim cb1 as integer,cb2 as integer,cb3 as integer,cb4 as integer,cb5 as integer,cb6 as integer,cb7 as integer,cb8 as integer,cb9 as integer,cb10 as integer

Private Sub Form_Load()
     'กำหนดให้ตัวแปรเป็น 0 ก่อนทำการเลือก combo box
      call setvalue
End sub

'ใช้ตั้งค่าให้ตัวแปรเป็น 0
Sub SetValue()
      cb1=0
      cb2=0
      ...
      ...
      cb10=0
End sub

ที่เหตุการณ์หลังจากเลือกค่าใน combo1
cb1=ค่าในcombo1 ที่ column ที่ 1 ถ้าไม่เลือก cb1=0
Private sub combo1_AfterUpdate()
        cb1=Val(Combo1.Column(1))
End Sub
combo อื่น ๆ ให้ทำเช่นเดียวกับ combo1
ค่า cb ก็เปลี่ยนไปตาม combo ด้วย
จนครบ 10 combo box

ที่เหตุการณ์ ปุ่มกด สมมุติชื่อ command1
Private Sub Command1_Click()
     Text121.value=cb1+cb2+cb3+...+cb10
End sub

ขอบคุณ ditasilk น่ะครับ จะลองดูครับ

เพิ่ม call setvalue ไว้ที่
หลัง Text121.value=cb1+cb2+cb3+...+cb10
ก็สมบูรณ์แล้วครับ ขอบคุณ คุณ ditasilk และคุณ Un มากๆครับ