คือผมจะเขียนสูตรให้คำนวณนะครับ

เช่น ชื่อ A/B/C/D ให้ +1

E/F/G ให้ +2

ตอนแรกผมใช้iif เอาแต่ พอมันเยอะ ก็ ต้องเพิ่มช่องอีก ซึ่ง มันเยอะ

ลองเปลี่ยนมาใช้ IIf([name] In ("A","B","C","D"),[QTY]+1,IIf([name] In ("E","F","G",),[QTY]+2,[QTY]*0 แล้ว แต่ มันไม่คำวณครับ มันตัดค่าเปลี่ยน 0 หมดเลยครับ

มีทางแก้ไหมครับ

หรือคุณต้องการเช็คว่า ใน Field Name มี อักษร A B C D หรือเปล่าถ้ามีให้ Qty+1  ถ้ามี E F G ให้ Qty+2 ถ้าไม่ใช่อักษรพวกนี้
Qty * 0  คูณทำไมครับ อันนี้แหละสาเหตุที่มันแสดง 0 ทั้งหมด

จากอันเก่าผิด 2 จุดครับคือ มี comma เกินมา และไม่มีวงเล็บปิด
IIf([name] In ("A","B","C","D"),[QTY]+1,IIf([name] In ("E","F","G",),[QTY]+2,[QTY]*0

แก้เป็นแบบนี้ดูครับ
Nz(IIf([Name] In ("A","B","C","D"),[Qty]+1,IIf([Name] In ("E","F","G"),[Qty]+2)),0)

ลองดูตัวอย่างนี้นะครับ

สร้าง Module ใส่โค๊ด
Public Function ConcatRelated(strField As String, _
    strTable As String, _
    Optional strWhere As String, _
    Optional strOrderBy As String, _
    Optional strSeparator = ", ") As Variant
On Error GoTo Err_Handler
 
    Dim rs As DAO.Recordset
    Dim rsMV As DAO.Recordset
    Dim strSql As String
    Dim strOut As String
    Dim lngLen As Long
    Dim bIsMultiValue As Boolean
   
   
    ConcatRelated = Null
   
 
    strSql = "SELECT " & strField & " FROM " & strTable
    If strWhere <> vbNullString Then
        strSql = strSql & " WHERE " & strWhere
    End If
    If strOrderBy <> vbNullString Then
        strSql = strSql & " ORDER BY " & strOrderBy
    End If
    Set rs = DBEngine(0)(0).OpenRecordset(strSql, dbOpenDynaset)
   
    bIsMultiValue = (rs(0).Type > 100)
   

    Do While Not rs.EOF
        If bIsMultiValue Then
         
            Set rsMV = rs(0).Value
            Do While Not rsMV.EOF
                If Not IsNull(rsMV(0)) Then
                    strOut = strOut & rsMV(0) & strSeparator
                End If
                rsMV.MoveNext
            Loop
            Set rsMV = Nothing
        ElseIf Not IsNull(rs(0)) Then
            strOut = strOut & rs(0) & strSeparator
        End If
        rs.MoveNext
    Loop
    rs.Close
   
 
    lngLen = Len(strOut) - Len(strSeparator)
    If lngLen > 0 Then
        ConcatRelated = Left(strOut, lngLen)
    End If

Exit_Handler:

    Set rsMV = Nothing
    Set rs = Nothing
    Exit Function

Err_Handler:
    MsgBox "Error " & Err.Number & ": " & Err.Description, vbExclamation, "ConcatRelated()"
    Resume Exit_Handler
End Function


สร้างคิวรี่แรกเพื่อสร้าง เลขที่เอกสาร(Qty)  ตั้งชื่อ Q1
SELECT t1.IDProduct, t1.Qty, [เลขที่เอกสาร] & "(" & [qty] & ")" AS เลขที่
FROM t1;

สร้างคิวรี่ที่สอง ใส่โค๊ดเพื่อแสดงผลโดยใช้ฟังชั้นจากโค๊ดด้านบน
SELECT Q1.IDProduct, Sum(Q1.Qty) AS ผลรวม, ConcatRelated("เลขที่","Q1","IDProduct = '" & [IDProduct] & "'") AS เลขที่เอกสาร
FROM Q1
GROUP BY Q1.IDProduct, ConcatRelated("เลขที่","Q1","IDProduct = '" & [IDProduct] & "'");
เครดิต allenbrowne จากการนำโค๊ดมาปรับใช้กับเคสนี้ครับ

ของผมเปิดไฟล์ที่แนบมาทำงานได้ปกติเลยคับ

ต้องเช็ค ทั้ง 2 textbox และ 2 Field ในครั้งเดียว ตัวอย่างโค้ด

Sub SearchDuplicate()
If Not IsNull(Me.txtCongDiseaseID1) And Not IsNull(Me.txtPersonID) Then
If DLookup("[CongDiseaseID]", "tblCongDiseaseDetails", "CongDiseaseID=" & Me.txtCongDiseaseID1 & "") _
And DLookup("[PersonID]", "tblCongDiseaseDetails", "PersonID='" & Me.txtPersonID & "'") Then
MsgBox "ไม่อนุญาตให้กรอกข้อมูลซ้ำ, กรุณาลองใหม่", vbInformation, "ข้อมูลซ้ำกับข้อมูลเดิม"
End If
End If
End Sub

Private Sub txtCongDiseaseID1_Exit(Cancel As Integer)
Call SearchDuplicate
End Sub

Private Sub txtPersonID_Exit(Cancel As Integer)
Call SearchDuplicate
End Sub

ถ้าหากจะใช้การตัดวันที่ ที่ผ่านมาออกไปแสดงเฉพาะวันที่ปัจจุบันเป็นต้นไปยังไม่เคยทำครับ

แต่ถ้าจะใช้การกำหนดเงื่อนไขว่าถ้าเลือกวันที่ๆผ่านมาแล้วให้แจ้งเตือนและให้ระบุใหม่ก็ลองแบบนี้
สมมุติ textbox เลือกวันที่ ชื่อ txtDatePick

Private Sub txtDatePick_AfterUpdate()
If Me.txtDatePick < Date() Then
MsgBox "ไม่สามารถเลือกวันที่ย้อนหลังได้", vbCritical, "แจ้งเตือน"
Me.Text0 = Null
End If
End Sub

ท่านไปจับ Event Before Update ก็ไม่ได้อยู่แล้วครับ
เพราะตัวแปรที่เก็บค่าไว้จะถูกให้รับค่าใหม่ก่อนที่จะได้แสดงผล
ตรงที่ท่านเรียกใช้ NameDocinSu นั้นท่านจะมาใส่ไว้ใน beforupdate ไม่ได้ครับ
ควรจะให้ทำงานที่ event อื่นแล้วค่อยมาเรียกใช้ OldItem ใน BeforeUpdate เอา

ใน textbox มีแต่ชื่อไฟล์ ไม่มีนามสกุลไฟล์ เราจะตรวจสอบได้อย่างไรครับ

ใน textbox มี path และ ชื่อไฟล์ หรือเปล่าครับ
เพราะถ้าจะระบุชื่อไฟล์แล้วต้องค้นหาไฟล์นั้นมาเพื่อจะดูนามสกุลไฟล์
ที่ต้องระบุตำแหน่งไฟล์เพราะ ไฟล์ในเครื่องทั้งหมดต้องมีชื่อซ้ำกันอยู่แล้วครับ

เราจะเก็บค่า text box ไว้ในตัวแปรก่อนมีการเปลี่ยนแปลงได้อย่างไร
ลองในเหตุการณ์ before update แล้วไม่ได้ครับ

ให้ประกาศตัวแปรไว้บนสุดของคำสั่งจะทำใน Module ก็ได้ครับ หรือทำใน โค้ดของ Form ก็แล้วแต่
เช่น

Public getstring As String

Private Sub Command0_Click()
getstring = Nz(Me.textboxName)
------คำสั่งอื่นๆที่มี------
End Sub

เมื่อกดคลิ๊กคำสั่ง ของ Command0
ค่าจาก  textboxName จะประกาศเก็บไว้ในตัวแปร getstring ครับ
โดยตัวแปรอยู่บนสุดของคำสั่งอื่นๆ เพื่อให้มีการกำหนดเก็บค่าไว้ในตัวแปรก่อนที่จะทำขั้นตอนการเปลี่ยนแปลงต่อๆไป

ให้อัพเดททุก Jobno
หรือเฉพาะ Jobno ที่ต้องการครับ