181
ห้อง MS Access / : Access + sql server ทำให้ไม่ต้องพิมพ์รหัสผ่านเองทุกครั้ง
« เมื่อ: 12 ก.พ. 63 , 14:59:49 »
สั่งบันทึกรหัสใว้ตอนดึงตารางมาครับ (แนวทางจากอ.TTT ดูที่ 26:35นาที)
แสดงกระทู้
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.
182
ห้อง MS Access / : อยากทราบวิธี upload เข้าฐานข้อมูล
« เมื่อ: 02 ก.พ. 63 , 17:38:39 »
> กระทู้โค้ดตัวอย่างที่เขาใช้ https://www.thai-access.com/index.php?topic=1087.msg4861#msg4861
> หรือชมแนวทางจาก อ.TTT ครับ
> หรือชมแนวทางจาก อ.TTT ครับ
183
ห้อง MS Access / : อยากทราบวิธี upload เข้าฐานข้อมูล
« เมื่อ: 02 ก.พ. 63 , 16:05:46 »ตามหัวข้อเลยครับ จะทำยังไงครับ จะอัพจากการเลือกใน form แล้วไปบันทึกในฐานข้อมูลเราครับ
แล้วไฟล์รูปภาพเป็นนามสกุลอะไรครับ
จะอัพอะไรยังไงจากไหนไปไหนล่ะครับ งงคำถามระดับ10
184
ห้อง MS Access / : บังคับต้องป้อนข้อมูลในฟิลด์ปัจจุบันก่อน จึงป้อนข้อมูลถัดไปได้
« เมื่อ: 30 ม.ค. 63 , 13:08:05 »
ใช้วิธีเมื่อไปที่ bill_no ให้ทำการตรวจสอบว่า shop มีค่าว่างอยู่หรือไม่?
โค๊ด: [Select]
Private Sub bill_no_GotFocus()
If Me.shop = "" Then
MsgBox "ป้อนข้อมูล shop ก่อนนะ"
Me.shop.SetFocus
End If
End Sub
185
ห้องสนทนาทั่วไป / : โปรแกรมตรวจการนำไปใช้ภายในไฟล์ฐานข้อมูล 1 ไฟล์ ของแอคเซส 2003
« เมื่อ: 27 ม.ค. 63 , 14:56:26 »
การสร้างไฟล์แอคเซสขึ้นมาไฟล์ๆหนึ่งนั้นก็คล้ายกับการเขียนโปรแกรมขึ้นมานั่นล่ะครับ ดังนั้นตาราง,คิวรี่,ฟอร์ม,หรือโค้ดคำสั่งที่มีอยู่ก็เกิดจากที่เราสร้างมันขึ้นมามันจะเป็นขยะหรือไม่ก็ขึ้นอยู่กับตัวเรา หรืออย่างบางทีเราสร้างคิวรี่,สร้างฟอร์มมาเก็บใว้ไม่ได้ใช้งานจริงนั่นก็ถือว่าเป็นขยะของไฟล์ได้แล้วครับ แต่เราก็อาจอยากเก็บใว้เพื่อใช้ในอนาคต,ตัวอย่างปัญหา,หรืออะไรก็แล้วแต่นั้นผมขอถือว่ามันไม่ใช้ขยะทางความคิดละ ที่นี้มันก็ขึ้นอยู่กับคนที่เขียนโปรแกรมล่ะว่าจะทำอย่างไรจะทำไฟล์ใหม่ที่ไม่มีขยะพวกนี้ใหมเพราะจะไปให้โปรแกรมอื่นอยูู่ๆเข้ามาลบตาราง,คิวรี่,ฟอร์มคงเป็นไปไม่ได้ครับ
ส่วนอีกความหมาย(ในความคิดผม)นั่นคือระหว่างที่เราออกแบบโปรแกรมหรือใช้งานฐานข้อมูลอยู่นั้นตัวโปรแกรมจะเก็บแคสส่วนหนึ่งใว้ที่ตัวไฟล์ที่เราเขียน(มีผลต่อขนาดไฟล์)ใน ms access 2007 ขึ้นไปเราสามารถใช้คำสั่ง Compare and Repair Database ได้ครับ (2003ผมไม่รู้ว่ามีใหมหรืออยู่ตรงไหนนะลองหาดูครับ) https://www.addintools.com/documents/access/where-is-compact-repair.html
ส่วนอีกความหมาย(ในความคิดผม)นั่นคือระหว่างที่เราออกแบบโปรแกรมหรือใช้งานฐานข้อมูลอยู่นั้นตัวโปรแกรมจะเก็บแคสส่วนหนึ่งใว้ที่ตัวไฟล์ที่เราเขียน(มีผลต่อขนาดไฟล์)ใน ms access 2007 ขึ้นไปเราสามารถใช้คำสั่ง Compare and Repair Database ได้ครับ (2003ผมไม่รู้ว่ามีใหมหรืออยู่ตรงไหนนะลองหาดูครับ) https://www.addintools.com/documents/access/where-is-compact-repair.html
186
ห้อง MS Access / : อยากให้เลขที่บิล auto Run ต่อจากเลขที่บิลของข้อมูลที่ป้อน
« เมื่อ: 08 ม.ค. 63 , 11:59:55 »
ติดตรงที่สั่งดูตัวอย่างต้นฉบับคาใว้อยู่หรือเปล่าน้ออ ลองปิดแล้วเทสดูครับ
ลองปิดแล้วเทสดูครับโค๊ด: [Select]
DoCmd.OpenReport "ใบกำกับขาย-ต้นฉบับ", acViewPreview, Filename
187
ห้อง MS Access / : อยากให้เลขที่บิล auto Run ต่อจากเลขที่บิลของข้อมูลที่ป้อน
« เมื่อ: 05 ม.ค. 63 , 12:53:36 »
แนวทางคือกำหนดค่าตัวแปลเมื่อเลือกสาขา เช่น สำนักงานใหญ่ branch=1 , สาขา branch=2 เป็นต้น
แล้วก็นำเข้าไปใส่ในตัวแปลท่าน เช่น strDate = "IV" & branch & "" & (Format(date, "yy-mm-dd"))
ลองทดสอบดูครับ
https://www.thai-access.com/index.php?topic=1063.msg4744#msg4744
แล้วก็นำเข้าไปใส่ในตัวแปลท่าน เช่น strDate = "IV" & branch & "" & (Format(date, "yy-mm-dd"))
ลองทดสอบดูครับ
https://www.thai-access.com/index.php?topic=1063.msg4744#msg4744
188
ห้อง MS Access / : แนะนำทีครับ พอลง runtime access จะให้เครื่องอื่นเปิดใช้งานเจอปัญหา
« เมื่อ: 20 ธ.ค. 62 , 10:37:02 »
ผมก็ไม่รู้ทางแก้นะ ลองไปดูแนวทางแก้ด้านล่างดูครับ
https://social.msdn.microsoft.com/Forums/office/en-US/570d591f-0760-4937-a6fb-a19f1d7ac350/the-visual-basic-for-applications-project-in-the-database-is-corrupt?forum=accessdev
https://social.msdn.microsoft.com/Forums/office/en-US/570d591f-0760-4937-a6fb-a19f1d7ac350/the-visual-basic-for-applications-project-in-the-database-is-corrupt?forum=accessdev
189
ห้อง MS Access / : สอบถามวิธีทำให้ Text Box รันเลขพร้อมบันทึกลงตารางนะครับ
« เมื่อ: 19 ธ.ค. 62 , 13:06:19 »
นำไปใช้ได้ผล(เพิ่มเติมตรงหากมีการใส่ค่าลำดับให้ส่งค่ามา)ขอบคุณครับผม 
ภาพตัวอย่างตาม อ.สันติสุข เลยครับ
ขอโทษด้วยน่ะครับ ผมมือใหม่มากกกครับ
คือไม่ทราบว่า โค้ดชุดนี้เอาไปวางไว้ตรงไหน ของ Form_Current event procedure ครับ
ขอบพระคุณครับ
ภาพตัวอย่างตาม อ.สันติสุข เลยครับ
190
ห้อง MS Access / สอบถามวิธีทำให้ Text Box รันเลขพร้อมบันทึกลงตารางนะครับ
« เมื่อ: 17 ธ.ค. 62 , 16:25:11 »
สวัสดีครับ เริ่มต้นคือผมมีรายการขายสินค้าเป็นแบบ Continuous Forms แต่สินค้าบางรายการจะขายเป็นชุด(ในช่องลำดับผมจึงเว้นใว้)
ทีนี้จะทำอย่างไรครับให้กล่องเป้าหมายเหมือนลำดับ และเมื่อขึ้นรายการสินค้าใหม่แล้วไม่มีการใส่ลำดับลงไปในช่อง ให้กล่องเป้าหมายใส่ค่าเดิมก่อนหน้าลงไปเองเลยนะ(ตามตารางตัวอย่าง) แถมบันทึกลงเทเบิ้ลด้วยต้องทำอย่างไรบ้างครับนี่
ทีนี้จะทำอย่างไรครับให้กล่องเป้าหมายเหมือนลำดับ และเมื่อขึ้นรายการสินค้าใหม่แล้วไม่มีการใส่ลำดับลงไปในช่อง ให้กล่องเป้าหมายใส่ค่าเดิมก่อนหน้าลงไปเองเลยนะ(ตามตารางตัวอย่าง) แถมบันทึกลงเทเบิ้ลด้วยต้องทำอย่างไรบ้างครับนี่
| ลำดับ | กล่องเป้าหมาย | รวม |
| 1 | 1 | |
| 1 | ||
| 1 | 1 ชุด | |
| 2 | 2 | 1 ชิ้น |
| 3 | 3 | |
| 3 | 1 ชุด | |
| 4 | 4 | 1 ชิ้น |
| ... | ||
191
ห้อง MS Access / : การ Split database
« เมื่อ: 11 พ.ย. 62 , 09:07:04 »
กระทู้แนวทางการ Split Database เพื่อใช้งานหลายๆเครื่องครับ
https://www.thai-access.com/yeadram_view.php?topic_id=771
https://www.thai-access.com/yeadram_view.php?topic_id=771
192
ห้อง MS Access / : สอบถามการสร้างเลขที่ของรายงาน
« เมื่อ: 06 พ.ย. 62 , 13:18:52 »
ขอดูไฟล์เลยได้ใหมครับ(หรือแยกไฟล์เฉพาะหน้ารีพอร์ตมาก่อนก็ได้นะ)
193
ห้อง MS Access / : ช่วยอธิบายวิธีการใช้งาน Checkbox หน่อยค่ะ
« เมื่อ: 05 พ.ย. 62 , 18:53:09 »ฟอร์มหลักให้ผูกเข้ากับเทเบิลของข้อมูลหลัก ส่วนฟอร์มย่อยก็ผูกเข้ากับเทเบิลของข้อมูลย่อย จะง่ายกว่าไปผูกกับคิวรี่ซึ่งมีเงื่อนไขในฟอร์มหลักอีกที ดูแล้วงงๆ
เมื่อ3ปีที่แล้วหัดเขียนนะครับความคิดสมัยนั้นเลยแบบว่าต้องเทเบิล>คิวรี่>ฟอร์ม แถมทำทุกฟอร์มทุกรีพอร์ตไปซะหมดเลยนะครับ
194
ห้อง MS Access / : สอบถามการสร้างเลขที่ของรายงาน
« เมื่อ: 05 พ.ย. 62 , 18:21:59 »
คำถามไม่ชัดเจนนะ
1.ถ้าเลขที่หน้ากระดาษ(จากรูปเห็นมี 1/2 อยู่แล้ว)
[Page] = เลขหน้าปัจจุบัน , [Pages] = จำนวนหน้า | นำมารวมกัน =[Page] & " / " & [Pages]
2.รายการสินค้าผมเป็น Continuous ใน Report ผมใช้ =[CurrentRecord] เพื่อแสดงตัวเลขหน้ารายการแบบอัตโนมัติต่อกันจนถึงรายการสุดท้ายไม่ว่าจะกี่แผ่นนะครับ
1.ถ้าเลขที่หน้ากระดาษ(จากรูปเห็นมี 1/2 อยู่แล้ว)
[Page] = เลขหน้าปัจจุบัน , [Pages] = จำนวนหน้า | นำมารวมกัน =[Page] & " / " & [Pages]
2.รายการสินค้าผมเป็น Continuous ใน Report ผมใช้ =[CurrentRecord] เพื่อแสดงตัวเลขหน้ารายการแบบอัตโนมัติต่อกันจนถึงรายการสุดท้ายไม่ว่าจะกี่แผ่นนะครับ
195
ห้อง MS Access / : ฟอร์มหลักสั่งลบฟอร์มย่อยตาม Checkbox ยังไงครับผม
« เมื่อ: 05 พ.ย. 62 , 17:44:11 »
ขอย้อนมาดันกระทู้เก่า จากรูปพร้อมไฟล์แนบคือจะมีฟอร์มหลักและรายการในฟอร์มย่อยนะครับ จะมีวิธีการอย่างไรบ้างครับให้
1.สั่งลบทั้งข้อมูลฟอร์มหลักและทุกรายการในฟอร์มย่อย
2.ลบทุกรายการในฟอร์มย่อย(แยกจากข้อ1)
3.ลบเฉพาะรายการที่ทำเครื่องหมายใว้
ขอบคุณครับ
1.สั่งลบทั้งข้อมูลฟอร์มหลักและทุกรายการในฟอร์มย่อย
2.ลบทุกรายการในฟอร์มย่อย(แยกจากข้อ1)
3.ลบเฉพาะรายการที่ทำเครื่องหมายใว้
ขอบคุณครับ
196
ห้อง MS Access / : ใช้ Dmax รันเลขที่บิลแล้ว Error แก้อย่างไรให้ใช้ได้ครับผม
« เมื่อ: 02 พ.ย. 62 , 11:34:05 »นำไปใช้แล้วเลขที่ออกจะเป็น QU6263 แบบตายตัวไม่บวกเพิ่มเลยครับโค๊ด: [Select]Me.QU_No = "QU" & Right([txtDateTH], 2) & Right("00" & DMax("[QU_No]", "[T_Quot v7]", "Left([QU_No],4) = 'QU'") & Right([txtDateTH], 2) + 1, 2)
แค่ใส่เครื่องหมายผิดที่ครับ
จากที่ความต้องการคือ QU & YY & 00 = QU6201-QU62++ , QU6301-QU63++ นั้น
ตอนนี้นำไปแก้ให้แยกไปคำนวนต่างหากเป็นอันใช้ได้แล้วครับผม
โค๊ด: [Select]
Private Sub cmd_QuNew_Click()
If GetUserLocaleInfo(GetSystemDefaultLCID(), &H1009) <> 7 Then
Me.txtDateTH = mYear([txtDate])
ElseIf GetUserLocaleInfo(GetSystemDefaultLCID(), &H1009) = 7 Then
Me.txtDateTH = bYear([txtDate])
End If
Me.QU_No = AutoQuNo
DoCmd.OpenForm "F_Quot v7 Edit"
End Sub
Function AutoQuNo() As String
Dim X As Variant
Dim bk As String
X = DMax("Right(QU_No,2)", "[T_Quot v7]", "Left([QU_No],4) = 'QU' & Right([txtDateTH], 2)")
If IsNull(X) Then bk = 1 Else bk = X + 1
AutoQuNo = "QU" & Right([txtDateTH], 2) & Format(bk, "00")
End Functionขอบคุณ อ.yeadram แนวทางจากกระทู้ > https://www.thai-access.com/yeadram_view.php?topic_id=651
197
ห้อง MS Access / ใช้ Dmax รันเลขที่บิลแล้ว Error แก้อย่างไรให้ใช้ได้ครับผม
« เมื่อ: 01 พ.ย. 62 , 16:23:13 »
ใช้ Dmax รันเลขที่บิลแล้ว Error แก้อย่างไรให้ใช้ได้ครับผม
รูปแบบเลขคือแนว QU62XX นะครับ
รูปแบบเลขคือแนว QU62XX นะครับ
โค๊ด: [Select]
Private Sub cmd_QuNew_Click()
If GetUserLocaleInfo(GetSystemDefaultLCID(), &H1009) <> 7 Then
Me.txtDateTH = mYear([txtDate])
ElseIf GetUserLocaleInfo(GetSystemDefaultLCID(), &H1009) = 7 Then
Me.txtDateTH = bYear([txtDate])
End If
' Me.QU_No = AutoQuNo
Me.QU_No = "QU" & Right([txtDateTH], 2) & Right("00" & DMax("[QU_No]", "[T_Quot v7]", "Left([QU_No],4) = 'QU' & Right([txtDateTH], 2)") + 1, 2)
DoCmd.OpenForm "F_Quot v7 Edit"
End Sub
198
ห้อง MS Access / : สอบถามวิธีเปลี่ยนสีพื้นหลังรายการใน Continuous Forms และให้ขึ้นรายการใหม่หลังจบ
« เมื่อ: 25 ต.ค. 62 , 19:32:01 »
1.1 แบบเฉพาะกล่องข้อความกำหนดรูปแบบโดยใช้ Conditional Formatting > Field Has Focus
> https://www.techonthenet.com/access/forms/cond_format2_2007.php
> http://rogersaccessblog.blogspot.com/2018/03/how-do-i-use-conditional-formatting-in.html
1.2 แบบเปลี่ยนสีพื้นหลังทั้งแถว
2. แก้ฟอร์มรายการให้ Cycle = All Records
> https://www.techonthenet.com/access/forms/cond_format2_2007.php
> http://rogersaccessblog.blogspot.com/2018/03/how-do-i-use-conditional-formatting-in.html
1.2 แบบเปลี่ยนสีพื้นหลังทั้งแถว
2. แก้ฟอร์มรายการให้ Cycle = All Records
