แสดงกระทู้

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.


Messages - yot

หน้า: [1]
1
ห้อง MS Access / : อยากให้คำสั่งตัดตัวอักษรตามเงือนไขครับ
« เมื่อ: 03 มี.ค. 66 , 12:41:38 »
ช่องว่างอยู่ทุกตำแหน่งไหมครับ หรือแบบ pattern เดียวกันคือปิดท้ายเท่านั้น
ลองใส่ code นี้ดู
Private Sub Command1_Click()
  Dim SpacePos As Integer
            SpacePos = InStr(1, Text0, " ")
            If SpacePos = 0 Then 'ถ้าหาตำแหน่งช่องว่างไม่เจอ
               Text1 = Left(Text0, 12) 'ตัดเอาแค่ด้านซ้ายมา 12 หลัก
            Else 'ถ้าหาตำแหน่งช่องว่างเจอ
                Text1 = Left(Text0, 10) 'ให้ตัดแค่ด้านซ้ายมา 10 หลัก
            End If
End Sub
***หมายเหตุ*** บนฟอร์มกำหนด ค่า text0 เพื่อกรอก  text1 เพื่อแสดงผล/Command1 ใช้คลิกและใส่ code
โพสต์นี้ได้รับคำขอบคุณจาก: yot

2
ห้อง MS Access / : อยากให้คำสั่งตัดตัวอักษรตามเงือนไขครับ
« เมื่อ: 02 มี.ค. 66 , 18:55:02 »
ทั้ง 2 ค่า ABCDEFGHIJKLM  และ  ABCDEFGHIJ  M  มีความยาว  13 ตัวอักษรเท่ากัน  แต่อันนึงอยากตัดเอา 12 ตัวอักษร   อีกอันอยากได้  10 ตัวอักษร  ใช้เงื่อนไขอะไรดี มาแยกแยะให้มันแตกต่างกันน้อ   :cool: :cool: :cool:  ใช้ Instr([txtsticker]," ") หาตำแหน่งช่องว่าง แล้วใช้ Mid()เข้ามาช่วย ถ้าเกิดว่ามัน เป็น AB  CDEFGHIJM จะทำไงล่ะ
หรือจะ Replace([txtsticker]," ","") ลบช่องว่างก่อนดี ลบเสร็จความยาวก็จะหายไป 2 ตัว พอทำ =IIf(Len([txtsticker])=13,Left([txtsticker],12),Left([txtsticker],10))
โพสต์นี้ได้รับคำขอบคุณจาก: yot

3
ห้อง MS Access / : ช่วยแนะนำสูตร DLookup ให้หน่อยครับ
« เมื่อ: 27 เม.ย. 62 , 12:08:08 »
น่าจะเพราะตกเครื่องหมาย quote ไป ลองแก้เป็น =DLookup("D1", "DATA", "[D2] = '"& Mid([textbox1],4,4) & "'")
โพสต์นี้ได้รับคำขอบคุณจาก: yot

4
ห้อง MS Access / : รบกวนอาจารย์ขอสูตร access ครับ
« เมื่อ: 26 พ.ย. 61 , 15:59:14 »
อ้างจาก: yot ที่ 26 พ.ย. 61 , 14:51:16
สมมติผมมี database=ชื่อ Master    และมี 3 Filed คือ Code=002, Name=Jorn, Add=Bangkok
ผมมี form ชื่อ frmMain     บนform มี textbox 2 ช่อง
คือ txtcode และ txtname
เงื่อนไขคือเมื่อผมใส่ 002 ลงใน txtcode
txtname จะปรากฏ Jorn ทันที (ในช่อง txtืname ต้องใส่สูตรอย่างไรครับ)

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

ใช้ DLookup ครับ
โค๊ด: [Select]
Private Sub txtcode_AfterUpdate()
Me.txtname = DLookup("NAME", "Master", "CODE='" & Me.txtcode & "'")
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: yot

หน้า: [1]