1
ห้อง MS Access / : ให้ฟอร์มโชรูปตามตัวเลือกยังไงครับ
« เมื่อ: 01 เม.ย. 64 , 14:26:35 »
ณุปจากที่เก็บไว้ครับ กดเลือกโดยกดารปุ่มตัวเลือกครับ เพื่อกดแล้ว ให้รูปที่อยู่ในกรอบรูปภาพเปลี่ยนตามครับ ตัวเลือกที่กดครับ
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
ผมมีช่องให้กรอกทั้งหมด 6 ช่อง แต่เมื่อผมใส่ค่าประเภทเป็น 1 ให้เปิดช่องสำหรับกรอกค่าแค่ 3 ช่องจาก6ช่อง อีก3 ช่องให่ประติเสธการใส่ค่า
แล้วพอ ผมใส่ค่าประเภทเป็น 2 ให้เปิดช่องสำหรับใส่ค่าทั้งหมด6 ช่อง
พอ ผมใส่ค่าประเภทเป็น 3 ให้เปิดช่องสำหรับใส่ค่าทั้งหมด2 ช่อง
พอมีวิธีทำไหมครับ
ใช้ Locked มาช่วยก็ได้ครับเช่นโค๊ด: [Select]Private Sub Combo0_AfterUpdate()
If Me.Combo0 = "1" Then
Me.Text1.Locked = False
Me.Text2.Locked = False
Me.Text3.Locked = False
Me.Text4.Locked = True
Me.Text5.Locked = True
Me.Text6.Locked = True
ElseIf Me.Combo0 = "2" Then
Me.Text1.Locked = False
Me.Text2.Locked = False
Me.Text3.Locked = False
Me.Text4.Locked = False
Me.Text5.Locked = False
Me.Text6.Locked = False
ElseIf Me.Combo0 = "3" Then
Me.Text1.Locked = False
Me.Text2.Locked = False
Me.Text3.Locked = True
Me.Text4.Locked = True
Me.Text5.Locked = True
Me.Text6.Locked = True
End If
End Sub
มี textbox 6 ตัว และ combobox 1 ตัว
combobox ชื่อ Combo0
มี textbox ชื่อ text1 ถึง 6
หรือใช้การซ่อน textbox ก็ได้เช่นโค๊ด: [Select]Private Sub Combo0_AfterUpdate()
If Me.Combo0 = "1" Then
Me.Text1.Visible = True
Me.Text2.Visible = True
Me.Text3.Visible = True
Me.Text4.Visible = False
Me.Text5.Visible = False
Me.Text6.Visible = False
ElseIf Me.Combo0 = "2" Then
Me.Text1.Visible = True
Me.Text2.Visible = True
Me.Text3.Visible = True
Me.Text4.Visible = True
Me.Text5.Visible = True
Me.Text6.Visible = True
ElseIf Me.Combo0 = "3" Then
Me.Text1.Visible = True
Me.Text2.Visible = True
Me.Text3.Visible = False
Me.Text4.Visible = False
Me.Text5.Visible = False
Me.Text6.Visible = False
Else
Me.Text1.Visible = False
Me.Text2.Visible = False
Me.Text3.Visible = False
Me.Text4.Visible = False
Me.Text5.Visible = False
Me.Text6.Visible = False
End If
End Sub
ก็ยังยืนยันให้รวมตารางอยู่ดีครับ
เราสามารถใช้ฟิลด์ SD-Type เป็นตัวกำหนดสูตรคำนวณได้
โดยใช้ IIF
เช่น IIF(SD-Type = SD-01,สูตรของ SD-01,สูตรของ SD-02)
ค่าที่ได้จากการคำนวณก็จะมาอยู่ในตารางเดียวกันแล้วครับ