ข้อความโดย: admin
« เมื่อ: 05/01/15 »งานรับฝ้อง>>>ฝากขัง สรุปการแก้ไข
1.ใช้ฟอร์มใหม่ ย้ายรายงานเก่ามาทับ ลดขั้นตอนจัดรายงาน
2. มันจะติดตรงชื่อสกุล ให้ไปสร้างตารางจำเลยหมายใหม่โดยใช้โครงสร้างตารางจำเลยหมายเดิม โดยคัดลอกวางเอาแต่โครงสร้างตาราง จากนั้นก็ใส่คีย์หลัก ที่หมายเลขดำที่/พศ กับชื่อ และนามสกุล จากนั้นเซฟ แล้วค่อยก๊อปปี้ข้อมูลเก่าไปวางในตารางจำเลยหมายใหม่ ข้อมูลจะขาดไปบ้างแต่ไม่ต้องสนใจ เพราะข้อมูลที่ขาดส่วนใหญ่จะคียไม่ครบถ้วน กดโอเคอย่างเดียว
3. ตอนนี้คีย์ข้อมูลได้แต่จำเลยที่2 เป็นต้นไปจะไม่โชว์ ต้องเขียนโค้ดใหม่ตามรูปที่ไฮไลต์โค้ดไว้ ตรงซับฟอร์ม subจำเลยผัดฟ้อง-ฟิลด์ ass ไปที่ event เมื่อจบการทำงาน แก้ไขตรงนี้ครับ จะสามารถแสดงรายการได้ครบถ้วน แก้ไข ลบข้อมูลได้ทุกตารางที่เชื่อมกัน(จำเลยกับจำเลยหมาย)
ผู้ต้องหาขึ้นชื่อหมดไหม? เพราะมันขึ้นแค่คนที่1 เลยต้องแก้โค้ด เอาเป็นว่าของใครชื่อขึ้นแค่ 1 คนทำตามนี้นะครับ ไม่รู้จะเป็นเหมือนกันทุกศาลไหม?
Private Sub ass_Exit(Cancel As Integer)
ass = Trim(ass)
If xxx <> "" Then
Cancel = False
If ass <> "" Then
Cancel = False
KV = "ÊͺÊǹ"
Forms!ËÁÒ¢ѧÃÐËÇèÒ§ÊͺÊǹ!sub¨ÓàżѴ¿éͧ!Text134 = ass
Forms!ËÁÒ¢ѧÃÐËÇèÒ§ÊͺÊǹ!sub¨ÓàżѴ¿éͧ!Text133 = Forms!ËÁÒ¢ѧÃÐËÇèÒ§ÊͺÊǹ!rubfongmainkey
Else
Cancel = True
xxxx.SetFocus
End If
Else
xxx.SetFocus
DoCmd.RunCommand acCmdUndo
Forms!ËÁÒ¢ѧÃÐËÇèÒ§ÊͺÊǹ!koha.SetFocus
End If
End Sub
1.ใช้ฟอร์มใหม่ ย้ายรายงานเก่ามาทับ ลดขั้นตอนจัดรายงาน
2. มันจะติดตรงชื่อสกุล ให้ไปสร้างตารางจำเลยหมายใหม่โดยใช้โครงสร้างตารางจำเลยหมายเดิม โดยคัดลอกวางเอาแต่โครงสร้างตาราง จากนั้นก็ใส่คีย์หลัก ที่หมายเลขดำที่/พศ กับชื่อ และนามสกุล จากนั้นเซฟ แล้วค่อยก๊อปปี้ข้อมูลเก่าไปวางในตารางจำเลยหมายใหม่ ข้อมูลจะขาดไปบ้างแต่ไม่ต้องสนใจ เพราะข้อมูลที่ขาดส่วนใหญ่จะคียไม่ครบถ้วน กดโอเคอย่างเดียว
3. ตอนนี้คีย์ข้อมูลได้แต่จำเลยที่2 เป็นต้นไปจะไม่โชว์ ต้องเขียนโค้ดใหม่ตามรูปที่ไฮไลต์โค้ดไว้ ตรงซับฟอร์ม subจำเลยผัดฟ้อง-ฟิลด์ ass ไปที่ event เมื่อจบการทำงาน แก้ไขตรงนี้ครับ จะสามารถแสดงรายการได้ครบถ้วน แก้ไข ลบข้อมูลได้ทุกตารางที่เชื่อมกัน(จำเลยกับจำเลยหมาย)
ผู้ต้องหาขึ้นชื่อหมดไหม? เพราะมันขึ้นแค่คนที่1 เลยต้องแก้โค้ด เอาเป็นว่าของใครชื่อขึ้นแค่ 1 คนทำตามนี้นะครับ ไม่รู้จะเป็นเหมือนกันทุกศาลไหม?
Private Sub ass_Exit(Cancel As Integer)
ass = Trim(ass)
If xxx <> "" Then
Cancel = False
If ass <> "" Then
Cancel = False
KV = "ÊͺÊǹ"
Forms!ËÁÒ¢ѧÃÐËÇèÒ§ÊͺÊǹ!sub¨ÓàżѴ¿éͧ!Text134 = ass
Forms!ËÁÒ¢ѧÃÐËÇèÒ§ÊͺÊǹ!sub¨ÓàżѴ¿éͧ!Text133 = Forms!ËÁÒ¢ѧÃÐËÇèÒ§ÊͺÊǹ!rubfongmainkey
Else
Cancel = True
xxxx.SetFocus
End If
Else
xxx.SetFocus
DoCmd.RunCommand acCmdUndo
Forms!ËÁÒ¢ѧÃÐËÇèÒ§ÊͺÊǹ!koha.SetFocus
End If
End Sub