1
ห้อง MS Access / : ต้องการตัดคำด้านซ้าย ภายใต้2เงื่อนไขค่ะ
« เมื่อ: 29 พ.ย. 64 , 12:49:17 »
หายไปตั้งนาน
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
แสดงกระทู้
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 / : ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« เมื่อ: 19 ส.ค. 64 , 15:31:44 »ถ้าเกี่ยวข้องกับวิธีแก้ชื่อฟิลด์ของผมมันดันมีผลกับทุกอย่างที่เรียกใช้คิวรี่นี้ก็ต้องไปแก้ชื่อฟิลด์ที่เรียกไปใช้เป็นชื่อที่ตั้งใหม่ด้วยอ่ะนะ
แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
3
ห้อง MS Access / : สอบถามโค้ดจากกระทู้เก่าใช้ไม่ได้กับ Access ปัจจุบัน
« เมื่อ: 19 ส.ค. 64 , 12:33:21 »
#If Win64 Or VBA7 Then
Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#Else
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#End if
ทำโค๊ดแบบนี้ เอาไว้ไปรันกับเวอร์ชั่นเก่า และใหม่ได้เลย
Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#Else
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#End if
ทำโค๊ดแบบนี้ เอาไว้ไปรันกับเวอร์ชั่นเก่า และใหม่ได้เลย
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
4
ห้อง MS Access / : Error Varible not defined โค้ดทับกันตรงไหนหรือเปล่าครับ
« เมื่อ: 23 ก.ค. 64 , 10:38:55 »
ยังไม่ได้ประกาศตัวแปร
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
5
ห้อง MS Access / : ค้นหาข้อมูลไม่ให้ออกนอกขอบเขตที่กรองแล้ว
« เมื่อ: 21 ก.ค. 64 , 12:00:07 »จากโค้ดที่ให้ไป แก้ชื่อตารางจาก mytable เป็น ptt ก้อนครับผมลืมแก้ให้
ได้แล้วครับพี่สุดยอดเลยครับ
เดี๋ยวตอนบ่ายผมมาถามเรื่องตั้งกระทู้ถามเรื่อง MsgBox ใน กรณีที่ใช้ Sub อีกครับนะครับขอบคุณครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
6
ห้อง MS Access / : Running sum ค่าคงเหลือเบิกจ่ายวัสดุ แบบมีเงื่อนไข
« เมื่อ: 07 ก.ค. 64 , 12:09:57 »
ถ้าใช้ 1 กับ 2 แบบนี้ เวลาทำ Total Query เพื่อหาผลรวม มันก็ทำได้นะครับ แต่จะยุ่งยากหน่อยๆ
แนะนำให้เปลี่ยนจาก 1 กับ 2 เป็น 1 กับ -1 แล้วเพิ่มคอลัมน์ ที่นำจำนวนมาคูณกับ 1 กับ -1
จากนั้นทำ Total Query จากค่าผลลัพธ์ที่ได้
อีกอย่าง "ตัวแปร" คือ Variable ส่วน "ตัวแปล" ก็ประมาณ "วุ้นแปลภาษาของโดเรมอน" ครับ
แนะนำให้เปลี่ยนจาก 1 กับ 2 เป็น 1 กับ -1 แล้วเพิ่มคอลัมน์ ที่นำจำนวนมาคูณกับ 1 กับ -1
จากนั้นทำ Total Query จากค่าผลลัพธ์ที่ได้
อีกอย่าง "ตัวแปร" คือ Variable ส่วน "ตัวแปล" ก็ประมาณ "วุ้นแปลภาษาของโดเรมอน" ครับ
ขอ Query Running sum ฟิลด์ Totel ครับ
โดย MCode เป็นตัวแปลตามชนิดวัสดุ
MType เป็นตัวแปลถ้ารับ(เท่ากับ1)จะเอาค่าที่รับมาบวก ถ้าเบิก(เท่ากับ2)เอามาลบ
Table แรกชื่อ qMrep
ขอความช่วยเหลือด้วยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
7
ห้อง MS Access / : ปริ้นเฉพาะรูปที่ต้องการเท่านั้น ไ่ม่ทราบว่าต้องเขียน VBA หรือ Macro ยังไงครับ
« เมื่อ: 06 ก.ค. 64 , 11:38:41 »ทำแล้วครับ ตอนนี้ Query ที่ส้รางมาใหม่ตามที่พี่บอก อัพเดตค่าตามคนเราดูอยู่แล้วครับ แต่ตอนกดปริ้นมันโชว์แต่รูปของคนแรกครับ ไม่ทราบว่าผมอิงอะไรผิดรึเปล่าครับ
ได้แล้วครับ อิง Record Source ผิดครับ อิงเป็น Query ที่ส้รางมาใหม่ได้ผลแล้วครับ ขอบคุณครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
8
ห้อง MS Access / : export to excel
« เมื่อ: 22 มิ.ย. 64 , 11:36:53 »
เปิดทั้งหมดตามภาพท่าน PNR ดูครับ
ตรง Tool >> Reference
เพิ่มตัว MS OFFICE XX Object libary ด้วยครับ ตามภาพ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
10
ห้อง MS Access / : มี52ตำแหน่งอยากจับคู่ตำแหน่งให้แต่ละคนคนจนครบ52แล้วถึงจะเริ่มนับ1ใหม่
« เมื่อ: 24 พ.ค. 64 , 13:12:47 »
ทำตามคำแนะนำของอาจารย์แล้วได้ตามใจต้องการแล้วครับ แล้วค่อยไปจัดการด้วยวิธีอื่นๆ ต่อ สามารถปรับลด เพิ่มหรือเปลี่ยนจำนวนดวง ขนาดสติกเกอร์สำเร็จรูปได้หลายๆแบบสบายเลย แปะขวดเครื่องปรุง อุปกรณ์ในบ้านก็ได้
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
11
ห้อง MS Access / : ถ้าต้องการทำใบเสร็จหรือใบแจ้งหนี้จากบิลภาษีต้องทำไงคะ
« เมื่อ: 21 พ.ค. 64 , 14:23:36 »
-> กรองชื่อลูกค้าโดยวิธีลิ้งฟอร์มหลัก-ฟอร์มย่อย
-> กรองวันที่ออกบิลโดยใช้คำสั่ง Filter
ไฟล์ตัวอย่างผมสร้างตาราง,ฟอร์มหลัก,รีพอร์ทชื่อ Invoice มาให้ใหม่ ส่วนฟอร์มย่อย Invoice_sub จะดึงข้อมูลบิลที่เคยออกไปจากตาราง Sale_H
-> กรองวันที่ออกบิลโดยใช้คำสั่ง Filter
โค๊ด: [Select]
Private Sub cmdDate_Click()
Me.fm_Invoice_sub2.Form.Filter = "[Saledate] BETWEEN #" & Format(Me.BeginDate, "dd mmm yyyy") & "# AND #" & Format(Me.EndDate, "dd mmm yyyy") & "#"
Me.fm_Invoice_sub2.Form.FilterOn = True
Me.fm_Invoice_sub2.Form.Refresh
Call Form_Current
End Subไฟล์ตัวอย่างผมสร้างตาราง,ฟอร์มหลัก,รีพอร์ทชื่อ Invoice มาให้ใหม่ ส่วนฟอร์มย่อย Invoice_sub จะดึงข้อมูลบิลที่เคยออกไปจากตาราง Sale_H
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
12
ห้อง MS Access / : หาสูตรว่าใครขายของได้จำนวนเท่าไหร่ครับ
« เมื่อ: 19 พ.ค. 64 , 16:28:31 »
เผื่อไม่เข้าใจที่ อ.PNR บอกนะครับ
ทำ Query ให้ใหม่ ชื่อ Query1
ทำ Report ให้ใหม่ ชื่อ Report
ทำ Query ให้ใหม่ ชื่อ Query1
ทำ Report ให้ใหม่ ชื่อ Report
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
13
ห้อง Ms Access อื่นๆ / : ผลรวมทำไมขึ้น error คะ
« เมื่อ: 29 เม.ย. 64 , 19:52:20 »
วิธีที่1.ทำให้ทุนรวมเก็บค่าอยู่ในตารางถึงจะ Sum ได้(ผมใช้วิธีีนี้อยู่แต่มันยุ้งยากไปพึ่งจะเจอวิธีที่2นี่ล่ะ)
วิธีที่2.นำตารางที่ใช้ไปทำคิวรี่แล้วเพิ่มฟิวล์ ทุนรวม: [จำนวน]*[ทุน] ที่ฟอร์มก็เปลี่ยนจากที่ดึงข้อมูลจากตารางมาเป็นคิวรี่,กล่องทุนรวม([text34])ก็ดึงผลมาจากคิวรี่ได้เลย,=SUM([ทุนรวม])
ตย.คิวรี่
ตย.ฟอร์ม
วิธีที่2.นำตารางที่ใช้ไปทำคิวรี่แล้วเพิ่มฟิวล์ ทุนรวม: [จำนวน]*[ทุน] ที่ฟอร์มก็เปลี่ยนจากที่ดึงข้อมูลจากตารางมาเป็นคิวรี่,กล่องทุนรวม([text34])ก็ดึงผลมาจากคิวรี่ได้เลย,=SUM([ทุนรวม])
ตย.คิวรี่
| จำนวน | ทุน | ทุนรวม: [จำนวน]*[ทุน] |
ตย.ฟอร์ม
| =SUM([ทุนรวม]) | 1000 | |||
| จำนวน | ทุน | ทุนรวม | ||
| 10 | 100 | 1000 | ||
| 0 | 200 | 0 | ||
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
14
ห้อง MS Access / : อยากจะปรับขนาดตัวอักษรใน Subform ที่เป็น DataSheet ยังไงครับ???
« เมื่อ: 29 เม.ย. 64 , 13:18:25 »
ขอบคุณมากครับ กรรมจริงๆผมไม่รู้เลย ไปหาตรง Property อย่างเดียว
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
15
ห้องสนทนาทั่วไป / : โปรแกรมอ่านบัตรประชาชน
« เมื่อ: 22 เม.ย. 64 , 11:50:31 »
ไม่รู้ว่าใช่ Version ที่ต้องการหรือเปล่า
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
16
ห้อง MS Access / : อยากให้แสดงตัวเลข เศษที่่เหลือรวมในงวดสุดท้าย และ วันที่ตามกำหนดดิวครับ
« เมื่อ: 01 เม.ย. 64 , 10:31:07 »
เจอไฟล์ Excel คำนวนดอกเบี้ยเอามาฝากครับโดยแนวทางการคำนวนเขาคือ ใส่เงินต้น,ดอกเบี้ย/ปี,จำนวนงวด โปรแกรมก็จะคำนวนมาให้ว่าจ่ายงวดล่ะเท่าไหร่โดยเท่ากันทุกงวด(ทศนิยมสองตำแหน่ง) เพื่อเป็นแนวทางครับ
ปล.ไฟล์ Excel เขาทำตารางคำนวนเผื่อไว้เฉยๆนะ
ปล.ไฟล์ Excel เขาทำตารางคำนวนเผื่อไว้เฉยๆนะ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
17
ห้อง MS Access / : เช็คข้อมูลซ้ำในตารางอย่างไร
« เมื่อ: 23 มี.ค. 64 , 22:14:18 »
ใช้ BeforeUpdate event หลัง texbox อันที่2 ดีกว่าครับ
If (not isnull(me. textbox_id) or me.textbox_id<>"") and (not isnull(textbox_disease) or me. textbox_disease<>"") then
If dcount("*", "table_name", "id=forms! Formname!textbox_id and disease =forms! Formname!textbox_disease" ) >0
then
Msgbox "ข้อมูลซ้ำ"
Cancel=true
End if
Else
Msgbox "ใส่ข้อมูลไม่ครบ"
End if
ลองประยุกต์ดูครับ
If (not isnull(me. textbox_id) or me.textbox_id<>"") and (not isnull(textbox_disease) or me. textbox_disease<>"") then
If dcount("*", "table_name", "id=forms! Formname!textbox_id and disease =forms! Formname!textbox_disease" ) >0
then
Msgbox "ข้อมูลซ้ำ"
Cancel=true
End if
Else
Msgbox "ใส่ข้อมูลไม่ครบ"
End if
ลองประยุกต์ดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
18
ห้อง MS Access / : ผมอยากให้ช่องเลือกวัน ไม่สามารถเลือกวันย้อนหลังได้ทำไงครับ???
« เมื่อ: 19 มี.ค. 64 , 11:31:40 »ถ้าหากจะใช้การตัดวันที่ ที่ผ่านมาออกไปแสดงเฉพาะวันที่ปัจจุบันเป็นต้นไปยังไม่เคยทำครับ
แต่ถ้าจะใช้การกำหนดเงื่อนไขว่าถ้าเลือกวันที่ๆผ่านมาแล้วให้แจ้งเตือนและให้ระบุใหม่ก็ลองแบบนี้
สมมุติ textbox เลือกวันที่ ชื่อ txtDatePick
Private Sub txtDatePick_AfterUpdate()
If Me.txtDatePick < Date() Then
MsgBox "ไม่สามารถเลือกวันที่ย้อนหลังได้", vbCritical, "แจ้งเตือน"
Me.Text0 = Null
End If
End Sub
ถ้าผมตอบก่อนจะบอกว่า"กรุณาเลือกวันที่ปัจจุบันหรืออนาคต"นะนี่
โค๊ด: [Select]
Private Sub Text20_AfterUpdate()
If Me.Text20 < Date Then
MsgBox "กรุณาเลือกวันที่ปัจจุบันหรืออนาคต"
End If
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: PNR
