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

[Un]

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

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

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

[PNR]

ผมมี 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



[Un]

ธนาคารกรุงไทย จำกัด สาขา......
เนื่องจากว่าตัวชื่อ ธนาคารมันอยู่ตรงกลางครับ
คนเพิ่มชื่อ อาจจะเพิ่ม แบบ ธ.กรุงไทย สาขา....
เลยคิดแบบกำหนดชื่อ ธนาคาร มันจะง่าย แต่นึกโคตไม่ออกครับ

[PNR]

ใช้ 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


[Un]

ได้แล้วครับอาจารย์ ขอบพระคุณครับ