แสดงกระทู้
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.
Private Sub TextBox1_AfterUpdate()
Dim i As Integer
Dim strText As String
Dim strMessage As String
strText = Me.TextBox1.Value
For i = 1 To Len(strText)
If Asc(Mid(strText, i, 1)) < 128 Then
strMessage = "กรุณาพิมพ์เฉพาะภาษาไทยเท่านั้น"
MsgBox strMessage, vbExclamation, "ข้อผิดพลาด"
Me.TextBox1.SetFocus
Exit Sub
End If
Next i
End SubDim RetValue As Variant
DoCmd.SetWarnings False
RetValue = MsgBox("ยืนยันลบข้อมูล", vbOKCancel)
Select Case RetValue
Case 1
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "ลบเรียบร้อยแล้ว"
Case Else
'''
End Select
DoCmd.SetWarnings Trueกรณีบันทึกย้อนหลัง มีแนวทางแก้ปัญหาตรงนี้ยังไงครับ แล้วถ้าเรายึดวันที่เป็นหลักแล้วตามด้วย ID จะได้หรือเปล่าครับ เช่น ถ้าวันที่ซ้ำให้ดูที่ ID
นำ qPoint_Dlookup มาสร้างเป็น Crosstab Query กำหนด Header เป็นรายวันจริงๆ ตราราง Appoint_Month_Temp ก็มาจาก Crosstab Query ครับ
แล้วสร้าง Append Query จาก Crosstab Query ไปใส่ตาราง Appoint_Month_Temp ครับ
