กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
280 2
URL.หัวข้อ /
URL
ตรวจข้อมูลที่ซ้ำ
อาจารย์ครับในฟอร์มกรอกข้อมูลผมมีตัวรับข้อมูลอยู่ 3 ตัว คือ
1---- เป็นตัวสำหรับรับ เลขหมู่บ้าน
2----เป็นตัวสำหรับรับ เลขรหัสตำบล (ซึ่งประกอบด้วยด้วยเลขตำบล อำเภอ จังหวัด รวม 6หลัก)
3----เป็นช่องว่าง
อาจารย์ครับผมอยากเขียนคำสั่งให้มันตรวจข้อมูล และขึ้นเตือน เมื่อเรากรอกในช่อง 1 และ ช่อง 2
แล้วมีค่าซ้ำกับที่เคยกรอกไป และให้มีเครื่องหมาย * ไปขึ้นในช่องที่ 3
รบกวนอาจารย์ช่วยแนะนำด้วยครับ
1---- เป็นตัวสำหรับรับ เลขหมู่บ้าน
2----เป็นตัวสำหรับรับ เลขรหัสตำบล (ซึ่งประกอบด้วยด้วยเลขตำบล อำเภอ จังหวัด รวม 6หลัก)
3----เป็นช่องว่าง
อาจารย์ครับผมอยากเขียนคำสั่งให้มันตรวจข้อมูล และขึ้นเตือน เมื่อเรากรอกในช่อง 1 และ ช่อง 2
แล้วมีค่าซ้ำกับที่เคยกรอกไป และให้มีเครื่องหมาย * ไปขึ้นในช่องที่ 3
รบกวนอาจารย์ช่วยแนะนำด้วยครับ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R05885
ผมใช้อย่างนี้ครับ
Private Sub Unit_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("Unit", "TabLabTestUnit", "Unit = '" & Me!Unit & "'"))) Then
MsgBox "หน่วยของผลการตรวจนี้มีอยู่ในฐานข้อมูลแล้ว" & _
"@ไม่สามารถป้อนซ้ำได้ ...กรุณาป้อนใหม่..." & _
"@หรือกด ESC เพื่อยกเลิก", vbCritical
Cancel = True
Me!Unit.Undo
End If
End Sub
Private Sub Unit_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("Unit", "TabLabTestUnit", "Unit = '" & Me!Unit & "'"))) Then
MsgBox "หน่วยของผลการตรวจนี้มีอยู่ในฐานข้อมูลแล้ว" & _
"@ไม่สามารถป้อนซ้ำได้ ...กรุณาป้อนใหม่..." & _
"@หรือกด ESC เพื่อยกเลิก", vbCritical
Cancel = True
Me!Unit.Undo
End If
End Sub
Time: 0.0497s
Private Sub field1_AfterUpdate()
If (DCount("[field1]", "table", "[field1] = '" & [field1] & "'")) = 1 Then
MsgBox ("field1 data was existed")
Me![field3].value="*"
End If
End Sub
ส่วน field ที่ 2 ก็คล้ายกัน