แสดงกระทู้

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.


Topics - Kxess

หน้า: [1]
1



ผมมี 2 ตาราง
1. ตารางรายชื่อลูกค้าและ email
2. ตาราง email ที่ถูกตีกลับ

ผมอยากจะลบ email ของลูกค้าที่ตีกลับ ลบเฉพาะข้อมูล email ไม่ลบระเบียนครับ
ผมควรจะเขียนคิวรี่อย่างไรดีครับ
ขอบคุณครับ

2
ผมจะทำการคัดลอกข้อมูลลูกค้าทั้งหมดครับ

คำสั่ง
CurrentDb.Execute "INSERT INTO Customers SELECT * FROM Customers WHERE Customer_ID = " & FromCustomerID & ";"

แต่มันไม่ทำงาน ไม่แน่ใจว่าต้องใช้คำสั่งไหนครับ รบกวนด้วยครับ

ปล. จำเป็นต้อง vba

3


Access + Mysql ODBC

error ค่อนข้างแปลก คือใส่ ip นึง แต่ error แจ้ง ip นึง
- ชื่อ domain และ ip ถูกต้องแน่นอน เครื่องอื่นเชื่อมต่อได้หมด เป็นแค่เครื่องนี้เครื่องเดียว
- ชื่อ user ก็ถูกต้องครับ

ในหน้าต่าง odbc
tcp/ip server : ผมลองใส่ทั้ง domain และ ip แต่เวลา error ดันแจ้งเป็น ip ซึ่ง ip นี้เป็น public ip ของเน็ตผมเองครับ
เหมือนกับมันไม่ได้เชื่อมต่อไปที่ ip server ที่เราใส่ แต่เชื่อมต่อไปที่ public ip เลยทำให้หาไม่เจอ มันเป็นเพราะอะไรครับ




4
ก่อนอื่น
ผมใช้ access + mysql (ฐานข้อมูลอยู่บน www)
โดยฐานข้อมูลนี้ export มาจาก sql server โดยไม่มี error ใด ๆ ครับ กำหนด pk เรียบร้อยหมดแล้ว

อาการ
- การดึงข้อมูลมาแสดงทำได้ปกติ
- ข้อมูลที่เพิ่มใหม่ เพิ่มได้ แต่แก้ไขไม่ได้ ฟ้อง write conflict
- แต่ข้อมูลเก่า แก้ไขได้ปกติ




ไม่ทราบว่ามีแนวทางการแก้ปัญหาแนะนำมั้ยครับ
ขอบคุณครับ

5
ห้อง MS Access / Loop เปลี่ยนสีแถบ Navigation
« เมื่อ: 12 มี.ค. 63 , 10:06:49 »
สวัสดีครับ

ผมจะ loop เพื่อเปลี่ยนสีแถบ ในเหตุการณ์ onload ของ ฟอร์มหลัก โดยมี navigation form อยู่ในส่วนของ Detail ซึ่งผลที่ออกมาคือ
สีเปลี่ยนแค่แถบเดียว คือแถบ "Home" ซึ่งไม่เปลี่ยนทั้งหมด รบกวนช่วยดูหน่อยครับ
ปล. ทุกแถบใส่ Tag ค่า "b1" หมดแล้ว
ขอบคุณครับ



โค้ดฟอร์มหลัก
โค๊ด: [Select]
Sub Formstyle(frm As Form)
Dim ctl As Control

For Each ctl In frm.Controls
        If ctl.Tag = "b1" Then
            ctl.BackColor = 11193702
        End If
    Next ctl
    'ctl = Nothing
End Sub

โค้ดในเหตุการณ์ onload ของฟอร์มหลัก
'แค่เรียก
โค๊ด: [Select]
--
Formstyle Me
--

6
สวัสดีครับ

ผมเชื่อมต่อฐานข้อมูล Frontend Access + sql server
โดยทุกครั้งที่ปิด access เข้าฐานข้อมูล จะมีให้ใส่รหัสผ่านของ sql server
ตรงนี้อยากจะทราบว่า สามารถเขียน vba ให้ใส่รหัสผ่านไว้ก่อนได้มั้ยครับ ให้ user ไม่ต้องมาพิมพ์รหัสผ่าน

ขอบคุณครับ


7
สวัสดีครับ สมาชิกทุกท่าน

ขอท้าวความก่อน
คือผมมีเพลนจะทำฐานข้อมูลออนไลน์ โดยจากเดิมเป็น Access / Front End + Back End ทำงานในวง Lan ปกติ

1. ผมลองใช้ Access -> ODBC -> Google Cloud SQL
ก็ทำงานได้ มีปัญหาอยู่เล็กน้อย คือการที่ record แสดงผล #DELETE กับความดีเลย์ในการทำงานนิดหน่อย
และมีค่าใช้จ่ายหลายพันต่อเดือน ก็เลยหาแนวทางอื่น คือ ...ข้อ 2.

2. ใช้เครื่องที่ทำงานเป็น server แล้วไปใช้ Access -> ODBC -> MS SQL Server ผมหาความรู้ในบอร์ดนี้แหละครับ มีแนวทางอยู่บ้าง แต่ว่ามันเป็นการทำงานผ่าน Lan เท่านั้น ผมอยากจะให้เครื่องที่อื่น สามารถเข้ามาใช้ฐานข้อมูลได้ ผ่าน Internet

คำถามคือ ทำอย่างไรได้บ้างครับ ที่จะใช้เครื่องตัวเองเป็น sql server แล้วเครื่องภายนอกเข้าใช้ฐานข้อมูลผ่าน Internet โดย Access เป็น Front End

ผมสับสนว่า ต้องจำลองเครื่องเป็น server xampp ด้วยหรือไม่
หรือลงแค่ ms sql server 2017 express ก็ได้

ขอบคุณครับ

8
ห้อง MS Access / Access + mysql แสดงข้อความ #DELETE
« เมื่อ: 19 ส.ค. 62 , 16:51:58 »
Access เป็น Front-end เชื่อมต่อ mySQL ผ่าน localhost ครับ

*MySQL ODBC 8.0 Unicode Drive

ผมทดลองเปลี่ยนชนิดข้อมูลของ Category_ID เป็น tinyInt / SmallInt / MediumInt / Int / แล้วก็แสดงผลเหมือนเดิม คือมีบางระเบียนเป็น #DELETE
แต่ถ้าเปลี่ยนเป็น BigIng ทุกระเบียนจะแสดงเป็น #DELETE



แสดง #Delete บางส่วน แต่ถ้ากด F5 จะแสดงข้อมูลได้ปกติครบทุกระเบียน


เบื้องต้นเท่าที่หาข้อมูล พบว่า Access ไม่สนับสนุน ตัวแปรข้อมูลขนาดใหญ่ แต่นี่ก็เปลี่ยนเป็นชนิดข้อมูลที่เล็กที่สุดแล้วก็ยังไม่หาย

อยากทราบว่าสาเหตุเกิดจากอะไร และแก้ไขได้อย่างไรบ้างครับ
ขอบคุณครับ


9
รบกวนแนะนำวิธีการใช้งานฐานข้อมูล access ผ่าน internet หน่อยครับ

ลักษณะที่อยากจะทำคือ

พนักงานเข้าใช้ฐานข้อมูล font-end (ที่บ้าน) >>> internet >>> back-end (windows 10 ที่ออฟฟิศ)

ขอบคุณครับ


10
ปัญหาเกิดจากเวลาใช้ฐานข้อมูลแล้วมีการเปิดระเบียนนึงขึ้นมาหลายเครื่อง (ในวง LAN)
และเมื่อมีการบันทึก มันจะมีตัวเลือกขึ้นมา 3 ตัวเลือก (ผมไม่มีตัวอย่างรูปนะครับ)

แล้วเมื่อผู้ใช้กดเลือก "บันทึกระเบียน"
ระเบียนนั้นข้อมูลจะมั่วไปเลยครับ แล้วระเบียนนั้นก็จะใช้ไม่ได้ แก้ไขไม่ได้ ต้องซ่อมแซมฐานข้อมูลอย่างเดียว

ดังรูป




ซึ่งปัญหานี้เกิดค่อนข้างบ่อยมาก เสี่ยงข้อมูลสูญหาย และเคยหายบ้างแล้ว

อยากจะรบกวนช่วยแนะนำวิธีป้องกัน วิธีแก้ไข หรือเกิดจากการออกแบบ แนะนำด้วยคร้าบ
ขอบคุณครับ

11
สวัสดีครับ
มีวิธีเปลี่ยนสีช่องแบบภาพตัวอย่างเป็น Continuous Forms แต่อยากให้แต่ละแถวที่ดึงข้อมูลออกมา มี 1 ช่องที่แสดงสี แต่สีจะไม่เหมือนกันเลย โดยโค้ดสีถูกเก็บไว้ในตารางนี้แหละ

โดยที่ไม่ใช้ Conditional Formatting Rules นะครับ เพราะสีเยอะมาก



ขอบคุณครับ

12
ห้อง MS Access / Reserved error 1524 เวลา import
« เมื่อ: 13 มิ.ย. 61 , 13:20:35 »
ผมจะแก้ปัญหาฐานข้อมูล error 3343 โดยผมจะสร้างฐานข้อมูลใหม่แล้ว import ฐานข้อมูลเดิมเข้ามา
แต่ในระหว่างทำการ import ก็ติด Reserved error 1524



เท่าที่ค้นหาดู ไม่ค่อยมีวิธีแก้ปัญหา error นี้เลย ใครมีประสบการณ์เคยเจอ แนะนำหน่อยครับ
ขอบคุณครับ

13
ช่วงนี้ หลังจากอัพเดท windows 10
error รูปแบบฐานข้อมูลไม่รู้จัก บ่อยมากครับ



แต่เวลาไปเปิดไฟล์ ฐานข้อมูลหลังบ้าน มันจะซ่อมแซ่มให้อัตโนมัติ ซึ่งก็กลับมาให้ได้ปกติ แล้วใช้ไปซักพักก็จะเป็นอีก ก็ซ่อมแซมกันไป

คืออยากทราบว่าใครมีวิธีแก้บ้างมั้ยครับ

เท่าที่หาข้อมูล error นี้เกิดจาก
- ความแตกต่างของเวอร์ชั่น
- ปัญหาด้านฮาร์ดแวร์ ซอฟแแวร์
- ไวรัส

ซึ่งดูแล้วเครื่องลูกข่ายก็ไม่ได้มีอะไรผิดปกติ access ก็ใช้เวอร์ชั่นเดียวกัน

ขอบคุณครับ

14
สอบถาม จากโค้ดตัวอย่างของผม มันผิดตรงไหนครับ

อ้างถึง
error 3134
Syntax error in INSERT INTO statement.

น่าจะผิดที่จุดเล็ก ๆ แต่ลองแก้หลายรอบแล้ว error ตลอดครับ ไม่รู้จริง ๆ ผิดตรงไหน  :confused:

โค๊ด: [Select]
CurrentDb.Execute "INSERT INTO Credit_Note ( CN_ID, CN_Customer_ID, CN_INV_Refer1, CN_Status, CN_Main_Contact_Name, CN_Main_contact_Tel, CN_PO_No, CN_Quotation_No, CN_Full_Address, CN_VAT_Total, CN_VAT_Percent, CN_Sub_Total, CN_Net_Price, CN_Discount_Price, CN_Discount_Percent, CN_Date, CN_Payment_Type) " _
& "VALUES ('" & getCN_ID & "', " & Me![Customer_ID] & ", '" & Me![Bill_ID] & "', " & CnStatus & ", '" & Nz(Me![O_Main_Contact_Name], "") & "', '" & Nz(Me![O_Main_Contact_Tel], "") & "', '" & Nz(Me![PO_ID], "") & "', '" & Nz(Me![Quotation_ID], "") & "', '" & NewCN_Full_Address & "', " & Nz(Me![Bill_VAT_Total], "") & ", " & Nz(Me![Bill_VAT_Percent], "") & ", " & Nz(Me![Bill_Sub_Total], "") & ", " & Nz(Me![Bill_Net_Price], "") & ", " & Nz(Me![Bill_Discount_Price], "") & ", " & Nz(Me![Bill_Discount_Percent], "") & ", '" & Now() & "', '" & Nz(Me![Bill_Payment_Type], "") & "');"


ขอบคุณครับ

หน้า: [1]