ค้นหาคำใน combobox ไปใช้กับฟังก์ชั่น IF


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

06 มี.ค. 63 , 11:38:57
อ่าน 800 ครั้ง

Un

ผมมี combobox ที่เลือกธนาคารต่างๆ เมื่อเลือกแล้ว ผมจะคลิกที่ปุ่มนึงแล้ว
ให้มันดูว่า เป็นธนาคารไหน แล้วเปิดฟอร์มที่กำหนดไว้

Text ใน combo ไม่ได้มีชื่อธนาคารอย่างเดียว เช่น
ธนาคารกรุงไทย สาขา......
ธนาคารไทยพานิชย์ สาขา.....

ถามว่าจะเขียนโคตยังงัยครับ

 

06 มี.ค. 63 , 12:13:07
ตอบกลับ #1

PNR

: ค้นหาคำใน combobox ไปใช้กับฟังก์ชั่น IF
« ตอบกลับ #1 เมื่อ: 06 มี.ค. 63 , 12:13:07 »
ผมมี combobox ที่เลือกธนาคารต่างๆ เมื่อเลือกแล้ว ผมจะคลิกที่ปุ่มนึงแล้ว
ให้มันดูว่า เป็นธนาคารไหน แล้วเปิดฟอร์มที่กำหนดไว้

Text ใน combo ไม่ได้มีชื่อธนาคารอย่างเดียว เช่น
ธนาคารกรุงไทย สาขา......
ธนาคารไทยพานิชย์ สาขา.....

ถามว่าจะเขียนโคตยังงัยครับ

ใช้การตัดข้อความก็ได้ครับ โดยกำหนดให้ ถ้าเจอคำว่า "สาขา" แล้ว ให้ตัดข้อความทางขวาทิ้งทั้งหมด เอาเฉพาะทางซ้าย คือชื่อธนาคารนั้นเอง
เช่น ผมสมมุติ combobox รายชื่อธนาคารและสาขาธนาคาร ชื่อ Combo1
โค๊ด: [Select]
Private Sub Command2_Click()
Dim strBankName As String
strBankName = Me.Combo1
strBankName = Left(strBankName, InStr(strBankName, "สาขา") - 1)
strBankName = Replace(strBankName, " ", "") 'ใช้ Function นี้ป้องกันกรณีมีช่องว่างระหว่างข้อความ
DoCmd.OpenForm strBankName
End Sub

หรือถ้าชื่อ Form ไม่ได้ชื่อธนาคารแต่เป็นชื่ออื่นก็ใช้ If มาเช็คเช่น
โค๊ด: [Select]
Private Sub Command2_Click()
Dim strBankName As String
strBankName = Me.Combo1
strBankName = Left(strBankName, InStr(strBankName, "สาขา") - 1)
strBankName = Replace(strBankName, " ", "") 'ใช้ Function นี้ป้องกันกรณีมีช่องว่างระหว่างข้อความ
If strBankName = "ธนาคารกรุงไทย" Then
DoCmd.OpenForm "Frm01"
ElseIf strBankName = "ธนาคารไทยพานิชย์" Then
DoCmd.OpenForm "Frm02"
End If
End Sub

« แก้ไขครั้งสุดท้าย: 06 มี.ค. 63 , 12:24:06 โดย PNR »
Time to stop for me  :dizzy:
 

06 มี.ค. 63 , 13:09:34
ตอบกลับ #2

Un

: ค้นหาคำใน combobox ไปใช้กับฟังก์ชั่น IF
« ตอบกลับ #2 เมื่อ: 06 มี.ค. 63 , 13:09:34 »
ธนาคารกรุงไทย จำกัด สาขา......
เนื่องจากว่าตัวชื่อ ธนาคารมันอยู่ตรงกลางครับ
คนเพิ่มชื่อ อาจจะเพิ่ม แบบ ธ.กรุงไทย สาขา....
เลยคิดแบบกำหนดชื่อ ธนาคาร มันจะง่าย แต่นึกโคตไม่ออกครับ

 

06 มี.ค. 63 , 14:09:22
ตอบกลับ #3

PNR

: ค้นหาคำใน combobox ไปใช้กับฟังก์ชั่น IF
« ตอบกลับ #3 เมื่อ: 06 มี.ค. 63 , 14:09:22 »

ใช้ Like มาช่วยก็ได้ครับ เจอประโยคนี้ในข้อความก็เข้าเงื่อนไข เช่น

โค๊ด: [Select]
Private Sub Command2_Click()
If Me.Combo1.Value Like "*กรุงไทย*" Then
DoCmd.OpenForm "frm01"
ElseIf Me.Combo1.Value Like "*ไทยพานิชย์*" Then
DoCmd.OpenForm "frm02"
End If
End Sub
Time to stop for me  :dizzy:
 
โพสต์นี้ได้รับคำขอบคุณจาก: Un

06 มี.ค. 63 , 16:11:39
ตอบกลับ #4

Un

: ค้นหาคำใน combobox ไปใช้กับฟังก์ชั่น IF
« ตอบกลับ #4 เมื่อ: 06 มี.ค. 63 , 16:11:39 »
ได้แล้วครับอาจารย์ ขอบพระคุณครับ  :miao:

 


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5