สวัสดีครับ

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

ขอบคุณครับ

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

ขอท้าวความก่อน
คือผมมีเพลนจะทำฐานข้อมูลออนไลน์ โดยจากเดิมเป็น 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 ก็ได้

ขอบคุณครับ

อ้างจาก: Kxess ที่ 06 พ.ย. 62 , 08:47:39

ทำให้มันเป็นเวอร์ชั่นเดียวกัน เพื่อลดปัญหาที่อาจจะเกิดขึ้นครับ
ที่ผมทำก็คือเปิดไฟล์เก่าด้วยโปรแกรมเวอร์ชั่นใหม่ แล้วบันทึกเป็นเวอร์ชั่นใหม่

สอบถามค่ะถ้าเราใช้ Access 2010 อยู่และอัพเดทโปรแกรมเป็น Version 2013 หรือ Version อื่นๆที่ใหม่กว่า Version ที่ใช้อยู่ปัจจุบัน
จะมีผลต่อกระทบต่อโปรแกรมหรือการใช้งานหรือไม่คะ

ส่วนตัวไม่มีปัญหาอะไรนะครับ
อาจจะเพราะไม่ได้เขียนโปรแกรมซับซ้อน เรียกใช้อะไรพิเศษ

ขอยกตัวอย่างที่ผมทำนะครับ
แต่ผมเก็บ log ไว้ในตารางนะครับ ไม่ได้เขียนลงไฟล์


เหตุการณ์ After_Click ในปุ่ม OK / ในฟอร์ม Login

'โค้ดนี้หลังจากตรวจสอบ username / password ผ่านแล้ว
 LogUser_ID = DLookup("Employee_ID", "Employees", "Username='" & Me.txtUserName.Value & "'")

 EnvUserName = Eniron("USERNAME")
 EnvCompName = Environ("COMPUTERNAME")

 Call Start_SS(LogUser_ID, EnvUserName, EnvCompName)
 Call SaveActivity(session_Login_ID, "ลงชื่อเข้าใช้", session_Env_UserName, session_Env_CompName, Now())
มาที่โมดูล
ฟังก์ชั่นสร้างเซซซั่น ประกาศตัวแปรเป็นแบบ Public เอาไว้เรียกใช้เวลาจะตรวจสอบผู้ใช้ก่อนจะทำอะไรต่าง ๆ

Public Function Start_SS(getUser_ID As Integer, getUserName As String , getCompName As String)
session_Login_ID = getUser_ID
session_Env_UserName = getUserName
session_Env_CompName = getCompName
End Function

ฟังก์ชั่นในการบันทึกว่าใครทำอะไร
Public Function SaveActivity(LogUser_ID As Integer, Activity As String, getUserName As String, getCompName As String, TimeStampNow As Date)

  Dim db As DAO.Database
  Dim rs As DAO.Recordset
  Set db = CurrentDb
  Set rs = db.OpenRecordset("Activity_Log")

  rs.AddNew
  rs("Employee_ID") = LogUser_ID //ID
  rs("Activity_Log") = Activity //ทำอะไร
  rs("User_Name") = getUserName //ชื่อที่ลงชื่อเข้าใช้คอมพิวเตอร์
  rs("Computer_Name") = getCompName //ชื่อของเครื่องคอมพิวเตอร์
  rs("TimeStamp_Log") = TimeStampNow // วันเวลา
  rs.Update
  rs.Close

End Function
การเรียกบันทึก log
วิธีการเรียกใช้ก็คือ เรียกฟังก์ชั่น SaveActivity ในเหตุการณ์ที่ต้องการบันทึก log เช่น AfterInsert , AfterUpdate , หรือปุ่มกดต่าง ๆ

ตัวอย่าง
 Call SaveActivity(session_Login_ID, "สร้างในเสนอราคา  No : " & Me![Q_ID], session_Env_UserName, session_Env_CompName, Now())
 
 Call SaveActivity(session_Login_ID, "แก้ไขใบเสนอราคา  No : " & Me![Q_ID], session_Env_UserName, session_Env_CompName, Now())

คร่าว ๆ ประมาณนี้ครับ

Access เป็น Front-end เชื่อมต่อ mySQL ผ่าน localhost ครับ

*MySQL ODBC 8.0 Unicode Drive

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



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


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

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

ผมลองทำแล้ว
โดยผมเปิดฐานข้อมูล 2 เครื่อง ทดลองเพิ่มข้อมูล แต่มันไม่ยอมซิ้งข้อมูล โดยแจ้งว่า



คือถ้าผมเปิดโปรแกรม access อยู่ onedrive มันจะไม่ซิ้งข้อมูลเลยครับ ผมต้องปิดก่อน

ไม่แน่ใจผมทำถูกรึป่าว หรือว่ามันต้องไปตั้งค่าที่ไหนก่อนครับ

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

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

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

ขอบคุณครับ

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

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

ดังรูป




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

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

แก้คอลัมน์ RGB ในตารางแล้วครับ
กลายเป็นว่า access มอง RGB เป็นฟิลด์ (ใช่มั้ยครับ)


edit:
ตอนนี้ทำได้แล้วครับ ผมใช้วิธีแปลง RGB เป็น Hex แล้วค่อยใช้โค้ดของคุณ UnKnown

Me.MxColor.BackColor = "&H" & Right$(strColor, 2) & Mid$(strColor, 3, 2) & Left$(strColor, 2)

เผื่อใครสนใจแปลง rgb to hex
Function RGBtoHEX(R As Byte, G As Byte, B As Byte) As String

    If R < 16 Then
        HEX1 = 0 & Hex(R)
    Else
        HEX1 = Hex(R)
    End If
   
    If G < 16 Then
        HEX2 = 0 & Hex(G)
    Else
        HEX2 = Hex(G)
    End If
   
    If B < 16 Then
        HEX3 = 0 & Hex(B)
    Else
        HEX3 = Hex(B)
    End If
   
    RGBtoHEX = HEX1 & HEX2 & HEX3

End Functionขอบคุณครับ