ขอสอบถามเกี่ยวกับฟอร์มที่สร้างทีค่ะ

[MyDDT]

ขอแก้ใหม่นะคะ มันเป็นตรงจุดนี้ค่ะ

[ปิ่นณรงค์]

ลบ Tshift = Shift ออกไปครับ พอดีผมลืมลบออกให้ มันเลย เออเร่อ
แก้คำสั่งเป็น

โค๊ด: [Select]

Sub ResetForm()
    On Error GoTo Err_Err
    Dim ctl As Control
   
       
    For Each ctl In Me
        If ctl.ControlType = acComboBox Then
            ctl = Null
        End If
        If ctl.ControlType = acTextBox Then
         ctl = Null
        End If
        If ctl.ControlType = acCheckBox Then
                ctl = False
        End If

    Next ctl
Exit_err:
        Exit Sub
Err_Err:
        MsgBox Error$
         MsgBox "ERROR ResetForm"
        Resume Exit_err

End Sub

[ปิ่นณรงค์]

อ่อขอเพิ่มเติมข้อ 2 หน่อยค่ะ คือไม่อยากให้คำนวณช่วงเบรกอ่ะค่ะ 12.00-13.00 จะไม่ให้มันคำนวณออกมาอ่ะค่ะ ต้องเพิ่มเติมโค้ดตรงไหนคะ ขอบคุณค่ะ

Sub CalTime()
Dim DTime1, Time1, DTime2, Time2 As Variant
Dim MainTime As Long

Time1 = "12:00 PM"
Time2 = "1:00 PM"

MainTime = (DateDiff("h", Me.TimeStart, Me.TimeEnd))

DTime1 = (DateDiff("h", Me.TimeStart, Time1))
DTime2 = (DateDiff("h", Me.TimeEnd, Time2))


If DTime1 > 0 Then
If DTime2 < 0 Then
MainTime = MainTime - 1
Me.CalcTime = MainTime & " ชั่วโมง"
Else
MainTime = MainTime
Me.CalcTime = MainTime & " ชั่วโมง"
End If
End If

If Me.TimeStart > Me.TimeEnd Then
MainTime = (DateDiff("h", Me.TimeStart, Me.TimeEnd) + 24)
Me.CalcTime = MainTime - 1 & " ชั่วโมง"
End If

If DTime1 = 0 Then
If DTime2 < 0 Then
MainTime = MainTime - 1
Me.CalcTime = MainTime & " ชั่วโมง"
End If
End If

If DTime1 < 0 Then
If DTime2 < 0 Then
MainTime = MainTime
Me.CalcTime = MainTime & " ชั่วโมง"
End If
End If

If DTime1 > 0 Then
If DTime2 = 0 Then
MainTime = MainTime - 1
Me.CalcTime = MainTime & " ชั่วโมง"
End If
End If
End Sub

Private Sub TimeEnd_AfterUpdate()
If Not IsNull(Me.TimeStart) And _
Not IsNull(Me.TimeEnd) Then
Call CalTime
End If
End Sub

Private Sub TimeStart_AfterUpdate()
If Not IsNull(Me.TimeStart) And _
Not IsNull(Me.TimeEnd) Then
Call CalTime
End If
End Sub


ลองศึกษาดูครับ
timestart คือ textbox เวลาเริ่มทำงาน
timeend คือ textbox เวลาสินสุด
Calctime คือ textbox ผลลัพท์ที่คำนวนได้คับ

[MyDDT]

ขอบคุณนะคะอาจารย์ สำหรับคำตอบด้านบนค่ะ มีคำถามอีกแล้วค่ะ หนูมือใหม่จริงๆ ไม่ค่อยรู้เรื่อง Access เลย ต้องขอโทษด้วยนะคะที่ถามบ่อย รวบรวมมาถามทีเดียวเลยละกันนะคะ

1. คือหนูเพิ่งมาตรวจสอบดูอ่ะค่ะว่า ลืมใส่ Field ที่เป็นวันที่ ในตารางเวลาการทำงานของพนักงาน แล้วทีนี้ หนูอยากทราบว่า หนูไปเพิ่มวันที่ในตารางแล้ว ถ้าจะเพิ่มลงในซับฟอร์ม จะสามารถเพิ่มได้อย่างไรคะ(1) แล้วทีนี้ พอหนูเพิ่ม Field วันที่ไป โค้ดขึ้น Error ค่ะ แต่บันทึกได้ เลยงงว่ามันมีปัญหาอะไรหรือป่าวคะ(2) แล้วอีกอย่างค่ะ คือตอนที่ลองบันทึกข้อมูลลงไป ชื่อพนักงานไม่ขึ้นในซับฟอร์ม แต่ในตารางชื่อขึ้นปกติอ่ะค่ะ ต้องแก้อย่างไรคะ(3) (ข้อนี้มีภาพประกอบ 3 ภาพค่ะ)





2.อยากทราบการทำฟอร์มค้นหาค่ะว่า ถ้าเราต้องการให้ค้นหาแบบดูข้อมูลพนักงานทั้งหมดเลยอ่ะค่ะ พอมันโชว์มาทั้งหมดแล้ว ถ้าเราจะดูแค่ Record นี้ ก็ดับเบิ้ลคลิกเข้าไปดู ข้อมูลพนักงานคนนั้น ก็จะปรากฎขึ้นมาคนเดียว และก็ค้นหาแบบใส่คีย์เวิดลงในช่องค้นหาไป แล้วก็มี Record ชื่อนั้นโชว์ก่อน แล้วดับเบิ้ลคลิกแล้วโชว์ประวัติขึ้นมา อันนี้ต้องสร้างฟอร์มอย่างไรบ้างคะ



3.อยากทราบปุ่มที่ไว้แก้ไข Record บน ฟอร์มที่บันทึกไปแล้วอ่ะค่ะ มันไม่ใช่ปุ่ม Undo ที่มีอยู่ใน Access ใช้มั้ยคะ เพราะลองใช้งานมัน มันรู้สึกว่ามันไม่ใช่ปุ่มแก้ไขอ่ะค่ะ



4.ในฟอร์มลงทะเบียนวิทยากรกับลงทะเบียนพนักงานที่เข้าอบรมอ่ะค่ะ ถ้าในการอบรมครั้งนึง มีพนักงานหรือวิทยากรหลายคน มันต้อสร้างตารางขึ้นมาใหม่หรือเปล่าคะ เพื่อให้มันบันทึกเข้าระบบได้อ่ะค่ะ




ถ้าหนูถามเยอะไปหนูขออภัยด้วยนะคะ เพราะไม่มีเวลานั่งศึกษาด้วยตัวเองแล้วอ่ะค่ะ งานที่ บริษัทก็มากโขล่ะ มาเจองานที่วิทลัยที่สั่งงานมาเท่าภูเขาอีก 

[ปิ่นณรงค์]

ชื่อของ Field ผมว่าเปลี่ยนไปใช้ภาษาอังกกษดีกว่าครับ จะได้ไม่มีปัญหาภายหลัง
ส่วน error ต่างๆ ให้ส่งไฟล์ที่ทำอยู่มาที่ pinnarong1115@hotmail.com
เดี่ยวผมดูให้ครับ

[MyDDT]

ชื่อของ Field ผมว่าเปลี่ยนไปใช้ภาษาอังกกษดีกว่าครับ จะได้ไม่มีปัญหาภายหลัง
ส่วน error ต่างๆ ให้ส่งไฟล์ที่ทำอยู่มาที่ pinnarong1115@hotmail.com
เดี่ยวผมดูให้ครับ

ส่งไฟล์ให้ในเมล์แล้วนะคะ รบกวนด้วยค่าา

[ปิ่นณรงค์]

ไฟล์ที่ส่งมาไม่สามารถโหลดได้ครับ คุณต้อง Zip ไฟล์ แล้ว Attach File ส่งเมลมาครับไม่งั้นผมจะไม่สามารถโหลดได้

[MyDDT]

ส่งใหม่แล้วนะคะ ขออภัยด้วยค่ะ

[MyDDT]

อาจารย์คะ หนูมีคำถาม ส่งไปถามอาจารย์ทางอีเมล์ รบกวนอาจารย์ช่วยดูให้หน่อยนะคะ ขอบคุณมากค่ะ