แสดงกระทู้

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 5
1
Private Sub Command0_Click()
DoCmd.SAVE
Me.Requery
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: ชุติพนธ์ มหาทรัพย์

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

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

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

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

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

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

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

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

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

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

6
ที่ Combo box : Part Name สั่ง Requery ข้อมูลครับ
โค๊ด: [Select]
Private Sub cb_PartID_GotFocus()
    Me.cb_PartID.Requery
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: p.choowa

7
จากเดิมอักษรย่อกลุ่มคือ TEX SEX และ AEX ซึ่งนับได้ 3 ตัวอักษร
ท่านใช้ TE, SE และ AE ซึ่งนับได้ 2 ตัวอักษร ดังนั้นแก้เลขตัวนี้ครับ
X = DMax("Right(JobNo,4)", "[Export_Booking_Table]", "Left([JobNo],6) = cmbG & Left([txtDate2], 4)")

ปล.ถ้าจากไฟล์ตัวอย่างแก้ชื่อย่อในเทเบิ้ลที่เก็บชื่อกลุ่มด้วยนะ
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

8
Trust Center ใน Runtime จะไม่มีให้ตั้งค่า ใช้วิธีแก้ Registry โดยเพิ่ม Trusted Locations
https://www.accessribbon.de/en/?Trust_Center:Trusted_Locations link
ถ้างงว่าแก้ยังไงในเว็บด้านล่างโหลดโปรแกรมตามเวอร์ชั่น runtime แตกไฟล์โปรแกมออกมา > นำไปวางใว้ที่เดียวกับไฟล์ Access > รันโปรแกรมจะทำการแก้ regedit ให้ > ทนลองเปิดไฟล์งาน

* สั่งรันเพื่อแก้ regedit เพียงครั้งเดียวต่อหนึ่งที่อยู่ (รันเสร็จลบหรือย้ายไปรันที่อื่นต่อได้)
* ถ้ามีไฟล์ Access อยู่หลายที่เช่น
1. c:/งาน1
2. d:/งาน2/งาน2.2
ให้นำโปรแกรมไปวางใว้แล้วส้่งรันในทุกที่เหมือนเป็นการเพิ่มระเบียนว่ามีที่ไหนบ้างให้ runtime ยอมรับว่าปลอดภัย

ปล.ในส่วนของ Action Query ลองทำตาม อ.สันติสุข ดูก่อนนะครับ :prettiness:
โพสต์นี้ได้รับคำขอบคุณจาก: เก่ง

9
จากไฟล์ตัวอย่างใช้วิธี Datasheet > ซ้อน Datasheet > ซ้อน..... > ซ้อน Continuous Forms
Datasheet นั้นจะมีรูปแบบ,มุมมองคล้ายกับ Table ครับ

ส่วนที่ทำ Continuous มาปิดท้ายนั้นตอบเผื่อกระทู้ https://www.thai-access.com/index.php?topic=1191 ที่เคยโพสถามใว้นะครับ
ตัว Continuous Forms นั้นเหมือนจะมีอำนาจอยู่ต่ำสุดจึงไม่สามารถอยู่เหนือใครได้ และ Datasheet ยังคงมี + ไม่สามารถซ่อนได้แบบ Continuous อย่างที่ต้องการครับ

หมายเหตุ  ฟอร์มตัวอย่างสั่งล็อคข้อมูลใว้ ถ้าไม่ล็อคใว้มันก็จะสามารถแก้ไขได้เหมือนเปิดเทเบิ้ลจริงมาแก้
โพสต์นี้ได้รับคำขอบคุณจาก: Un, thanapol.w, S'Saifon SB B'Banjongjairak

10
1.ท่านสั่งให้มันจำค่าต่างๆ(รหัส,วันที่สั่ง,...)ใว้ที่ Table ไหนก็ไปเพิ่มให้มันจำสถานะปุ่มใว้ด้วยนะ
2.เมื่อเปิดฟอร์มมาก็สั่งให้ตรวจสอบแล้วสั่งให้ปุ่มมีผลตามค่านั้น
ปล.ไม่รู้ว่าท่านสั่งให้ปุ่มชื่อ DM500 มาจากไหนอ่านะครับผมจึงสั่งให้ฟอร์มเป็นตัวกำหนด
โค๊ด: [Select]
Private Sub Form_Current()
    If Me.Check_cb_no1 = True Then
        Me.cb_no1.Caption = "DM500"
        Me.cb_no1.BackColor = vbYellow
        Me.cb_no1.Enabled = True
    Else
        Me.cb_no1.Caption = "Lock"
        Me.cb_no1.BackColor = vbRed
        Me.cb_no1.Enabled = False
    End If
End Sub

Private Sub cb_no1_Click()
    If Me.cb_no1.Caption = "DM500" Then
        Me.cb_no1.Caption = "Lock"
        Me.cb_no1.BackColor = vbRed
        Me.cb_no1.Enabled = False
        Me.Check_cb_no1 = False
    End If
End Sub

Private Sub cb_no2_Click()
    Me.cb_no1.Caption = "DM500"
    Me.cb_no1.BackColor = vbYellow
    Me.cb_no1.Enabled = True
    Me.Check_cb_no1 = True
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: Eakaluk Sansila

11
แวะมาโพสรูปเทียบไฟล์เดียวกันเครื่องเดียวกันแต่เปิด-ปิด Visual effects ของ Windows ต่างกัน
ผลคือถ้าปุ่มตั้งค่า Use Theme = Yes ใว้ Visual effects ไม่มีผล  :question:
โพสต์นี้ได้รับคำขอบคุณจาก: Un, พิชญะ ชัยชนะ

12
พร้อมให้ทีมวิวไปดูเครื่องผู้ใช้งานหรือคุยไลน์ส่งข้อความส่วนตัวมานะครับ

Adding Databases to Access 2007 (and higher) Trusted Locations link
Adding Trusted Location to Access Run Time link
https://www.accessribbon.de/en/?Trust_Center:Trusted_Locations link
How do set a file/location to trusted for Access runtime? link
ตัวอย่างชุดคำสั่งแก้ Registry
โค๊ด: [Select]
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security]
"VBAWarnings"=dword:00000001
[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\Trusted Locations]
[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\Location0]
"Path"="%userprofile%\\my documents\\"
"Description"="my docs"
"Date"="14/03/2011 5:39 p.m."
"AllowSubFolders"=dword:00000001
[HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Access\Security\Trusted Locations\Location2]
"Path"="C:\\Program Files\\Microsoft Office\\Office12\\ACCWIZ\\"
"Description"="Access default location: Wizard Databases"
"AllowSubFolders"=dword:00000001
โพสต์นี้ได้รับคำขอบคุณจาก: Sompode Harnying

13
พื้นฐานตัวโปรแกรมเขาจะเปิดระบบป้องกันใว้อยู่นะครับ เราต้องเปิด Access แบบเพียวๆ(ตัวruntimeมีไอค่อนให้กดใหมน้อ)จากนั้นไปตั้งค่าครับ
Access Options > Trust Center > ActiveX Settings > Enable All controls....

https://www.thai-access.com/index.php?topic=1024.msg4510#msg4510
โพสต์นี้ได้รับคำขอบคุณจาก: Sompode Harnying

14
ไฟล์ฉบับเหมือนจะง่ายไม่ผูกอะไรครับ :shout:
จากกระทู้เก่าท่านเห็นมี Value แยกหมวดอยู่ผมเลยแอบเอามาใส่ในนี้ให้มีเป็นแนวด้วยนะครับ หรือก็คือ ID จะรันแยกหมวดและปีเดือนครับ(แต่ Table2 จะไม่เทพอย่างท่าน PNR )
โค๊ด: [Select]
Private Sub cmd_QuNew_Click()
If IsNull(cmbG) Then
    Me.cmbG.SetFocus
    MsgBox "เลือกกลุ่ม"
Else
    Me.txtID = AutotxtID
End If
End Sub

Function AutotxtID() As String
Dim X As Variant
Dim bk, cmbG As String
    cmbG = Me.cmbG
    X = DMax("Right(ID,4)", "[Table1]", "Left([ID],7) = cmbG & Left([txtDate2], 4)")
    If IsNull(X) Then bk = 1 Else bk = X + 1
    AutotxtID = cmbG & Left([txtDate2], 4) & Format(bk, "0000")
End Function

หรือตัวอย่างของท่าน PNR มีระบบผูกตาราง,คิวรี่,ฯลฯ
https://www.thai-access.com/index.php?topic=1063.msg4744#msg4744
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

15
สร้างบ้านก่อนแล้วค่อยให้คนเลือกบ้านที่จะเข้าไปอาศัยครับ
ถ้าจะทั้งสร้างคนและสร้างบ้านไปพร้อมๆกันกลัวว่าจะเลขที่บ้านเดียวกันแต่ดันอยู่คนล่ะหลังนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: thanapol.w

16
ระบบรันเลขที่ในเว็บมีเยอะเลยค้นหาดูก่อนครับ เพียงแต่เขาจะรันหรือทำงานบนฟอร์มกันซะส่วนใหญ่นะ :yuush:
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

หน้า: [1] 2 3 4 5