แสดงกระทู้

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

ปล.เท่าที่ผมทราบ+หาดูมาให้นะ

2
ห้อง 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

3
เจอเว็บ 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

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

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


5
กำหนด 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'

6
ห้อง MS Access / : สร้างฟอร์มรับสินค้า
« เมื่อ: 05 ก.ย. 63 , 14:02:30 »
*อย่าตั้งกระทู้ซ้ำครับ

อ้างถึง
Private Sub Inhouse_AfterUpdate()
Me.Customer = DLookup("[cus]", "[Raw Material]", "Code='" & [Inhouse] & "'")
Me.List = DLookup("[name]", "[Raw Material]", "Code='" & [Inhouse] & "'")
End Sub
Inhouse และ Customer กับ List รูปแบบของข้อมูลเป็นอย่างไร และมันเป็นเลข-ตัวอักษรตายตัวหรือ+1ขึ้นไปเลื่อยๆ?
ผมใช้ DLookup ไม่เป็นรอท่านอื่นครับ

อ้างถึง
Sub Inhouse_AfterUpdate()
Dim cal1
cal1 = Nz([Insupkg], 0) / Nz([Intotalcanned], 0)
Me.Intotalcanned = Nz([cal1], 0) + 0
End Sub
Dim cal1 As Variant หรือ As String กำหนดด้วยครับ

7
เครื่อง Access Runtime ตั้งค่า Trusted Locations หรือยังครับ :question:

เว็บนี้มีโปรแกรมให้ไม่ต้องแก้ registry เอง / โหลด->แตกไฟล์วางใว้ที่เดียวกับไฟล์ access -> ติดตั้ง / แล้วลองเปิดใหม่ดูครับ
https://www.accessribbon.de/en/?Trust_Center:Trusted_Locations link

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

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

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

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

11
สวัสดีครับ เนื่องด้วยผมจะทำฟอร์มรับค่าต่างๆแล้วเขียนโค้ดโปรแกรมออกมาใส่ใว้ใน Text Box นะครับ
1.อยากสอบถามว่าต้องเขียนคำสั่งอย่างไรให้ข้อความขึ้นบรรทัดใหม่แทนที่จะต่อกันไปยาวๆนะครับ
จาก
โค๊ด: [Select]
{111..{222...{333...}}}เป็น
โค๊ด: [Select]
{111
...
{222
...
{333
...
}
}
}

2.เขียนปุ่มคำสั่งทำอย่างไรให้เลือกข้อความทั้งหมดบน Text Box และสั่ง Copy แทนที่เราจะไป Ctrl-A , Ctrl-C ครับ :prettiness:

ปล.Text Box สามารถมีจำนวนตัวอักษรเกิน 255 ได้ใหมครับ? (ไม่ได้มีการบันทึกค่าลงในตารางใดๆ)

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

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

14
จากกระทู้ใหม่ อ.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:
ขอบคุณครับ


15
ขอแทรกเข้ามาตีโจทย์ของกระทู้นี้นะครับ / สิ่งที่ จขก.นั้นต้องการก็คือ
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

16
พึ่งคิดได้ว่าก็ใช้คำสั่งให้ทุกปุ่มที่มีซ่อนก่อนแล้วค่อยมาสั่งแสดงตามตัวเลขที่หลังอีกที  :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

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