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

[MyDDT]

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

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

ปล.ภาพประกอบไม่มี ไฟล์งานอยู่ที่บ้าน ต้องขออภัยด้วยนะคะ

[ปิ่นณรงค์]

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

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

ปล.ภาพประกอบไม่มี ไฟล์งานอยู่ที่บ้าน ต้องขออภัยด้วยนะคะ

1.คำสั่ง ที่เมื่อกดบันทึกข้อมูลแล้ว แสดงข้อความแจ้ง Code ให้ใส่ Code ในส่วนท้ายของ คำสั่งบันทึกประมาณนี้ครับ

โค๊ด: [Select]

MSGBOX "บันทึกข้อมูลเรียบร้อยแล้ว", vbInformation, "สถานะ"
2.SubForm นั้นต้องมีการเชื่อมโยงเขตข้อมูลหลัก กับ เขตข้อมูลลูก คุณต้องกำหนด การเชื่อมโยงกันด้วยครับ
ปกติจะกำหนด ID ของ ฟอร์มหลัก เชื่อมกับ ID ของฟอร์มย่อย(SubForm)
วิธีการกำหนด สามารถไปกำหนดได้ที่ ส่วนคุณสมบัติของ Subform ตรงส่วนของข้อมูล

[MyDDT]

สอบถามนิดนึงค่ะว่า ตรง หน้าต่างใส่โค้ด VBA อ่ะค่ะ มันไม่อ่านภาษาไทย ต้องแก้ตรงไหนหรอคะ

[ปิ่นณรงค์]

สอบถามนิดนึงค่ะว่า ตรง หน้าต่างใส่โค้ด VBA อ่ะค่ะ มันไม่อ่านภาษาไทย ต้องแก้ตรงไหนหรอคะ

ที่หน้าต่างใส่โค้ด ไปที  Tool > Option > Editor Format
ที่ Font กำหนดเป็น Tahoma Bold (Thai)  หรือ ฟ้อนอื่นๆ ที่มีคำว่า(thai) ต่อท้ายอยู่ครับ

[MyDDT]

ถ้าอยากจะสอบถามอะไรเพิ่มเติมนี่ มีช่องทางติดต่อบ้างมั้ยคะ พอดีได้ทำโปรเจค อยากมีที่ปรึกษาเกี่ยวกับ Access อ่ะค่ะ ไม่มีพื้นฐานอะไรเลย

[ปิ่นณรงค์]

ถ้าอยากจะสอบถามอะไรเพิ่มเติมนี่ มีช่องทางติดต่อบ้างมั้ยคะ พอดีได้ทำโปรเจค อยากมีที่ปรึกษาเกี่ยวกับ Access อ่ะค่ะ ไม่มีพื้นฐานอะไรเลย

สามารถศึกษาจากที่นี้ได้เลยครับ ติดปัญหาตรงไหน จะมีอาจารย์หลายๆ และเพื่อนสมาชิกหลายท่านๆ ช่วยแนะนำวิธีการให้ครับ คุณสามารถโพสกระทู้สอบถามได้เลยไม่ต้องเกรงใจครับ ถ้าสนใจศึกษา Access แต่ยังไม่ค่อยเข้าใจวิธีการ ให้ลองศึกษาที่ช่องของอาจารย์ TTT http://www.youtube.com/c/AccessCreator
มีการสอนสร้างโปรแกรมโดยใช้ Access อยู่มากมายให้ศึกษาครับ ตั้งแต่การหัดสร้างฐานข้อมูล ซึ่งเป็นส่วนที่สำคัญตั้งแต่เริ่มต้นสร้างโปรแกรม
มีการทำตัวอย่างให้ดูด้วยครับ

ถ้าสงสัยแบบเจาะจง เป็นส่วนๆก็สอบถามที่ เว็บนี้ได้เลยครับ

[MyDDT]

ถ้าอยากจะสอบถามอะไรเพิ่มเติมนี่ มีช่องทางติดต่อบ้างมั้ยคะ พอดีได้ทำโปรเจค อยากมีที่ปรึกษาเกี่ยวกับ Access อ่ะค่ะ ไม่มีพื้นฐานอะไรเลย

สามารถศึกษาจากที่นี้ได้เลยครับ ติดปัญหาตรงไหน จะมีอาจารย์หลายๆ และเพื่อนสมาชิกหลายท่านๆ ช่วยแนะนำวิธีการให้ครับ คุณสามารถโพสกระทู้สอบถามได้เลยไม่ต้องเกรงใจครับ ถ้าสนใจศึกษา Access แต่ยังไม่ค่อยเข้าใจวิธีการ ให้ลองศึกษาที่ช่องของอาจารย์ TTT http://www.youtube.com/c/AccessCreator
มีการสอนสร้างโปรแกรมโดยใช้ Access อยู่มากมายให้ศึกษาครับ ตั้งแต่การหัดสร้างฐานข้อมูล ซึ่งเป็นส่วนที่สำคัญตั้งแต่เริ่มต้นสร้างโปรแกรม
มีการทำตัวอย่างให้ดูด้วยครับ

ถ้าสงสัยแบบเจาะจง เป็นส่วนๆก็สอบถามที่ เว็บนี้ได้เลยครับ

ขอบคุณมากนะคะ...งั้นไม่เกรงใจล่ะนะคะ อิอิ มีคำถามพอดีกำลังนั่งทำอยู่ค่ะ
1.ตรงช่องที่ 1 อ่ะค่ะ จะมี 2 อันให้เลือก คือ ยังทำงาน กับ ลาออกแล้ว ถ้าเลือกว่า ยังทำงานอยู่ อยากให้ช่องที่ 2 มันไม่สามารถกรอกข้อมูลได้อ่ะค่ะ แต่ถ้าเลือก ลาออกแล้ว ก็จะสามารถกรอกข้อมูลลงในช่องที่ 2 ได้ค่ะ


2.คือตามภาพเลยค่ะ พอเรากรอกข้อมูล (อันนี้ลองกรอกเล่นดูค่ะว่ามันจะได้หรือไม่) ข้อมูลมันขึ้นเป็น 2 แถวอย่างที่เห็นในกรอบแดง พอแอดข้อมูลเข้าใหม่ ข้อมูลที่บันทึกไปแล้ว มันหายไปอ่ะค่ะ อันนี้ต้องไปแก้ตรงส่วนไหนหรอคะ

[ปิ่นณรงค์]

ตอบข้อ 1
ผมกำหนด combobox สถานะ ชื่อ status
             textbox    วันที่ลาออก ชื่อ DateOut
             combobox สาเหตุการลาออก ชื่อ OutDetail

ที่Event Afterupdate ของ combobox status ใส่โค้ดดังนี้

โค๊ด: [Select]

Private Sub Status_AfterUpdate()
If Me.Status = "ยังทำงานอยู่" Then
Me.OutDetail.Locked = True
Me.DateOut.Locked = True
Me.OutDetail.Enabled = False
Me.DateOut.Enabled = False
Me.OutDetail = Null
Me.DateOut = Null
Else
Me.OutDetail.Locked = False
Me.DateOut.Locked = False
Me.OutDetail.Enabled = True
Me.DateOut.Enabled = True
End If
End Sub

คำสั่งนี้ เราใช้ IF Function เพื่อสร้างเงื่อนไขการทำงานของ Combobox และ Textbox ที่เรากำหนด  ถ้า เราเลือก ยังทำงานอยู่ ซึ่งกำหนดให้ เป็นความจริง ก็จะทำงานตามที่เรากำหนดไว้ แต่ถ้าไม่เป็นจริงก็จะทำงาน ที่ Else ลงมา
Locked คือ ห้ามไม่ให้กรอกข้อมูลได้
Enabled คือ ปิดการใช้งาน
Null คือ ถ้ามีข้อมูลอยู่ก็ทำให้เป็นค่าว่าง

ข้อสองน่าจะกำหนด RelationShip ไม่ถูกต้อง และตั้งค่า เชื่อมต่อ ตรง Link master กับ Link Child Field ไม่ถูกต้องครับ

ตัวอย่างด้านล่าง

[ปิ่นณรงค์]

ข้อสอง ลองดูตัวอย่างโปรแกรม ที่มีการใช้ SubForm นะครับ คุณต้องกำหนด เชื่อมข้อมูลเข้าด้วยกันโดยใช้ ID ของฟอร์มหลักและฟอร์มย่อยเข้าด้วยกัน ข้อมูลถึงจะได้เป็นอันเดียวกัน

และต้องไปกำหนด ความสัมพันธ์ของตารางด้วยครับ


ตัวอย่างโปรแกรมครับลองนำไปประยุกต์ใช้ดูนะครับ

[MyDDT]

ทำไมทำไม่ได้อ่ะคะ ลองทำตามที่อาจารย์แนะนำแล้ว แต่มันก็ยังเป็นแบบเดิมเลยอ่ะค่ะ มีตรงไหนที่ต้องเพิ่มเติมหรือป่าวคะ

[ปิ่นณรงค์]

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

[MyDDT]

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

ใช่เลยค่ะ เหมือนบันทึกจากฟอร์มหลักลงฟอร์มย่อยอ่ะค่ะ พอกดบันทึก ช่องก็จะว่างให้เราบันทึก Record ต่อไปได้ อะไรประมาณนี้อ่ะค่ะ

[ปิ่นณรงค์]

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

ใช่เลยค่ะ เหมือนบันทึกจากฟอร์มหลักลงฟอร์มย่อยอ่ะค่ะ พอกดบันทึก ช่องก็จะว่างให้เราบันทึก Record ต่อไปได้ อะไรประมาณนี้อ่ะค่ะ

งั้นก็เอา การตั้งค่าตรง หัวข้อที่ 3 ออกไปครับ

Form หลัก และ Form ย่อย ใช้ RecordSource จากตารางเดียวกัน
สมมุติชื่อ ฟอร์มย่อยว่า Subform
ที่ปุ่ม บันทึกใส่แบบนี้ครับ

โค๊ด: [Select]

Private Sub Save_Click()
DoCmd.GoToRecord , , acNewRec
subform.Requery
MsgBox "บันทึกข้อมูลแล้วค่ะ", vbInformation, "สถานะ"
End Sub

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

[MyDDT]

ขอบคุณค่ะ เดี๋ยวลองไปแก้ไขดูก่อนนะคะ อาจจะได้รบกวนบ่อยเลย เพราะเร็วๆนี้จะต้องให้อาจารย์ที่วิทลัยตรวจงานแล้ว ขอบคุณอาจารย์ปิ่นณรงค์มากเลยนะคะ

[ปิ่นณรงค์]

ที่จริง ถ้าจะให้ Advance อีกนิด เราสามารถสร้าง Control แบบ Unbound น่าจะเวิคนะครับ

ตัวอย่างเพื่อจะนำไปปรับใช้

คำสั่งในการบันทึกข้อมูล

โค๊ด: [Select]

Private Sub Save_Click()
Call AddNewToTable
subform.Requery
MsgBox "บันทึกข้อมูลแล้วค่ะ", vbInformation, "สถานะ"
Call ResetForm
End Sub

โค๊ด: [Select]

Sub AddNewToTable()
On Error GoTo Err_Err
    Dim DB As Database
    Dim rs As Recordset
    Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("BillHead", dbOpenDynaset)
    rs.AddNew
    rs![BillNumber] = Me.BillNumber
    rs![CustomerName] = Me.CustomerName
    rs![CustomerLastName] = Me.CustomerLastName
    rs![Tel1] = Me.Tel1
    rs![Tel2] = Me.Tel2
    rs.Update
Exit_err:
        Exit Sub
Err_Err:
        MsgBox Error$
        MsgBox "Error, ( Add New)!", vbExclamation, "แจ้ง"
        Resume Exit_err
End Sub
คำสั่งทำให้ ข้อมูลจากตัว Control บนฟอร์ม เป็นค่าว่าง

โค๊ด: [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

ประมาณนี้ครับ

[MyDDT]

ขอบคุณค่ะ แล้วพอจะมีทางแก้ปัญหานี้มั้ยคะ คือเราเซฟไฟล์ Access ที่บ้านมา ว่าจะมานั่งทำที่ทำงาน ที่บ้านเป็น 2010 ที่ทำงานเป็น 2007 WinXP พอเปิดไฟล์ขึ้นมา มันขึ้นว่า "รูปแบบฐานข้อมูลที่ไม่รู้จัก 'C:\...' " ประมานนี้อ่ะค่ะ แล้วก็เข้าไม่ได้เลย มาหน้าเริ่มต้นสร้าง Blank Database ใหม่เลยอ่าค่ะ

เดี๋ยวขอทิ้งคำถามไว้หน่อยละกันนะคะ
1.การคำนวณอายุ ถ้าต้องการให้ตอนกรอกประวัติพนักงาน กรอกวันเกิด/วันเริ่มงานเสร็จแล้ว ให้อายุ/อายุงานมันขึ้นเลยได้หรือป่าวคะ หรือถ้าไม่ได้ เราให้มันคำนวณตอนกดเซฟได้หรือป่าวคะ เพราะเมื่อวานลองลงโค้ดคำนวณดู มันเออเร่ออ่ะค่ะ เหมือนตัวเองจะยังไม่ค่อยเข้าใจหลักการของการวางโค้ดเลยค่ะ

2.คำนวณชั่วโมงการทำงานทั้งหมด อย่างสมมุติ น.ส.สวย เข้างาน= 08.00น. ออกงาน = 17.00น. ชั่วโมงทำงาน = 08.00 ชม. แบบนี้ต้องคำนวณอย่างไร ตั้งชนิดข้อมูลของเข้างาน,ออกงาน เป็น Date/Time นี่คือถูกต้องแล้วใช่มั้ยคะ

3.คือเรามีตารางเก็บข้อมูลการลางานแบบนี้ 01=มาทำงานปกติ 02=ลาป่วย 03=ลากิจ ... ถ้าต้องการให้มีช่อง2ช่อง ช่อง1 เป็นช่องเล็กๆไว้ใส่เลข 01 แล้วช่องที่2 ให้มันเด้งขึ้นมาเองว่า มาทำงานปกติ ประมาณนี้ ถ้าเราเปลี่ยนแปลงตัวเลข ตัวหนังสือก็เปลี่ยนตามไปด้วย ประมาณนี้อ่ะค่ะ ต้องทำอย่างไรคะ

ภาพประกอบค่ะ

ขออภัยด้วยนะคะที่ต้องวาดให้ดูแทนที่จะแคปหน้าจอเอา เพราะคอมไม่เอื้ออำนวยจริงๆ ขอโทษด้วยนะคะ

[ปิ่นณรงค์]

1.การคำนวณอายุ ถ้าต้องการให้ตอนกรอกประวัติพนักงาน กรอกวันเกิด/วันเริ่มงานเสร็จแล้ว ให้อายุ/อายุงานมันขึ้นเลยได้หรือป่าวคะ หรือถ้าไม่ได้ เราให้มันคำนวณตอนกดเซฟได้หรือป่าวคะ เพราะเมื่อวานลองลงโค้ดคำนวณดู มันเออเร่ออ่ะค่ะ เหมือนตัวเองจะยังไม่ค่อยเข้าใจหลักการของการวางโค้ดเลยค่ะ

 การคำนวนหาช่วงปี เดือน วัน หรือ เวลา เราสามารถใช้ DateDiff ในการหาค่าต่างๆ
เช่น การหาค่าอายุ  และ การหาอายุการทำงาน
ผมกำหนด
textbox ที่จะแสดงอายุชื่อ Age
และ textbox ที่จะระบุอายุชื่อ Birthday
โค้ดประมาณนี้ครับ

โค๊ด: [Select]

Me.Age = Int(DateDiff("m", [Birthday], Now()) / 12) & " ปี " & (DateDiff("m", [Birthday], Now()) Mod 12) & "เดือน " & Int(DateDiff("d", [Birthday], Now()) Mod 12) & " วัน "
การหา อายุงานใช้วิธีการเดียวกันครับ

2.คำนวณชั่วโมงการทำงานทั้งหมด อย่างสมมุติ น.ส.สวย เข้างาน= 08.00น. ออกงาน = 17.00น. ชั่วโมงทำงาน = 08.00 ชม. แบบนี้ต้องคำนวณอย่างไร ตั้งชนิดข้อมูลของเข้างาน,ออกงาน เป็น Date/Time นี่คือถูกต้องแล้วใช่มั้ยคะ

ผมสมมุติ textbox  3 อัน ชื่อ Timestart   ,   TimeEnd      ,    CalcTime
โดยจะกำหนดให้คำนวนเวลาทำงาน เมื่อระบุเวลา เริ่มและสินสุดการทำงาน และแสดงใน textbox ชื่อ Calctime
ตัวอย่างโค้ด

โค๊ด: [Select]

Sub CalTime()
If Me.TimeEnd < Me.TimeStart Then
Me.CalcTime = (DateDiff("h", [TimeStart], [TimeEnd]) + 24) & " ชั่วโมง"
Else
Me.CalcTime = DateDiff("h", [TimeStart], [TimeEnd]) & " ชั่วโมง"
End If
End Sub

Private Sub TimeEnd_AfterUpdate()
Call CalTime
End Sub
Private Sub TimeStart_AfterUpdate()
Call CalTime
End Sub

3.คือเรามีตารางเก็บข้อมูลการลางานแบบนี้ 01=มาทำงานปกติ 02=ลาป่วย 03=ลากิจ ... ถ้าต้องการให้มีช่อง2ช่อง ช่อง1 เป็นช่องเล็กๆไว้ใส่เลข 01 แล้วช่องที่2 ให้มันเด้งขึ้นมาเองว่า มาทำงานปกติ ประมาณนี้ ถ้าเราเปลี่ยนแปลงตัวเลข ตัวหนังสือก็เปลี่ยนตามไปด้วย ประมาณนี้อ่ะค่ะ ต้องทำอย่างไรคะ

วิธีการคือให้ไปดูการกำหนด แหล่งข้อมูลแถว  ของตัว Combobox นะครับ
สังเกตุดูจะเห็นว่า เราดึง Field ID และ Field Status ลงมาเพื่อใช้เป็น list ของ Combobox
ถ้าเราต้องการให้ กด เลือก ข้อมูลจาก Combobox แล้ว textbox ก็แสดง status ตรงกับ ID นั้น
ก็กำหนดแบบนี้ครับ ที่ Event Afterupdate

โค๊ด: [Select]

Private Sub Combo16_AfterUpdate()
Me.status = Me.Combo16.Column(1)
End Sub
ความหมาย ของ .Column(1) คือการเอา รายการจาก ตัว Combobox คอลัมน์ที่ 2 มาแสดง ใน textbox โดย .Column(0) คือคอลัมน์แรก ส่วน คอลัมน์ ต่อๆไป ก็สามารถระบุ 1 2 3 4 5 ไปเรื่อยๆ ได้ครับ

[MyDDT]

ขอบคุณสำหรับข้อมูลนะคะ เดี๋ยวเลิกงานจะรีบกลับไปลองแก้ไขดูเลยค่ะ

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