ผมลองใช้ Dmax อีกครั้งที่ curY และกำหนดค่าเริ่มต้นของ Text23 เป็น Output เพื่อให้ค่า Output ออกที่ Text2 ที่ Text1จะให้ค่า Input ออกมานะครับแต่ไม่ต้องกำหนดเพราะค่า Input จะมากกว่า Output อยู่แล้ว ค่า Input จะทำได้ ที่ curY ถึงใช้อีกไม่ได้ครับ ผิดตรงไหนครับ Private Sub cmdrefresh_Click() On Error GoTo ErrMsg Dim x As Integer Dim curY As Integer x = DMax("[Sum]", "Main", "Date= '" & Me![txtDate] & "'") curY = DMax("[Sum]", "Main", "Item = " & Me![Text23] & "and Date = '" & Me![txtDate] & "'") txtInput = x txtOutput = curY ExitNow: Exit Sub ErrMsg: If Err.Number = 94 Then MsgBox "ไม่มีข้อมูล !", vbExclamation + vbOKOnly Else MsgBox "ติดต่อผู้ดูแลระบบ !", vbExclamation + vbOKOnly End If Resume ExitNow End Sub

อ.และเพื่อนๆครับ ขอคำแนะนำเพิ่มครับ ผมลอง DLookupแล้วค่าที่ออกมาก็เป็น 0 ครับ ติดปัญหาเพราะว่า Database เป็นอย่างนี้ครับ Field: Date Field : Item Field : sum 01/01/03 Input 2900 01/01/03 Output 2800 01/01/03 Reject 100 ผมต้องการนำค่า Input กับ Output ออกมาShow ที่ Main Form Text1 และ Text2 ลองใช้ Dlookup อย่างนี้ค่า curY ก็ยังเป็น 0 อยู่ครับ curY = Dlookup("[Sum]", "Main", "Item = " & Me![Text23] & "and Date = '" & Me![txtDate] & "'") .......ตรง Text23 ผมใส่ค่าเริ่มต้นเป็น Output ครับ รบกวนด้วยนะครับ

ฟีลด์ Date เป็น Text หรือ Date/Time ครับ curY = Dlookup("[Sum]", "Main", "Item = '" & Me![Text23] & "' and Date = '" & Me![txtDate] & "'") ให้มี space ก่อน and ด้วย ลองดูใหม่ครับ

ขอบคุณมากครับอ. codeที่อ.แนะนำใช้ได้แล้วครับ