ขอบคุณมากครับอาจารย์
ผมลองนำ code มารวมกันยังไม่ได้ครับ  รบกวนอาจารย์ช่วยหน่อยครับ

Replace([txtsticker]," ","") ลบช่องว่างก่อนดี ลบเสร็จความยาวก็จะหายไป 2 ตัว พอทำ =IIf(Len([txtsticker])=13,Left([txtsticker],12),Left([txtsticker],10))


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

อยากให้คำสั่งตัดตัวอักษรตามเงือนไขครับ
ข้อมูลก่อนตัดมี 2 แบบ ครับ
แบบที่ 1จะมีทั้งหมด 13 ตัวอักษรเช่น  ABCDEFGHIJKLM     ผลลัพธ์ที่ต้องการเหลือ 12 ตัวอักษรคือ ABCDEFGHIJKL
แบบที่ 2จะมีทั้งหมด 13 ตัวอักษรแต่มีช่องว่าง 2 ช่องและปิดท้ายด้วยตัวอักษร เช่น ABCDEFGHIJ  M ผลลัพธ์ที่ต้องการเหลือ 10 ตัวอักษร คือ ABCDEFGHIJ
     ลองทำแล้วได้ 1 เงื่อนไขคือ =IIf(Len([txtsticker])=13,Left([txtsticker],12)
     จะรบกวนอาจารย์หรือพี่ๆ ช่วยหน่อยครับว่าต้องเพิ่ม code อะไรสำหรับเงือนไขแบบนี้ให้รวมอยู่ในคำสั่งเดียวกัน

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

สวัสดีครับอาจารย์ รบกวนสอบถามวิธีเขียนสูตรหน่อยครับ
    ต้องการเอา 2 สูตรด้านล่างมารวมกันเป็นสูตรเดียวครับ 

-มี 2 textbox โดยจะเอาสูตรด้านล่างไปใส่ใน textbox ที่ 2   
เงื่อนไขที่ 1 สมมติว่าใส่ข้อมูลลงใน txtinput1 13ตัวอักษรให้ตัดเหลือ 12 ตัวอักษร คือ abcdefghijklm พอ enter ต้องการได้ abcdefghijkl
เงื่อนไขที่ 2 สมมติว่าใส่ข้อมูลลงใน txtinput1 12ตัวอักษรให้ตัดเหลือ 10 ตัวอักษร คือ abcdefghijkl พอ enter ต้องการได้ abcdefghij
IIf(Len([txtinput1])=13,Left([txtinput1],12))
IIf(Len([txtinput1])=12,Left([txtinput1],10))

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

ผมมีฐานข้อมูลชื่อ DATA มีข้อมูล 3 ฟิวล์ คือ D1 เป็น keyหลัก, D2 เป็นข้อรหัสอ้างอิงของ D1 อีกที(เช่น D1=TT1 D2=AAAA ข้อมูลจะจับคู่ไม่ซ้ำกับข้อมูลบันทัดอื่น),  D3 เป็นคำอธิบาย
โจทย์คือ
บนหน้า form มี textbox1  ผมพิมพ์  "000AAAA0000" แล้วกด enter

ให้ข้อมูลขึ้นที่ textbox2 อัตโนมัติ "TT1"

อยากได้สูตรที่ใส่ใน textbox2ครับ ลองทำดูแล้วไม่ขึ้น
ผมใส่ =DLookup("D1", "DATA", "[D2] = "& Mid([textbox1],4,4))
     รบกวนท่านอาจารย์แนะนำหน่อยครับ ขอบพระคุณมากครับ

ขอบคุณมากๆ ครับอาจารย์