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 »
ขอบคุณมากเลยนะคะ ทำได้แล้วค่ะ
![miao :miao:](https://www.thai-access.com/Smileys/Yolks2sspace/miao.png)
โพสต์นี้ได้รับคำขอบคุณจาก: ิ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 ที่เพิ่งบันทึกไปจากฟอร์มที่แล้วขึ้นมา
ต้องเขียนยังไงคะ![cry :cry:](https://www.thai-access.com/Smileys/Yolks2sspace/cry.png)
ปล.ดึงข้อมูลจากฟอร์มเก่าไม่ได้นะคะ
จากนั้นสร้างฟอร์มที่ 2 ขึ้นมาแล้วอยากดึงข้อมูล ID(บันทึกเลขออโต้) ของตาราง A ที่เพิ่งบันทึกไปจากฟอร์มที่แล้วขึ้นมา
ต้องเขียนยังไงคะ
![cry :cry:](https://www.thai-access.com/Smileys/Yolks2sspace/cry.png)
ปล.ดึงข้อมูลจากฟอร์มเก่าไม่ได้นะคะ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit
8
ห้อง MS Access / : Auto number ไม่ทำงานบน Form
« เมื่อ: 16 พ.ค. 64 , 08:29:58 »
ก็ปกตินี่ครับ
พอเปิดเรคอร์ดใหม่ ช่องที่เป็น AutoNumber จะขึ้นคำว่า New พอพิมพ์ข้อมูล เลขใหม่ก็ใส่ทันที
ปกตินะครับ ปกติ
แนะนำว่าให้ใส่ปุ่ม ไปเรคอร์ดใหม่ หรือกำหนด Navigation Buttons เป็น True
![](https://www.thai-access.com/tiupld/images/qt6eld-c8c13d.jpg)
พอเปิดเรคอร์ดใหม่ ช่องที่เป็น AutoNumber จะขึ้นคำว่า New พอพิมพ์ข้อมูล เลขใหม่ก็ใส่ทันที
ปกตินะครับ ปกติ
แนะนำว่าให้ใส่ปุ่ม ไปเรคอร์ดใหม่ หรือกำหนด Navigation Buttons เป็น True
![](https://www.thai-access.com/tiupld/images/qt6eld-c8c13d.jpg)
โพสต์นี้ได้รับคำขอบคุณจาก: ิ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 »![](https://www.thai-access.com/tiupld/images/qszstp-eababe.png)
พอจะเป็นไปได้ไหมถ้าผมสร้าง 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 »
พึ่งคิดได้ว่าก็ใช้คำสั่งให้ทุกปุ่มที่มีซ่อนก่อนแล้วค่อยมาสั่งแสดงตามตัวเลขที่หลังอีกที ![meaw :meaw:](https://www.thai-access.com/Smileys/Yolks2sspace/meaw.png)
![meaw :meaw:](https://www.thai-access.com/Smileys/Yolks2sspace/meaw.png)
โค๊ด: [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