แสดงกระทู้

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 - UnKnown

หน้า: [1] 2 3 4 ... 6
1
วิธีทำให้ qurey ใส่หมายเลขเรียงอัตโนมัติลองดูกระทู้นี้ครับ https://www.thai-access.com/index.php?topic=1434.msg6261#msg6261
ว่าแต่อันไหนคือชนิดของพัสดุที่จะนำมาเรียงครับนี่ :question:

หรือว่าจะให้ qurey ออกเลขแยกตามหน่วยงานที่เบิกครับ เช่น คลังเบิกครั้งที่1,2,3,... ช่างเบิกก็นับแยกครั้งที่1,2,3,...
โพสต์นี้ได้รับคำขอบคุณจาก: MiKu

2
ที่เมนูด้านบน Design -> Property Sheet แถบด้านขวาจะเปลี่ยน ทีนี้ในส่วนของ Data -> Record Source ก็จะสามารถเลือกข้อมูลมาได้ทั้งจาก Table,Query,หรือจะทำ Query ขึ้นใหม่ใช้เองได้เหมือนทำหน้าฟอร์มครับ
โพสต์นี้ได้รับคำขอบคุณจาก: oraaoi

3
ผมคิดว่าการทำ UNION Query นั้นจะเป็นเพียงการรวมข้อมูลในหลายๆตารางมาแสดงเท่านั้นทำให้แก้ไขไม่ได้ครับ
>> https://stackoverflow.com/questions/1261959/how-do-i-make-an-editable-union-query link

ปล.เท่าที่ผมทราบ+หาดูมาให้นะ
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

4
ห้อง MS Access / : ความเข้าใจ .Tag code vb access
« เมื่อ: 17 ก.ย. 63 , 11:13:59 »
.Tag ในกรณีของผมเอามาใช้ในการจัดกลุ่มโดยในหน้า Property -> Ohter จะมีให้ใส่ Tag อยู่
ตัวอย่างผมมี combo box อยู่หลายตัวแต่เมื่อใช้คำสั่งนี้อยากให้มีผลเฉพาะตัวที่กำหนด Tag "B1" ใว้เท่านั้น

อ้างถึง
Private Sub CleanAllFieldsButton_Click()
Dim ctl As Control
    For Each ctl In Me.Controls
    Select Case ctl.ControlType

    Case acComboBox And ctl.Tag = "B1"
           ctl.Value = Null

    End Select
   Next

    Set ctl = Nothing
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: sjs, สันติสุข, napat2020

5
เจอเว็บ https://www.utteraccess.com/topics/1454249# link เขาทำใว้ครับ

ปล.Pick Date ... ของไฟล์นี้จะไม่สามารถใช้งานได้บน 2007 ขึ้นไปเพราะ Access ตัดไลบารี่ MSCAL.OCX ออกครับ https://www.thai-access.com/topic_post.asp?CategoryID=1&TopicID=3078
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI

6
Map Google Drive in Windows (ตัวอย่างเขาเพิ่มเป็นไดรฟ์ I)

หมายเหตุ ทุกเครื่องที่ลงโปรแกรมแล้วเชื่อมต่อจะเห็นข้อมูลใน Google Drive เหมือนทำ map network drive

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

7
กำหนด Format ครับ
" รายการนำเข้า จำนวน"& Format([txtจำนวนเงิน], "Standard") &" บาท"

โค๊ด: [Select]
Format (210.6, "#,##0.00")
Result: '210.60'

Format (210.6, "Standard")
Result: '210.60'

Format (0.981, "Percent")
Result: '98.10%'

Format (1267.5, "Currency")
Result: '$1,267.50'
โพสต์นี้ได้รับคำขอบคุณจาก: sjs, SakDa, MAKI

8
อ้างถึง
1. มีวิธีให้ Query แล้ว table ยังอยู่ใน back end ไหมครับ
จะให้ Front End ไปสร้าง table ใน back end นี่คงจะไม่ได้ แต่ถ้าเมื่อสร้างเสร็จแล้้วค่อยส่งเทเบิ้ลดังกล่าวให้ไปอยู่ back end น่าจะได้ครับรอท่านอื่นมาแนะนำอีกที :yuush:

อ้างถึง
2. เหตุที่ต้องทำอย่างนี้เพราะต้องเอา Query Union กับ table ข้อมูลมาแมตกันครับ มีวิธีที่ดีกว่านี้ไหมครับ
แม้เทเบิ้ลจะอยู่กันคนล่ะที่แต่ก็สามารถเอามา Union กันได้ไม่ใช้เหรอครับ :question:
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

9
ห้อง MS Access / : รวมฟิวส์ Text
« เมื่อ: 31 ส.ค. 63 , 15:24:27 »
เท่าที่ทราบคือไม่ว่าจะใช้เงื่อนไขไหนก็ต้องพิมพ์เสร็จหรือ Enter ก่อนข้อมูลที่อื่นถึงจะอัพเดทครับ / จะให้เป็นแนวว่าระหว่างพิมพ์ช่องหนึ่งอยู่แล้วให้อีกช่องอัพเดทแบบ Realtime ทันทีเลยทั้งที่ยังไม่ตกลงคงจะไม่มีนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung

10
1.ชุดคำสั่งทำให้ข้อความขึ้นบรรทัดใหม่ = Chr(13) & Chr(10)   :love:
ขอบคุณวิธีจาก https://stackoverflow.com/questions/14619671/how-to-make-2-lines-in-a-text-box-in-microsoft-access-2010 link

2.ชุดคำสั่งเลือกข้อความทั้งหมดแล้วก็อบปี้   :enjoying:
โค๊ด: [Select]
    Me.textbox1.SetFocus
    DoCmd.RunCommand acCmdCopy
โพสต์นี้ได้รับคำขอบคุณจาก: สันติสุข

12
1.หน้าฟอร์มแสดงเฉพาะรายการที่ Check = False

ไฟล์ตัวอย่างแนวทางใหม่(ยังไม่ได้แกะเพื่อแก้ไฟล์ของท่านนะครับ /ดูแนวแล้วแก้เองเลยหรือรอท่านอื่นอีกทีนะครับ)
โพสต์นี้ได้รับคำขอบคุณจาก: kn208598

13
จากกระทู้ใหม่ อ.OddyWriter นั้นจะทำงานอัตโนมัติครับ
https://www.thai-access.com/index.php?topic=416.msg1892#msg1892

หรือจะนำโค้ดไปใส่ใว้ที่ปุ่มเมื่อกดแล้วจึงค่อยส่งค่าไปที่ Text Box ก็ได้ครับขึ้นอยู่กับการออกแบบ
Private Sub Command1_Click()
............
End Sub

กระทู้ท่าน NAT ใส่ใว้ที่ปุ่มครับ
พอดีมือใหม่นะครับ
สอบถามหน่อยครับ
จากกระทู้ที่ถามโคด รันเลขที่ใบเสร็จ แบบ ปี+เดือน+ลำดับ
https://www.thai-access.com/topic_post.asp?CategoryID=1&TopicID=5760

คำถามคือ
ผมต้องไปใส่โคดที่เมนูไหน(มือใหม่นะครับ) กำลัง งงๆ :question:
ขอบคุณครับ

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

14
ขอแทรกเข้ามาตีโจทย์ของกระทู้นี้นะครับ / สิ่งที่ จขก.นั้นต้องการก็คือ
1.ต้องการให้บนหน้าฟอร์มแสดงเฉพาะรายการที่ถูกติ๊กและมีการเก็บค่าใว้บนตารางจากที่อื่น(ทั้งหมด40-มีติ๊กใว้อยู่ก่อนแล้ว20=ฟอร์มต้องแสดงแค่20ที่เหลือ)
2.เมื่อหน้าฟอร์มแสดงแค่20รายการจากข้อ1 จะมาทำการติ๊กเลือกอีกครั้งว่าจะเอาตัวไหนออกรายงานบ้าง(เหลือ20-ติ๊กใหม่10=ออกรายงาน10)

ถ้าเป็นดั่งด้านบน วิธีการที่ผมจะทำคือให้บนตารางเก็บค่าติ๊กใว้2ค่าแล้วจะเกิดเหตุการณ์ดังนี้
1.หน้าฟอร์มแสดงเฉพาะรายการที่ Check = True
2.เมื่อติ๊กบนหน้าฟอร์มอีกครั้งจะเก็บค่าใว้บน Check2 = True
3.เมื่อออกรายงานจึงเป็น 40 - 20(check) - 10(check2) = 10รายการเท่านั้นใช่หรือไม่ครับ?

ปล.ผมเอาไฟล์จากโพสนี้ไปทำการเพิ่ม check2 และทำการกรองตามวิธีด้านบนครับ(ค่าcheck อยู่บนตารางไม่ได้ทำฟอร์มแก้)
ลองดูตัวอย่างจากกระทู้นี้ครับ
https://www.thai-access.com/index.php?topic=307.msg1223#msg1223
โพสต์นี้ได้รับคำขอบคุณจาก: kn208598

15
พึ่งคิดได้ว่าก็ใช้คำสั่งให้ทุกปุ่มที่มีซ่อนก่อนแล้วค่อยมาสั่งแสดงตามตัวเลขที่หลังอีกที  :meaw:

โค๊ด: [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

16
แนวคือเมื่อใส่เลขงวดไปแล้ว แล้วให้แสดงเฉพาะปุ่มนั้นมีแนวทางตามนี้ครับ

แบบที่1 ทุกปุ่มสั่งล็อคใว้ Enabled = No จะปลดล็อคเมื่อเลขงวดตรง
โค๊ด: [Select]
Private Sub Text5_AfterUpdate()
GetNum = Me.Text5
    Select Case GetNum
        Case "1": Me.Command1.Enabled = True
        Case "2": Me.Command2.Enabled = True
        Case "3": Me.Command3.Enabled = True
        Case "4": Me.Command4.Enabled = True
    End Select
End Sub

แบบที่2 ทุกปุ่มสั่งซ่อนใว้(ยังไม่แสดง) Visible = No จะแสดงปุ่มเมื่อเลขงวดตรง
โค๊ด: [Select]
Private Sub Text5_AfterUpdate()
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

ทั้งสองแบบต่างกันที่การตั้งค่าปุ่มบนหน้าฟอร์มกับชุดคำสั่งเพียงเล็กน้อย

แต่ชุดคำสั่งด้านบนยังติดขัดคือ สมมุติใส่เลขงวด1 = ปุ่ม1ทำงาน | แก้ใส่เลขงวด2 = ปุ่ม2ทำงาน แต่ปุ่ม1ก็จะยังคงทำงานอยู่ไม่ล็อคหรือกลับไปซ่อนตามเดิมนะ รอคำแนะนำจากท่านอื่นอีกทีครับ
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung, ิboonyarit

หน้า: [1] 2 3 4 ... 6