กระทู้เก่าบอร์ด อ.Yeadram
1,103 2
URL.หัวข้อ /
URL
งานเข้าเรื่องข้อมูลครับ
ผมได้ลองหากระทู้เก่าๆมาลองดัดแปลงโคตดูแต่ก็ยังไม่ได้ครับ กำเลย ขอความช่วยเหลือด้วยครับควรเขียนอย่างไรดี
คือผมอยากให้ข้อมูลที่พิมพ์ไปในฟอร์มมันเช็คว่ามีข้อมูลที่เคยบันทึกไปว่าซ้ำหรือเปล่านะครับ ถ้ามีก็ให้ขึ้นmsgbox เตือนนะครับ
ตารางชื่อ Vol
ฟิล์ด์ในตารางชื่อ VolNum
ส่วนช่องที่กรอกข้อมูลในฟอร์มชื่อ text15
ผมต้องเขียนคำสั่งอย่างไรครับ
คือผมอยากให้ข้อมูลที่พิมพ์ไปในฟอร์มมันเช็คว่ามีข้อมูลที่เคยบันทึกไปว่าซ้ำหรือเปล่านะครับ ถ้ามีก็ให้ขึ้นmsgbox เตือนนะครับ
ตารางชื่อ Vol
ฟิล์ด์ในตารางชื่อ VolNum
ส่วนช่องที่กรอกข้อมูลในฟอร์มชื่อ text15
ผมต้องเขียนคำสั่งอย่างไรครับ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R03215
เอาโค้ดที่คุณเขียนมาแสดงให้ดูหน่อย จะได้บอกได้ว่าผิดตรงไหน แล้วที่บอกว่าเอามาดัดแปลงแล้วทำไม่ได้ ช่วยอธิบายรายละเอียดด้วยว่าไม่ได้ยังไง error ที่บรรทัดไหน error message ว่าอย่างไร เพราะคำถามแบบนี้ มีถามกันหลายครั้งแล้ว น่าจะเอาไปดัดแปลงนิดเดียวแล้วก็ทำได้เลย
2 @R03326
เรียน คุณงานเข้า
ผมขอยกตัวอย่างให้คุณลองนำไปประยุกต์ใช้ดูนะครับ
ผมขอยกตัวอย่างให้คุณลองนำไปประยุกต์ใช้ดูนะครับ
Private Sub Text15_AfterUpdate()
dim a as integer ' หรือกำหนดให้ตรงกับประเภทของข้อมูลที่คุณต้องการตรวจสอบ
a = DLookup("[VolNum]", "Vol", "[VolNum]=[Forms]![ชื่อฟอร์ม].[Text15]")
If a = Me.[Text15] Then
MsgBox "ข้อความที่กรอกเข้าไปนั้นมีอยู่ใน Volnum อยู่แล้ว"
me.volNum=Null
Exit Sub
Else
[คำสั่งที่คุณต้องการทำต่อ]
End If
Time: 0.3234s