1
ห้อง MS Access / : รบกวนช่วยดู code สำหรับสร้าง link table ให้หน่อยครับ
« เมื่อ: 12 ก.พ. 65 , 12:05:02 »
ผมมีตาราง 3 ตาราง Tb_Login,Tb_Recuit,Sdgorat_reservist
แสดงกระทู้
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
2
ห้อง MS Access / : รบกวนช่วยดู code สำหรับสร้าง link table ให้หน่อยครับ
« เมื่อ: 12 ก.พ. 65 , 05:30:57 »
ขอรบกวนช่วยแนะนำวิธีการทำหน่อยครับ หรือมีตัวอย่างที่ใช้งานด้วยก็ดีครับ
%%%ตอนนี้ผมใช้ลิงค์ตารางโดยตรง%%%
%%%ตอนนี้ผมใช้ลิงค์ตารางโดยตรง%%%
3
ห้อง MS Access / : เขียน iif ลงเงื่อนไข รวมข้อมูลเรคคอด
« เมื่อ: 09 ต.ค. 64 , 12:37:50 »
=IIf([หมู่ที่]="-"," ",IIf([หมู่ที่]<>"","ม."&[หมู่ที่],""))
4
ห้อง MS Access / : การกำหนดห้วงอายุและสถานะ
« เมื่อ: 30 ก.ย. 64 , 13:50:27 »
ใช่ครับ เช่น อายุ 63 ปี ยังเป็น นายทหารสัญญาบัตรนอกรราชการ น่าจะเป็น พ้นราชการทหาร
5
ห้อง MS Access / การกำหนดห้วงอายุและสถานะ
« เมื่อ: 30 ก.ย. 64 , 05:59:16 »
เรียน ท่านอาจารย์ทุกท่านครับ
ผมจะกำหนดสถานะบุคคล มีข้อมูลดังนี้
ยศ....ร.ต.- ร.อ. อายุไม่เกิน 45 ปี =นายทหารสัญญาบัตรกองหนุน อายุเกิน 45 ปี แต่ไม่เกิน 55 ปี =นายทหารสัญญาบัตรนอกราชการ
อายุุเกิน 55 ปี =พ้นราชการทหาร
ยศ....พ.ต. - พ.ท. อายุไม่เกิน 50 ปี =นายทหารสัญญาบัตรกองหนุน อายุเกิน 50 ปี แต่ไม่เกิน 60 ปี =นายทหารสัญญาบัตรนอกราชการ
อายุุเกิน 60 ปี =พ้นราชการทหาร
ยศ....พ.อ.- พล.อ. อายุไม่เกิน 55 ปี =นายทหารสัญญาบัตรกองหนุน อายุเกิน 55 ปี แต่ไม่เกิน 65 ปี =นายทหารสัญญาบัตรนอกราชการ
อายุุเกิน 65 ปี =พ้นราชการทหาร
ผมเขียน IIF แล้วแสดงผลออกมา"ไม่ถูกต้อง"ขอความช่วยเหลือด้วยครับ
=Nz(IIf([Text117]<="45","นายทหารสัญญาบัตรกองหนุน",IIf([text117]<="50","นายทหารสัญญาบัตรกองหนุน",IIf([text117]>"45"<="55","นายทหารสัญญาบัตรนอกราชการ",IIf([text117]>"50"<="60","นายทหารสัญญาบัตรนอกราชการ",IIf([text117]>"55","พ้นราชการทหาร",IIf([text117]>"60","พ้นราชการทหาร")))))))
ผมจะกำหนดสถานะบุคคล มีข้อมูลดังนี้
ยศ....ร.ต.- ร.อ. อายุไม่เกิน 45 ปี =นายทหารสัญญาบัตรกองหนุน อายุเกิน 45 ปี แต่ไม่เกิน 55 ปี =นายทหารสัญญาบัตรนอกราชการ
อายุุเกิน 55 ปี =พ้นราชการทหาร
ยศ....พ.ต. - พ.ท. อายุไม่เกิน 50 ปี =นายทหารสัญญาบัตรกองหนุน อายุเกิน 50 ปี แต่ไม่เกิน 60 ปี =นายทหารสัญญาบัตรนอกราชการ
อายุุเกิน 60 ปี =พ้นราชการทหาร
ยศ....พ.อ.- พล.อ. อายุไม่เกิน 55 ปี =นายทหารสัญญาบัตรกองหนุน อายุเกิน 55 ปี แต่ไม่เกิน 65 ปี =นายทหารสัญญาบัตรนอกราชการ
อายุุเกิน 65 ปี =พ้นราชการทหาร
ผมเขียน IIF แล้วแสดงผลออกมา"ไม่ถูกต้อง"ขอความช่วยเหลือด้วยครับ
=Nz(IIf([Text117]<="45","นายทหารสัญญาบัตรกองหนุน",IIf([text117]<="50","นายทหารสัญญาบัตรกองหนุน",IIf([text117]>"45"<="55","นายทหารสัญญาบัตรนอกราชการ",IIf([text117]>"50"<="60","นายทหารสัญญาบัตรนอกราชการ",IIf([text117]>"55","พ้นราชการทหาร",IIf([text117]>"60","พ้นราชการทหาร")))))))
6
ห้อง MS Access / ขอเพิ่มโค๊ตค้นหา
« เมื่อ: 24 ส.ค. 64 , 06:38:15 »
Private Sub TextFind_AfterUpdate()
On Error GoTo Err_Find
Dim CutFName As String
Dim CutLName As String
Dim len_name As Byte
If IsNumeric(TextFind) Then 'MsgBox "เป็นตัวเลข"
DoCmd.ApplyFilter , "รหัสประจำตัว like '" & [TextFind] & "*'เลขประจำตัวประชาชน like '" & [TextFind] & "*'"
len_name = 0
End If
If Not IsNumeric(TextFind) Then 'MsgBox "เป็นตัวหนังสือ"
len_name = InStr([TextFind], " ")
If len_name > 0 Then
CutFName = Left([TextFind], [len_name] - 1)
CutLName = Right([TextFind], Len(TextFind) - [len_name])
DoCmd.ApplyFilter , "ชื่อ like '" & [CutFName] & "*' and นามสกุล Like '" & [CutLName] & "*'"
Else
DoCmd.ApplyFilter , "ชื่อ like '" & [TextFind] & "*' Or นามสกุล Like '" & [TextFind] & "*'"
End If
End If
TextFind = Null
TextFind.SetFocus
Exit Sub
Err_Find:
TextFind = Null
TextFind.SetFocus
End Sub
ผมต้องการ ค้นหาพบ ให้แสดงข้อมูล (ปัจจุบันเป็นเช่นนั้นแล้ว) แต่หากค้นหาไม่พบให้แสดง .ข้อความว่าไม่พบ. (แบบเดิมแสดงเป็นแถวว่างไม่มีข้อมูล เหมือนการเพิ่มแถวอัตโนมัติ ตรวจสอบใน Mysql) จะเพิ่มโค๊ตตรงไหนครับ
On Error GoTo Err_Find
Dim CutFName As String
Dim CutLName As String
Dim len_name As Byte
If IsNumeric(TextFind) Then 'MsgBox "เป็นตัวเลข"
DoCmd.ApplyFilter , "รหัสประจำตัว like '" & [TextFind] & "*'เลขประจำตัวประชาชน like '" & [TextFind] & "*'"
len_name = 0
End If
If Not IsNumeric(TextFind) Then 'MsgBox "เป็นตัวหนังสือ"
len_name = InStr([TextFind], " ")
If len_name > 0 Then
CutFName = Left([TextFind], [len_name] - 1)
CutLName = Right([TextFind], Len(TextFind) - [len_name])
DoCmd.ApplyFilter , "ชื่อ like '" & [CutFName] & "*' and นามสกุล Like '" & [CutLName] & "*'"
Else
DoCmd.ApplyFilter , "ชื่อ like '" & [TextFind] & "*' Or นามสกุล Like '" & [TextFind] & "*'"
End If
End If
TextFind = Null
TextFind.SetFocus
Exit Sub
Err_Find:
TextFind = Null
TextFind.SetFocus
End Sub
ผมต้องการ ค้นหาพบ ให้แสดงข้อมูล (ปัจจุบันเป็นเช่นนั้นแล้ว) แต่หากค้นหาไม่พบให้แสดง .ข้อความว่าไม่พบ. (แบบเดิมแสดงเป็นแถวว่างไม่มีข้อมูล เหมือนการเพิ่มแถวอัตโนมัติ ตรวจสอบใน Mysql) จะเพิ่มโค๊ตตรงไหนครับ
7
ห้อง MS Access / : ขอคำสั่ง UPDATE หลายแถวพร้อมกัน
« เมื่อ: 03 ก.ค. 64 , 06:44:55 »
ไปต่อไม่ได้ขอให้ท่านอาจารย์ช่วยหน่อยนะครับ
8
ห้องสนทนาทั่วไป / ขอความช่วยเหลือผมโดน .sspq virus
« เมื่อ: 21 มิ.ย. 64 , 21:44:39 »
ผมโดน .sspq virus จัดการ ข้อมูลผมทุกไดร์ใช้งานไม่ได้เลย ท่านใดมีวิธีการแก้ไขช่วยแนะนำด้วยนะครับ ขอบพระคุณล่วงหน้านะครับ
9
ห้อง MS Access / : ขอคำสั่ง UPDATE หลายแถวพร้อมกัน
« เมื่อ: 19 มิ.ย. 64 , 20:47:09 »
เรียนเพิ่มเติมครับ
ชุดคำสั่งจะเอาผลลัพท์ค่าแรกของแถวไปเก็บที่ เลขที่สด1 ทุกแถวเลยครับ(เป็นตัวเลขเดียวกันท้งหมด)
ผมต้องการแบบนี้ครับ
เลขที่สด1 ผลลัพท์ รหัส ข้อมูล
1 1 30150144001 30150144000
2 2 30150144002 30150144000
8 8 30150144008 30150144000
ผมต้องการเอาผลลัพท์ที่ได้มาเก็บที่ฟิวส์ เลขที่สด1 เพียงกดปุ่มครั้งเดียวครับ
ชุดคำสั่งจะเอาผลลัพท์ค่าแรกของแถวไปเก็บที่ เลขที่สด1 ทุกแถวเลยครับ(เป็นตัวเลขเดียวกันท้งหมด)
ผมต้องการแบบนี้ครับ
เลขที่สด1 ผลลัพท์ รหัส ข้อมูล
1 1 30150144001 30150144000
2 2 30150144002 30150144000
8 8 30150144008 30150144000
ผมต้องการเอาผลลัพท์ที่ได้มาเก็บที่ฟิวส์ เลขที่สด1 เพียงกดปุ่มครั้งเดียวครับ
10
ห้อง MS Access / ขอคำสั่ง UPDATE หลายแถวพร้อมกัน
« เมื่อ: 17 มิ.ย. 64 , 19:05:30 »
ผมมีตาราง tb_recuit และได้สร้างคิวรีชื่อ select เพื่อกรองข้อมูลที่ต้องการ ซึ่งมีแถวมาก น้อย แล้วแต่ข้อมูลของพื้นที่ ต่อจากนั้นผมต้องการให้ฟิวส์"เลขที่สด1" update ผลจาก text1-text2=text3 ต้องการผลลัพท์มาใส่ เลขที่สด1 พร้อมกันทุกแถวที่เรากรองข้อมูลออกมา(แต่ไม่สำเร็จ)
Dim SQL As String
SQL = "UPDATE select SET select.เลขที่สด1 =Text188.value"
DoCmd.SetWarnings False
Me.Refresh
Dim SQL As String
SQL = "UPDATE select SET select.เลขที่สด1 =Text188.value"
DoCmd.SetWarnings False
Me.Refresh
11
ห้อง MS Access / : สร้าง comboBox โดยกำหนด ให้แสดงทั้งหมดหรือเฉพาะข้อมูล
« เมื่อ: 25 เม.ย. 64 , 09:23:26 »
ถ้าต้องการให้คิวรีกรองตามไปด้วย จทำอย่างไรครับ
13
ห้อง MS Access / : คำสั่ง yesNoCancel
« เมื่อ: 13 มี.ค. 64 , 20:11:35 »
อาจารย์ครับช่วยดูให้หน่อย...ไปไม่รอด...
กระบวนการ กด yes...ทุกขั้นตอน....เป็นไปตามขั้นตอนของ Case 6 'yes
กระบวนการ กด no...ทุกขั้นตอน....เป็นไปตามขั้นตอนของ Case 7 'No
กระบวนการ กด ขั้น 1 กด yes ขั้น 2 กด no...ขั้น 3 yes.....ไม่เป็นไปตามเงื่อนไข
กระบวนการ กด ขั้น 1 กด no ขั้น 2 กด yes...ขั้น 3 yes.....ไม่เป็นไปตามเงื่อนไข
*****สลับไปมาตามความต้องการ พิมพ์ข้อมูล และ ไม่ต้องการพิมพ์ข้อมูลครับ******
.......สุดท้ายของกระบวนการจะแสดง DoCmd.OpenForm "certificate"
Private Sub Command668_Click()
Dim RetValue As Variant
RetValue = MsgBox("ต้องการพิมพ์ใบแสดงตนเพื่อลงบัญชีทหารทหารกองเกิน (แบบ สด.44) ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "โปรดยืนยัน")................ขั้นที่ 1
Select Case RetValue
Case 6 'yes
DoCmd.OpenReport "SD44", acViewprint, , "[ID]=[Forms]![history].[ID]"
rst = MsgBox("ต้องการพิมพ์บัญชีทหารกองเกิน (แบบ สด.1) ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "โปรดยืนยัน")............ขั้นที่2
DoCmd.OpenReport "SD1", acViewprint, , "[ID]=[Forms]![history].[ID]"
rst = MsgBox("ต้องการพิมพ์บัญชีทหารกองเกิน ด้านหลัง ( แบบ สด.1)ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "โปรดยืนยัน")..............ขั้นที่3
DoCmd.OpenReport "SD11", acViewprint, , "[ID]=[Forms]![history].[ID]"
DoCmd.OpenForm "certificate"...........ขั้นที่ 4
Case 7 'No
rst = MsgBox("ต้องการพิมพ์บัญชีทหารกองเกิน (แบบ สด.1) ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "โปรดยืนยัน")
If rst = vbYes Then
DoCmd.OpenReport "SD1", acViewprint, , "[ID]=[Forms]![history].[ID]"
rst = MsgBox("ต้องการพิมพ์บัญชีทหารกองเกิน ด้านหลัง ( แบบ สด.1)ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "โปรดยืนยัน")
ElseIf rst = vbNo Then
rst = MsgBox("ต้องการพิมพ์บัญชีทหารกองเกิน ด้านหลัง ( แบบ สด.1)ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "โปรดยืนยัน")
If rst = vbYes Then
DoCmd.OpenReport "SD11", acViewprint, , "[ID]=[Forms]![history].[ID]"
DoCmd.OpenForm "certificate"
ElseIf rst = vbNo Then
DoCmd.OpenForm "certificate"
Else
Exit Sub
End If
End If
Case 2 'Cancle
''''
End Select
End Sub
กระบวนการ กด yes...ทุกขั้นตอน....เป็นไปตามขั้นตอนของ Case 6 'yes
กระบวนการ กด no...ทุกขั้นตอน....เป็นไปตามขั้นตอนของ Case 7 'No
กระบวนการ กด ขั้น 1 กด yes ขั้น 2 กด no...ขั้น 3 yes.....ไม่เป็นไปตามเงื่อนไข
กระบวนการ กด ขั้น 1 กด no ขั้น 2 กด yes...ขั้น 3 yes.....ไม่เป็นไปตามเงื่อนไข
*****สลับไปมาตามความต้องการ พิมพ์ข้อมูล และ ไม่ต้องการพิมพ์ข้อมูลครับ******
.......สุดท้ายของกระบวนการจะแสดง DoCmd.OpenForm "certificate"
Private Sub Command668_Click()
Dim RetValue As Variant
RetValue = MsgBox("ต้องการพิมพ์ใบแสดงตนเพื่อลงบัญชีทหารทหารกองเกิน (แบบ สด.44) ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "โปรดยืนยัน")................ขั้นที่ 1
Select Case RetValue
Case 6 'yes
DoCmd.OpenReport "SD44", acViewprint, , "[ID]=[Forms]![history].[ID]"
rst = MsgBox("ต้องการพิมพ์บัญชีทหารกองเกิน (แบบ สด.1) ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "โปรดยืนยัน")............ขั้นที่2
DoCmd.OpenReport "SD1", acViewprint, , "[ID]=[Forms]![history].[ID]"
rst = MsgBox("ต้องการพิมพ์บัญชีทหารกองเกิน ด้านหลัง ( แบบ สด.1)ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "โปรดยืนยัน")..............ขั้นที่3
DoCmd.OpenReport "SD11", acViewprint, , "[ID]=[Forms]![history].[ID]"
DoCmd.OpenForm "certificate"...........ขั้นที่ 4
Case 7 'No
rst = MsgBox("ต้องการพิมพ์บัญชีทหารกองเกิน (แบบ สด.1) ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "โปรดยืนยัน")
If rst = vbYes Then
DoCmd.OpenReport "SD1", acViewprint, , "[ID]=[Forms]![history].[ID]"
rst = MsgBox("ต้องการพิมพ์บัญชีทหารกองเกิน ด้านหลัง ( แบบ สด.1)ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "โปรดยืนยัน")
ElseIf rst = vbNo Then
rst = MsgBox("ต้องการพิมพ์บัญชีทหารกองเกิน ด้านหลัง ( แบบ สด.1)ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "โปรดยืนยัน")
If rst = vbYes Then
DoCmd.OpenReport "SD11", acViewprint, , "[ID]=[Forms]![history].[ID]"
DoCmd.OpenForm "certificate"
ElseIf rst = vbNo Then
DoCmd.OpenForm "certificate"
Else
Exit Sub
End If
End If
Case 2 'Cancle
''''
End Select
End Sub
14
ห้อง MS Access / : คำสั่ง yesNoCancel
« เมื่อ: 13 มี.ค. 64 , 06:26:18 »
อาจารย์ครับ..ถ้าเกิดเหตุการณ์มีเช่นนี้ 3 ครั้ง จะทำเช่นไรครับ
เช่น เหตุการณ์ 1 กด yes......พิมพ์
no.......ข้าม (แสดง Msg เข้าเหตุการณ์ที่ 2)
cancel....ยกเลิก
เหตุการณ์ 2 กด yes......พิมพ์
no.......ข้าม (แสดง Msg เข้าเหตุการณ์ที่ 3)
cancel....ยกเลิก
เหตุการณ์ 3 กด yes......พิมพ์
no.......ข้าม
cancel....ยกเลิก
เช่น เหตุการณ์ 1 กด yes......พิมพ์
no.......ข้าม (แสดง Msg เข้าเหตุการณ์ที่ 2)
cancel....ยกเลิก
เหตุการณ์ 2 กด yes......พิมพ์
no.......ข้าม (แสดง Msg เข้าเหตุการณ์ที่ 3)
cancel....ยกเลิก
เหตุการณ์ 3 กด yes......พิมพ์
no.......ข้าม
cancel....ยกเลิก
16
ห้อง MS Access / คำสั่ง yesNoCancel
« เมื่อ: 11 มี.ค. 64 , 10:38:25 »
เรียน ท่านอาจาจารย์ทุกท่านครับ
ผมติดขัดการเขียนคำสั่ง YES NO CANCEL ครับ
ผมสร้าง Msg ครับ ต้องการ กดปุ่ม YES พิมพ์ข้อมูล,หากกดปุ่ม NO ให้ Msg แจ้งขั้นตอนต่อไป,หากกดปุ่ม Cancel ยกเลิก(ปิด Msg)
ผมติดขัดการเขียนคำสั่ง YES NO CANCEL ครับ
ผมสร้าง Msg ครับ ต้องการ กดปุ่ม YES พิมพ์ข้อมูล,หากกดปุ่ม NO ให้ Msg แจ้งขั้นตอนต่อไป,หากกดปุ่ม Cancel ยกเลิก(ปิด Msg)
17
ห้อง MS Access / : เรียงลำดับซอยจากน้อยไปหามาก
« เมื่อ: 14 ม.ค. 64 , 18:17:46 »
ขอขอบพระคุณท่านอาจารย์มากครับ...สำเร็จแล้ว....
18
ห้อง MS Access / : เรียงลำดับซอยจากน้อยไปหามาก
« เมื่อ: 14 ม.ค. 64 , 04:51:34 »
อาจารย์ครับ ขอรบกวนท่านอีกครั้งครับ บางคนไม่ได้ระบุชื่อซอย (เป็นค่าว่าง) ไม่สามารถจัดเรียงได้
