แสดงกระทู้

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 ... 3 4 5 [6] 7 8 9 10
91
ห้อง 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

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

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

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

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

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

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

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

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

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

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

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

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

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

100
จากกระทู้ใหม่ อ.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/yeadram_view.php?topic_id=5760

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

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

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

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

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

แบบที่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

104
Private Sub Command0_Click()
DoCmd.SAVE
Me.Requery
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: ชุติพนธ์ มหาทรัพย์

105
ข้อมูลแก้ไข Type จาก nvarchar เป็น varchar ไม่ได้ค่ะ SQL ไม่ให้เปลี่ยน เนื่องจาก Export ข้อมูลมาจาก Access ข้อมูลหลาย Record แล้วด้วยค่ะ
ใช่ครับ SQL เขาไม่ให้เปลี่ยนจึงแนะนำแนวทางตามโพสล่างไปนะ :wut:
.....ใช้วิธีสั่งก๊อบข้อมูลทั้งหมดจาก ntext ไปคอลัมน์ที่สร้างใหม่เป็น text แล้วจึงใช้งานจากคอลัมน์นี่แทน...

ตัวอย่างชุดคำสั่งบน SQL Server Management Studio
UPDATE [ชุดดาต้าเบส].[dbo].[ชื่อเทเบิ้ล]
SET [คอลัมน์ใหม่] = [คอลัมน์เก่า]

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

106
ลองดูตัวอย่างอาจารย์ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: p.choowa

107
โดยทั่วไปการจะเลือกช่วงเวลาจะใช้คำสั่ง between โดยจะต้องมีวันที่เข้าไปด้วยตามตัวอย่างของอ.สันติสุข ครับ

โพสนี้แวะมาแนะนำชุดคำสั่งที่ใช้สำหรับแปลงวันที่(ไม่ว่าเราจะกดเลือกวันที่เท่าไหร่)ให้เป็นวันแรกหรือวันสุดท้ายของเดือนนั้นๆ

วันแรกของเดือน = DateSerial(Year(Date()), Month(Date()), 1)
วันสุดท้ายของเดือน = DateSerial(Year(Date()), Month(Date())+1, 0)
*Date() = ใช้ชื่อ TextBox แทนค่าลงไปได้
โพสต์นี้ได้รับคำขอบคุณจาก: bgfc

108
เหมือนว่าระบบจะไม่ให้แก้ข้อมูลเก่าเป็นฟิลด์คำนวนครับ ต้องเพิ่มแถวข้อมูลใหม่ > Calculated > ใส่หรือพิมพ์สูตรทึีต้องการคำนวนเช่น [a ]+[b ] / เสร็จสิ้น

https://codekabinett.com/rdumps.php?Lang=2&targetDoc=access-table-calculated-field-compute-quarter-date

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

หน้า: 1 ... 3 4 5 [6] 7 8 9 10