1
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 / : ต้องการ Running sum ไปเรื่อยๆครับ โดยมี 00 นำหน้า
« เมื่อ: 07 ต.ค. 64 , 13:19:28 »
String ="00" & [Text30] ตรงนี้เอาไปใส่ไว้ในไหนหรอครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
3
ห้อง MS Access / : ต้องการ Running sum ไปเรื่อยๆครับ โดยมี 00 นำหน้า
« เมื่อ: 07 ต.ค. 64 , 11:55:47 »
สร้าง อีก TextBox นึง แล้วต่อ String ="00" & [Text30] จากนั้นซ่อน visible Text30 Running Sum เลือก Over All
ถ้าข้อมูลมีหลาย record จะแสดง 001,002,...,0010,...
ถ้าข้อมูลมีหลาย record จะแสดง 001,002,...,0010,...
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
4
ห้อง MS Access / : สอบถามการปิดเมนูบาร์
« เมื่อ: 28 พ.ค. 64 , 15:39:26 »
ขอบคุณมากครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
5
ห้อง MS Access / : ถ้าต้องการดึงข้อมูลปัจจุบันมาใช้ต้องเขียนยังไงคะ
« เมื่อ: 21 พ.ค. 64 , 16:42:04 »
ขอบคุณมากเลยนะคะ ทำได้แล้วค่ะ

โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
6
ห้อง MS Access / : ถ้าต้องการดึงข้อมูลปัจจุบันมาใช้ต้องเขียนยังไงคะ
« เมื่อ: 20 พ.ค. 64 , 08:37:11 »คือ ทำฟอร์มขึ้นมา 1 ฟอร์มแล้วบันทึกไว้ในตาราง A
จากนั้นสร้างฟอร์มที่ 2 ขึ้นมาแล้วอยากดึงข้อมูล ID(บันทึกเลขออโต้) ของตาราง A ที่เพิ่งบันทึกไปจากฟอร์มที่แล้วขึ้นมา
ต้องเขียนยังไงคะ
ปล.ดึงข้อมูลจากฟอร์มเก่าไม่ได้นะคะ
ใช้ Dmax() กรณีที่ ID คือตัวเลขก็จะได้ ID ที่มีตัวเลขมากที่สุด ลักษณะการใช้งานเช่น
Dmax("ID","[TableA]")
หรือถ้า ID ใน TableA ไม่ใช้ก็เลข ก็ใช้ Dlast เพื่อดึง ID ที่จัดเก็บไว้ล่าสุดมา ลักษณะการใช้งาน
DLast("ID","[TableA]")
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
7
ห้อง MS Access / ถ้าต้องการดึงข้อมูลปัจจุบันมาใช้ต้องเขียนยังไงคะ
« เมื่อ: 20 พ.ค. 64 , 01:21:49 »
คือ ทำฟอร์มขึ้นมา 1 ฟอร์มแล้วบันทึกไว้ในตาราง A
จากนั้นสร้างฟอร์มที่ 2 ขึ้นมาแล้วอยากดึงข้อมูล ID(บันทึกเลขออโต้) ของตาราง A ที่เพิ่งบันทึกไปจากฟอร์มที่แล้วขึ้นมา
ต้องเขียนยังไงคะ
ปล.ดึงข้อมูลจากฟอร์มเก่าไม่ได้นะคะ
จากนั้นสร้างฟอร์มที่ 2 ขึ้นมาแล้วอยากดึงข้อมูล ID(บันทึกเลขออโต้) ของตาราง A ที่เพิ่งบันทึกไปจากฟอร์มที่แล้วขึ้นมา
ต้องเขียนยังไงคะ

ปล.ดึงข้อมูลจากฟอร์มเก่าไม่ได้นะคะ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
8
ห้อง MS Access / : Auto number ไม่ทำงานบน Form
« เมื่อ: 16 พ.ค. 64 , 08:29:58 »
ก็ปกตินี่ครับ
พอเปิดเรคอร์ดใหม่ ช่องที่เป็น AutoNumber จะขึ้นคำว่า New พอพิมพ์ข้อมูล เลขใหม่ก็ใส่ทันที
ปกตินะครับ ปกติ
แนะนำว่าให้ใส่ปุ่ม ไปเรคอร์ดใหม่ หรือกำหนด Navigation Buttons เป็น True

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

โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
9
ห้อง MS Access / : Auto number ไม่ทำงานบน Form
« เมื่อ: 15 พ.ค. 64 , 17:02:57 »ลองแปะไฟล์ไว้ดีกว่าครับนี่ค่ะ ฟอร์มชื่อ Borrhead มาจากคิวรี่ชื่อ Borrhead ค่ะะ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
10
ห้อง MS Access / : อยากให้ข้อมูล Reflash ตามข้อมูลโดยไม่ต้องกด Reflash
« เมื่อ: 13 พ.ค. 64 , 15:38:11 »
ไม่รู้ว่าต้องการทำอะไร แต่ถ้าจะใช้เป็นตัวกรองค้นหา มันก็มีหลายวิธี
แต่ในฐานข้อมูลที่แนบมา เค้าก็ไม่ค่อยทำแบบนั้นกันนะครับ
แต่ในฐานข้อมูลที่แนบมา เค้าก็ไม่ค่อยทำแบบนั้นกันนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
11
ห้อง MS Access / : อยากให้ข้อมูล Reflash ตามข้อมูลโดยไม่ต้องกด Reflash
« เมื่อ: 12 พ.ค. 64 , 18:49:38 »
พอจะเป็นไปได้ไหมถ้าผมสร้าง Text Box Doc ขึ้นมา ใส่ข้อมูลกรอง คือ ถ้าใส่Doc 1 แล้วให้ข้อมูล Detail Doc 1 เด้งขึ้นมา แล้วถ้าใส่ ข้อมูล 3 อีกก็ให้ ให้ข้อมูล Detail Doc 3 ต่อจากข้อมูล Doc คล้ายเป็นตัวกรอง
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
12
ห้อง MS Access / : ขอโคตกำหนดค่าอัตโนมัติ
« เมื่อ: 30 เม.ย. 64 , 12:07:35 »
ยังมีอีกหลายอาขารย์ที่หายไปครับ แต่ผมเชื่อว่าท่านยังเข้ามาอ่าน และเห็น ว่ามีคนมาตอบอยู่ เลยอาจจะไม่ได้มาตอบครับ
ผมส่งไฟล์ให้หลังไมค์แล้วนะครับ มันมีชื่อบุคคลอื่นอยู่ด้วย เลยไม่ได้โพสข้องหน้า
ขอบพระคุณอาจารย์มากครับ
ผมส่งไฟล์ให้หลังไมค์แล้วนะครับ มันมีชื่อบุคคลอื่นอยู่ด้วย เลยไม่ได้โพสข้องหน้า
ขอบพระคุณอาจารย์มากครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
13
ห้อง Ms Access อื่นๆ / เมื่อเริ่มข้อมูลใหม่อยากให้เลขขึ้นมาอัตโนมัติค่ะ
« เมื่อ: 23 เม.ย. 64 , 08:46:50 »
เป็นช่อง เลขใบกำกับภาษีค่ะ
เมื่อกดเริ่มเขียนใหม่ ในฟอร์ม ช่องเลขใบกำกับภาษีต้องกรอกเอง อยู่ค่ะ ถ้าจะเปลี่ยนเป็นให้ขึ้นมาให้เลย 6 หลัก โดยเรียง 000001,000002,000003
โดยถ้าลบแล้วสามารถย้อนไปเลขที่ลบ เพื่อเขียนข้อมูลใหม่ได้ ต้องแก้ยังไงคะ
เมื่อกดเริ่มเขียนใหม่ ในฟอร์ม ช่องเลขใบกำกับภาษีต้องกรอกเอง อยู่ค่ะ ถ้าจะเปลี่ยนเป็นให้ขึ้นมาให้เลย 6 หลัก โดยเรียง 000001,000002,000003
โดยถ้าลบแล้วสามารถย้อนไปเลขที่ลบ เพื่อเขียนข้อมูลใหม่ได้ ต้องแก้ยังไงคะ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
14
ห้อง MS Access / โค้ดคำสั่ง update ไม่ทำตามเงื่อนไข
« เมื่อ: 14 เม.ย. 64 , 15:56:39 »
ต้องการ update ฟิลด์ studstatus ให้เป็น 1 โดยมีเงื่อนไขว่า ถ้า rank น้อยกว่าหรือเท่ากับ 36 แต่ถ้า rank > 36 ให้ update ฟิลด์ studstatus ให้เป็น 2
โดยเขียนคำสั่งโค้ดด้านล่าง จะได้ ฟิลด์ studstatus ให้เป็น 2 อย่างเดียว รบกวนอาจารย์ทุกท่าน จะแก้ไขคำสั่งอย่างไรครับ
Private Sub Command145_Click()
On Error Resume Next
Dim sql As String
Dim rank As Integer
If Me.rank <= 36 Then
sql = "UPDATE M1_GIF SET M1_GIF.studstatus = 1"
DoCmd.RunSQL (sql)
Else
If Me.rank > 36 Then
sql = "UPDATE M1_GIF SET M1_GIF.studstatus = 2"
DoCmd.RunSQL (sql)
End If
End If
End Sub
โดยเขียนคำสั่งโค้ดด้านล่าง จะได้ ฟิลด์ studstatus ให้เป็น 2 อย่างเดียว รบกวนอาจารย์ทุกท่าน จะแก้ไขคำสั่งอย่างไรครับ
Private Sub Command145_Click()
On Error Resume Next
Dim sql As String
Dim rank As Integer
If Me.rank <= 36 Then
sql = "UPDATE M1_GIF SET M1_GIF.studstatus = 1"
DoCmd.RunSQL (sql)
Else
If Me.rank > 36 Then
sql = "UPDATE M1_GIF SET M1_GIF.studstatus = 2"
DoCmd.RunSQL (sql)
End If
End If
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
15
ห้อง MS Access / : เปิดฟอร์มแล้ว ...
« เมื่อ: 09 เม.ย. 64 , 09:59:27 »1. เปิดฟอร์มแล้วให้ซ่อนหน้าต่างนำทาง โค้ดอย่างไรครับข้อ1 ใส่ใน Event Form_Load ก็ได้ครับ
2. เปิดฟอร์มแล้วให้ขอบซ้ายของฟอร์มชิดขอบหน้าต่าง (ตอนนี้หน้าต่างมันอยู่กึ่งกลาง) กำหนดตรงไหนครับ
Private Sub Form_Load()
DoCmd.ShowToolbar "Ribbon", acToolbarNo 'ซ่อน Ribon ด้านบน
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide 'ซ่อนหน้าต่างนำทาง
End Sub
ข้อ2
1.ประกาสตัวแปลไว้บนสุดของคำสั่ง
Public FrmTop As Long
Public FrmLeft As Long
2.ที่ Event Form_Activate() ใส่โค๊ดนี้เข้าไป
Private Sub Form_Activate()
FrmTop = Forms![ชื่อฟอร์ม].WindowTop
FrmLeft = Forms![ชื่อฟอร์ม].WindowLeft
FrmTop = Me.WindowTop
FrmLeft = Me.WindowLeft
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
16
ห้อง MS Access / เปิดฟอร์มแล้ว ...
« เมื่อ: 09 เม.ย. 64 , 09:52:58 »
1. เปิดฟอร์มแล้วให้ซ่อนหน้าต่างนำทาง โค้ดอย่างไรครับ
2. เปิดฟอร์มแล้วให้ขอบซ้ายของฟอร์มชิดขอบหน้าต่าง (ตอนนี้หน้าต่างมันอยู่กึ่งกลาง) กำหนดตรงไหนครับ
2. เปิดฟอร์มแล้วให้ขอบซ้ายของฟอร์มชิดขอบหน้าต่าง (ตอนนี้หน้าต่างมันอยู่กึ่งกลาง) กำหนดตรงไหนครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
17
ห้อง MS Access / : เปิดให้ปุ่มทำงานตามงวด
« เมื่อ: 25 ก.ค. 63 , 20:32:14 »พึ่งคิดได้ว่าก็ใช้คำสั่งให้ทุกปุ่มที่มีซ่อนก่อนแล้วค่อยมาสั่งแสดงตามตัวเลขที่หลังอีกทีโค๊ด: [Select]Private Sub Text5_AfterUpdate()
Me.Command1.Visible = False
Me.Command2.Visible = False
Me.Command3.Visible = False
Me.Command4.Visible = False
GetNum = Me.Text5
Select Case GetNum
Case "1": Me.Command1.Visible = True
Case "2": Me.Command2.Visible = True
Case "3": Me.Command3.Visible = True
Case "4": Me.Command4.Visible = True
End Select
End Sub
โค้ดข้างบนสามารถลดรูปลงมาได้นะครับ พร้อมกับรองรับกรณี Text5 ไม่ได้เป็นตัวเลข
Dim I As Integer
Dim J As Integer
If IsNumeric(Me.Text5) Then J = CInt(Me.Text5)
For I = 1 to 12
Me("command" & Cstr(I)).Enabled = (I = J)
Next
แต่สงสัยว่าทำไมต้องทำ 12 ปุ่ม สร้างปุ่มเดียวแล้วพิจารณาการทำงานของโค้ดในปุ่มนั้นด้วยค่าจาก Text5 ไม่ง่ายกว่าหรือ ?
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
18
ห้อง MS Access / : เปิดให้ปุ่มทำงานตามงวด
« เมื่อ: 25 ก.ค. 63 , 20:15:34 »
พึ่งคิดได้ว่าก็ใช้คำสั่งให้ทุกปุ่มที่มีซ่อนก่อนแล้วค่อยมาสั่งแสดงตามตัวเลขที่หลังอีกที 

โค๊ด: [Select]
Private Sub Text5_AfterUpdate()
Me.Command1.Visible = False
Me.Command2.Visible = False
Me.Command3.Visible = False
Me.Command4.Visible = False
GetNum = Me.Text5
Select Case GetNum
Case "1": Me.Command1.Visible = True
Case "2": Me.Command2.Visible = True
Case "3": Me.Command3.Visible = True
Case "4": Me.Command4.Visible = True
End Select
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit