แสดงกระทู้

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.


Messages - PNR

หน้า: 1 ... 26 27 28 [29] 30 31 32
505
ห้อง MS Access / : ไม่อยากให้คลิ๊กขวาที่เมนูด้านบนครับ version2003
« เมื่อ: 29 ต.ค. 62 , 15:00:12 »
ตรง Menu ทางลัดกำหนดเป็น ไม่ใช่ ก็จะไม่สามารถคลิ๊กขวาได้อีกครับ


File > ตัวเลือกของ Access > ฐานข้อมูลปัจจุบัน

มันมีให้ตั้งค่า Ribbon และตัวเลือกแถบเครื่องมือ

เอาติ๊ก อนุญาติให้ใช้เมนูแบบเต็ม ออก
เอาติ๊ก อนุญาติให้ใช้เมนูทางลัดเริ่มต้น ออก
โพสต์นี้ได้รับคำขอบคุณจาก: ีuncleman

506
ห้อง MS Access / : การเลือกใช้งานข้อมูลวันที่ล่าสุด
« เมื่อ: 28 ต.ค. 62 , 09:34:09 »
ในคิวรี่ หรือบนฟอร์มครับการนำไปเรียกใช้ทำแบบไหน ถ้าใช้ Dmax วันที่ และ GroupBy รหัสสินค้าก็ได้เหมือนกันครับ
ลองดูตัวอย่างด้านล่างนะครับ เป็นการแสดงผลในคิวรี่ โดยเลือกข้อมูลวันที่ล่าสุด ของกลุ่มรหัส มาแสดง
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury, jee007

507
ห้อง MS Access / : ขอแนวทางการสร้าง Map ใน access
« เมื่อ: 24 ต.ค. 62 , 08:14:30 »
อ้างจาก: kunlek ที่ 22 ต.ค. 62 , 21:32:38
จากกระทู้56 คือชี้ตำแหน่งใน map ได้พิกัด  ในทางกลับกันที่ผมกระทู้คือ ถ้ามีข้อมูลพิกัดของลูกค้าอยู่ใน table แล้ว  เอาพิกัดไป POT ใน google map ดึงพิกัดไปจาก table ไปปักมุด

ผมกำลัง หาวิธีการใหม่โดยใช้ Web Browser เข้ามาช่วยในการเปิดแผนที่ ตามพิกัสที่ระบุ และใช้การเก็บตำแหน่ง ลัด ลอง ด้วยกำลังลองทำดูอยู่นะครับ
ผมก็ไม่เคยทำเหมือนกันกำลังหาวิธีอยู่ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI

508
ห้อง MS Access / : DLookup บนฟอร์มโดยใช้โค้ด
« เมื่อ: 22 ต.ค. 62 , 14:10:53 »
ผมชื่นชมการตั้งกระทู้แบบนี้ครับ
มีการตั้งโจทย์สอบถามเป็นขั้นเป็นตอนมีการยกตัวอย่างด้วยรูป
และบอกถึงปัญหาที่พบ หรือ ผลลัพธ์ที่อยากได้ อย่างชัดเจนง่ายต่อการตอบมากๆ ครับ  :grin: :grin:
ท่านอื่นถ้าสะดวก ตั้งกระทู้แบบนี้จะดีต่อผู้ตอบและคนตอบจะได้คำตอบที่รวดเร็วครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa, Mercury, ิboonyarit, วิริยะ คำสำราญ

509
ห้อง MS Access / : ขอแนวทางการสร้าง Map ใน access
« เมื่อ: 22 ต.ค. 62 , 10:31:21 »
เดี่ยวผมลองสร้างตัวอย่างให้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI, jee007

510
ห้อง MS Access / : DLookup บนฟอร์มโดยใช้โค้ด
« เมื่อ: 22 ต.ค. 62 , 10:27:02 »
แก้เป็น
โค๊ด: [Select]
Me.PackPerPallet = DLookup("[PackQuantity]", "[Packing]", "Number='" & [SizeOfCarton] & "'")
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury, jee007, ิboonyarit

511
ห้อง MS Access / : Access Runtime 2013ติดปัญหาครับ
« เมื่อ: 17 ต.ค. 62 , 15:49:20 »
อ้างถึง
เราจะเช็ค Reference library ของ VBA ได้อย่างไรครับ
กดเข้าหน้าเขียนโค้ด กด Alt+F11 เลือก Tool > Reference




อ้างถึง
และจะ Enable All Macro ตรง Trust Center Setting ได้อย่างไรครับ
ลองดูกระทู้นี้ครับ วิธีเปิด macro
https://www.thai-access.com/index.php?topic=375.msg1562#msg1562
โพสต์นี้ได้รับคำขอบคุณจาก: pitakchan

512
ห้องสนทนาทั่วไป / : ขอสอบถามเกี่ยวกับ คีย์ข้อมูลในคอมโบบ๊อกครับ
« เมื่อ: 16 ต.ค. 62 , 14:43:14 »
ใช้การป้อนข้อมูลจาก Combobox แล้ว แสดง ListBox มาเลือกรายการให้กับ Combobox มันจะสามารถใช้ Scroll Mouse ได้
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

513
ห้อง MS Access / : เราสามารถขยาย ช่อง checkbox ได้ไหมคะ
« เมื่อ: 15 ต.ค. 62 , 10:00:18 »
อ้างจาก: MAKI ที่ 15 ต.ค. 62 , 09:23:04
อยากจะทราบวิธี ขยาย Check Boxบนฟรอม คะ



ถ้าอยากให้ใหญ่ตามที่เราอยากได้ ใช้ Label มาสร้าง Checkbox ก็ได้ครับ
วิธีทำ
1 สร้าง Label ขึ้นมา ช่องใส่ข้อความ เคาะ space bar 1 ที ไม่ต้องใส่ข้อความ
2.ตั้งชื่อว่า lblCheck
3.จัดแนวข้อความกึ่งกลาง กำหนดขนาดตามต้องการ
4.ใส่ลักษณะพิเศษ แบบยุบตัว

กำหนดสถานะเมื่อ Click เราจะใช้ ChrW(&H2713) หรือ ChrW(&H2714) คือเครื่องหมายกาถูก
โดยเมื่อติ๊กถูกให้ checkbox ที่ชื่อ check1 = true ไปด้วย

Private Sub lblCheck_Click()
Call CheckboxDIY
End Sub

Sub CheckboxDIY()
  If Me.lblCheck.Caption = ChrW(&H2713) Then
    Me.lblCheck.Caption = vbNullString
    Me.Check1 = False
  Else
    Me.lblCheck.Caption = ChrW(&H2713)
    Me.Check1 = True
  End If
End Sub

โพสต์นี้ได้รับคำขอบคุณจาก: aek, MAKI

514
ห้อง MS Access / : เราสามารถเปิดฟอร์มของเราโดยไม่ต้องเปิด Access ได้ไหมครับ
« เมื่อ: 09 ต.ค. 62 , 12:48:13 »
อ้างจาก: boreris ที่ 09 ต.ค. 62 , 12:35:29
ตามหัวข้อเลยครับ ผมทำฟอร์มไว้ฟอร์มนึง มันสามารถตั้งค่าให้เปิดเอาจาก Desktop เลยได้ไหมโดยไม่ต้องเปิดโปรแกรม
เหมือนการทำเป็น Shortcut อะไรประมาณนั้น

คลิกขวาที่ไฟล์ เลือก Send to > (Desktop Create shotcut) ได้เลยครับ แล้ว ไปกำหนด Icon ตามใจชอบ

โดยที่ file access ต้องสร้าง Autoexec macro เพื่อสั่งเปิดฟอร์มที่เราต้องการแสดงขึ้นมา
หรือไปที่ File > Option > Current Database > ดูตรงตั้งค่าแสดงฟอร์ม ตามภาพ
โดยท่านสามารถตั้งชื่อโปรแกรมของท่าน / และใส่ Icon ได้ตรงส่วนนี้ด้วยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

515
ห้อง MS Access / : การใช้สูตรคำนวณในแต่ละฟิลด์
« เมื่อ: 08 ต.ค. 62 , 11:00:36 »
โค้ด ถูกแล้วครับ แต่ทำมันไม่ทำงานเพราะเราเพิ่มโค้ดแล้ว แต่ลืมไปกำหนด Event ตรงคุณสมบัติให้มันด้วย
สังเกตุว่า Event Afterupdate แต่ตรงคุณสมบัติยังว่างอยู่ กดเข้าไปตามรูปครับ

อีกอย่างตรง textbox totalpcs ยังเป็นชื่อ Text80 อยู่อย่าลืมแก้นะครับ

โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

516
ห้อง MS Access / : การใช้สูตรคำนวณในแต่ละฟิลด์
« เมื่อ: 07 ต.ค. 62 , 16:26:02 »
Private Sub จำนวนบรรจุ_AfterUpdate()
Call CalculateTotal
End Sub
Private Sub จำนวนชิ้นจ่ายออก_Afterupdate()
Call CalculateTotal
End Sub
Private Sub จำนวนลังจ่ายออก_Afterupdate()
Call CalculateTotal
End Sub

Sub CalculateTotal()
Dim cal1, cal2 As Double
cal1 = Nz([จำนวนบรรจุ], 0) * Nz([จำนวนลังจ่ายออก], 0)
cal2 = Nz([cal1], 0) + Nz([จำนวนชิ้นจ่ายออก], 0)

Me.ผลรวมจำนวนชิ้น = cal2
End Sub

ไม่มี textbox ชื่อผลรวมจำนวนชิ้นครับ อีกอย่างตั้งชื่อ Control เป็นภาษาอังกฤษเถอะครับ จะได้ไม่มีปัญหาในอนาคต


โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

517
ห้อง MS Access / : การใช้สูตรคำนวณในแต่ละฟิลด์
« เมื่อ: 07 ต.ค. 62 , 14:10:06 »
อ้างจาก: Mercury ที่ 07 ต.ค. 62 , 13:49:33
อ้างจาก: PNR ที่ 07 ต.ค. 62 , 13:26:17
สมการที่ 1 : จำนวนรับเข้า*จำนวนลัง = จำนวนชิ้น 
สมการที่ 2 : จำนวนชิ้น+จำนวนชิ้นจ่ายออก=ผลรวมจำนวนชิ้น


จำนวนชิ้น = nz([จำนวนรับเข้า],0) * nz([จำนวนลัง],0)

ผลรวมจำนวนชิ้น = nz([จำนวนชิ้น],0) + nz([จำนวนชิ้นจ่ายออก],0)

สอบถามเพิ่มเติมค่ะต้องวางสูตรที่ไหนคะ ใส่ในช่องฟอร์มได้เลยมั้ยคะ

ถ้าให้คำนวนตลอด ไว้ที่ form_current
หรือ สร้าง sub แล้วกำหนดevent Afterupdate ของ textbox ที่ใช้คำนวน ครับเช่น

Sub CalculateTotal
จำนวนชิ้น = nz([จำนวนรับเข้า],0) * nz([จำนวนลัง],0)
ผลรวมจำนวนชิ้น = nz([จำนวนชิ้น],0) + nz([จำนวนชิ้นจ่ายออก],0)
end sub


Private sub จำนวนรับเข้า_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนลัง_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนชิ้นจ่ายออก_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนลัง_Afterupdate
Call CalculateTotal
end sub

หมายเหตุดูว่า มีการเพิ่มข้อมูล textbox ไหน ก็วาง call ที่ event afterupdate textbox นั้นเพื่อให้ผลรวมจำนวนชิ้น คำนวนทุกครั้งที่ระบุจาก textbox ที่เกี่ยวข้อง
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

518
ห้อง MS Access / : การใช้สูตรคำนวณในแต่ละฟิลด์
« เมื่อ: 07 ต.ค. 62 , 13:26:17 »
สมการที่ 1 : จำนวนรับเข้า*จำนวนลัง = จำนวนชิ้น 
สมการที่ 2 : จำนวนชิ้น+จำนวนชิ้นจ่ายออก=ผลรวมจำนวนชิ้น


จำนวนชิ้น = nz([จำนวนรับเข้า],0) * nz([จำนวนลัง],0)

ผลรวมจำนวนชิ้น = nz([จำนวนชิ้น],0) + nz([จำนวนชิ้นจ่ายออก],0)
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

519
ห้อง MS Access / : ทำ Report จากข้อมูลที่ค้นหาหรือกรอง มาใน form
« เมื่อ: 04 ต.ค. 62 , 23:05:42 »
ใช้ recordsetclone ได้คับ ไว้พรุ่งนี้จะทำให้ดูพอดี ไม่มีคอมวันนี้
โพสต์นี้ได้รับคำขอบคุณจาก: boreris

520
ห้อง MS Access / : มือใหม่ครับ ผมมือบอนทำ Form Hide หายเลยครับจะเรียกคืนยังไงครับ
« เมื่อ: 04 ต.ค. 62 , 23:01:59 »
อ้างจาก: jee007 ที่ 04 ต.ค. 62 , 20:41:25
พอดีผมมือบอนครับอยากลองดู ไปคลิกขวาที่ Form แล้วกด hide มันหายไปแล้วจะเรียก form คืนยังไงดีครับ ทำมาตั้งนาน ขอบคุณมากครับ

กด F11 ตั้งค่า Navigation pane 


หรือกด คริกขวาที่ Navigation  pane ก็จะเห็น Form ที่ซ่อนอยู่ ก็กด  Show Hidden Objects ได้เลย
โพสต์นี้ได้รับคำขอบคุณจาก: jee007

521
ห้อง MS Access / : การคำนวณ Stock ที่มี 2 หน่วยพร้อมกัน
« เมื่อ: 02 ต.ค. 62 , 13:11:09 »
คือ คุณต้องการ รวมยอด การรับเข้า การส่งออก จำนวนคงเหลือ เศษรับเข้า เศษจ่ายออก โดยเงื่อนไข ให้รวมถ้า Inhouse_number และ Gcas เหมือนกันหรือเปล่าครับ

เช่นข้อมูลในตารางเป็นแบบนี้
Inhouse_number  / Gcas /   รับเข้า    /  ส่งออก 
11111111111      /  AA  /      10     /   5
11111111111      /  AA  /        5      /   5

คิวรี่ Q_Balance ต้องให้ได้
Inhouse_number  / Gcas /   รับเข้า    /  ส่งออก 
11111111111      /  AA   /      15     /   10

อยากให้แสดงแบบนี้หรือเปล่า ผมไม่ค่อยเข้าใจคำถามเหมือนกันครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

522
ห้อง MS Access / : กรองข้อมูลด้วย Combo Box และ Check Box และการค้นหาข้อมูลที่กรองยังไงครับ
« เมื่อ: 01 ต.ค. 62 , 18:45:02 »
ลองดูตัวอย่างนี้ครับ ทำงานแยกกันได้ ทำงานด้วยกันได้ ไม่รู้แบบที่ต้องการหรือเปล่าอยากได้ส่วนไหนเพิ่มก็บอกได้ครับ


แบบที่ 1 
checkbox ถ้าติ๊กถูก คือการเลือกเฉพาะที่ถูก และถ้าติ๊กออก คือแสดงข้อมูลทั้งหมด

โค๊ด: [Select]
Sub Search()
Dim StrWhere1, StrWhere2, GroupFilter As String

If Not IsNull(Me.combonamesearch) Then
StrWhere1 = "(((Qsaleh_cusprof.cus_name)=[forms]![frmhistoryh]![combonamesearch])"
End If
If Me.acculatesearch = True Then
StrWhere2 = "(((Qsaleh_cusprof.acculate)=[forms]![frmhistoryh]![acculatesearch])"
End If

GroupFilter = IIf(StrWhere1 = "", "", StrWhere1) & IIf(StrWhere2 = "", "", StrWhere2)
GroupFilter = Replace(GroupFilter, ")(((", ") and ((")

If IsNull(Me.combonamesearch) And Me.acculatesearch = False Then
Forms!frmhistoryh!frmhistorylist.Form.RecordSource = "Select * from Qsaleh_cusprof;"

ElseIf IsNull(Me.combonamesearch) And Me.acculatesearch = True Then
Forms!frmhistoryh!frmhistorylist.Form.RecordSource = "Select * from Qsaleh_cusprof where " & GroupFilter & ");"

ElseIf Not IsNull(Me.combonamesearch) And Me.acculatesearch = True Then
Forms!frmhistoryh!frmhistorylist.Form.RecordSource = "Select * from Qsaleh_cusprof where " & GroupFilter & ");"

ElseIf Not IsNull(Me.combonamesearch) And Me.acculatesearch = False Then
Forms!frmhistoryh!frmhistorylist.Form.RecordSource = "Select * from Qsaleh_cusprof where " & GroupFilter & ");"
End If

If Forms!frmhistoryh!frmhistorylist.Form.Recordset.RecordCount = 0 Then
MsgBox "ไม่พบข้อมูลที่ค้นหา", vbInformation, "สถานะการค้นหา"
End If

End Sub

Private Sub acculatesearch_AfterUpdate()
Call Search
End Sub

Private Sub combonamesearch_AfterUpdate()
Call Search
End Sub


แบบที่ 2
คือเงื่อนไขจะมาจากทั้ง 2 Control เช่นถ้าไม่ติ๊กถูก ข้อมูลที่ติ๊กถูกจะหายไป แบบนี้คือ Fix เงื่อนไขที่ตัว checkbox และ combobox ไว้ตลอด ตัวอย่างโค้ด

โค๊ด: [Select]
Sub Search()
Dim StrWhere1, StrWhere2, GroupFilter As String

If Not IsNull(Me.combonamesearch) Then
StrWhere1 = "(((Qsaleh_cusprof.cus_name)=[forms]![frmhistoryh]![combonamesearch])"
End If
StrWhere2 = "(((Qsaleh_cusprof.acculate)=[forms]![frmhistoryh]![acculatesearch])"

GroupFilter = IIf(StrWhere1 = "", "", StrWhere1) & IIf(StrWhere2 = "", "", StrWhere2)
GroupFilter = Replace(GroupFilter, ")(((", ") and ((")

If IsNull(Me.combonamesearch) And Me.acculatesearch = False Then
Forms!frmhistoryh!frmhistorylist.Form.RecordSource = "Select * from Qsaleh_cusprof;"
Else
Forms!frmhistoryh!frmhistorylist.Form.RecordSource = "Select * from Qsaleh_cusprof where " & GroupFilter & ");"
End If
If Forms!frmhistoryh!frmhistorylist.Form.Recordset.RecordCount = 0 Then
MsgBox "ไม่พบข้อมูล", vbInformation, "การค้นหา"
End If
End Sub
Private Sub acculatesearch_AfterUpdate()
Call Search
End Sub

Private Sub combonamesearch_AfterUpdate()
Call Search
End Sub
ลองดูครับ ผิดตรงไหนแจ้งได้นะคับ
โพสต์นี้ได้รับคำขอบคุณจาก: Tongo

หน้า: 1 ... 26 27 28 [29] 30 31 32