19
ห้อง MS Access / : วิธีการใช้งานฐานข้อมูล access ผ่าน internet
« เมื่อ: 02 ส.ค. 62 , 16:16:43 »
ที่เคยใช้คือ เอาไฟล์ฝากไว้ใน One Drive แล้วใช้ได้ไม่มีปัญหานะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Kxess
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.
*ในเทเบิ้ล "JPMA" มีชื่อคอลัมน์ RGB ซึ่งมันเป็นชื่อซ้ำกับตัวแปลไปแก้เป็นชื่ออื่นซะเป็นอันจบครับเมื่อเรามีการแก้ชื่อคอลัมน์ไปนั้น ในฟอร์มที่มีการลิ้งเทเบิ้ลดังกล่าวจะต้องมาทำทีเป็นว่าสั่งลิ้งเทเบิ้ลนั้นใหม่/ที่กล่องข้อความที่มีการลิ้งคอลัมน์ก็เช่นกัน(แม้เราจะเห็นว่ามันเปลี่ยนไปอัตโนมัติแล้วแต่บางที่โปรแกรมมันเอ้อครับ)
Public Function Color_Hex_To_Long(strColor As String) As Long
Dim iRed As Integer
Dim iGreen As Integer
Dim iBlue As Integer
strColor = Replace(strColor, "#", "")
strColor = Right("000000" & strColor, 6)
iBlue = Val("&H" & Mid(strColor, 1, 2))
iGreen = Val("&H" & Mid(strColor, 3, 2))
iRed = Val("&H" & Mid(strColor, 5, 2))
Color_Hex_To_Long = RGB(iRed, iGreen, iBlue)
End Function
Me.Detail.BackColor = RGB("&H" & Left$(s, 2), _
"&H" & Mid$(s, 3, 2), _
"&H" & Right$(s, 2))
Me.Detail.BackColor = "&H" & Right$(s, 2) & Mid$(s, 3, 2) & Left$(s, 2)
Function MyHexColor(ByVal StrHex)
If Len(StrHex) = 7 Then StrHex = Mid(StrHex, 2, 6)
If Len(StrHex) = 6 Then
num_array = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "a", "b", "c", "d", "e", "f")
char1 = LCase(Mid(StrHex, 1, 1))
char2 = LCase(Mid(StrHex, 2, 1))
char3 = LCase(Mid(StrHex, 3, 1))
char4 = LCase(Mid(StrHex, 4, 1))
char5 = LCase(Mid(StrHex, 5, 1))
char6 = LCase(Mid(StrHex, 6, 1))
For i = 0 To 15
If (char1 = num_array(i)) Then position1 = i
If (char2 = num_array(i)) Then position2 = i
If (char3 = num_array(i)) Then position3 = i
If (char4 = num_array(i)) Then position4 = i
If (char5 = num_array(i)) Then position5 = i
If (char6 = num_array(i)) Then position6 = i
Next
If IsEmpty(position1) Or IsEmpty(position2) Or IsEmpty(position3) Or IsEmpty(position4) Or IsEmpty(position5) Or IsEmpty(position6) Then
MyHexColor = -1
Else
MyHexColor = RGB(position1 * 16 + position2, position3 * 16 + position4, position5 * 16 + position6)
End If
Else
MyHexColor = -1
End If
End Function
Private Sub รายละเอียด_Paint()
If Not IsNull(Me.HEX) Then
Me.COLOR.BackColor = MyHexColor(HEX)
Else
Me.COLOR.BackColor = MyHexColor("#FFFFFF")
End If
End Sub
ปักครับ
ผมเป็นบ่อยมาก ทุกวันนี้ยังเป็นอยู่บ่อย ๆ
แก้ทุกวิธีที่รู้แล้ว ยังไม่หาย
ถ้า จขกท ทำวิธีใดแล้วหาย รบกวนบอกหน่อยนะครับ
ขอบคุณครับ
ผมจะแก้ปัญหาฐานข้อมูล error 3343 โดยผมจะสร้างฐานข้อมูลใหม่แล้ว import ฐานข้อมูลเดิมเข้ามา
แต่ในระหว่างทำการ import ก็ติด Reserved error 1524
เท่าที่ค้นหาดู ไม่ค่อยมีวิธีแก้ปัญหา error นี้เลย ใครมีประสบการณ์เคยเจอ แนะนำหน่อยครับ
ขอบคุณครับ
For some reason, some data in one record has been corrupted. The text was replaced with strange symbols.