แสดงกระทู้

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 - SakDa

หน้า: 1 2 3 4 [5] 6 7
73
ห้อง MS Access / : อยากฟอร์มโหลดมาแล้วกรองตาราง ฟิล์ด และ ค่าที่อยู่ในฟิล์ด เอาเฉพาะเรคคอร์ดนั้น
« เมื่อ: 26 ก.พ. 63 , 08:24:12 »
อ้างจาก: SakDa ที่ 25 ก.พ. 63 , 22:10:39
เป็นฟอร์มหลักแล้วเรียกตาราง tblAssign มาเพื่อทำการแก้ไขข้อมูลโดยตรง ในตารางมีรหัสงานอยู่เป็นจำนวนมาก อยากเช็คเวลาเรียน เพราะเวลาเรียนเช็คทุกวันและทุกคาบ ขี้เกียจเลื่อนเมาส์ไปหารหัสงานตัวนี้  เลยอยากจะให้มันแสดงข้อมูลชื่อฟิล์ด ่jobcode-รหัสงาน jobcode นี้มีค่าเท่ากับ class เวลาเราคลิกเรียกใช้ฟอร์มนี้ อยากให้มันกรองค่าและแสดงเฉพาะ ่jobcode = "class" ครับ
ทำได้หลายแบบมากครับ
แบบที่ 1 ใช้การกำหนด โดยใช้ FormLoad แบบที่คุณอยากทำ

เราใช้การกำหนด RecordSource แบบ Fix เงื่อนไข
ตรงข้อมูลแหล่งระเบียน เว้นว่างๆ ไว้นะครับ แล้วใส่โค้ดนี้เข้าไปแทน

Private Sub Form_Load()
Dim sql As String
sql = "SELECT tblAssign.* FROM tblAssign WHERE (((tblAssign.jobcode)='class'));"
Me.RecordSource = sql
End Sub

แบบที่ 2 กำหนด Criteria ไว้เลยว่าเอาเฉพาะ Class แบบนี้ไม่ต้องใช้ Event Form_Load



แบบที่ 3 ใช้ Combobox ในการเลือก Jobcode ที่ต้องการ อันนี้ผมคิดเผื่อไว้ในอนาคตถ้าอยาก แก้ไขตัวอื่นด้วย
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

74
ห้อง MS Access / : ระบบประวัติ การซื้อ ขาย แบ่ง รวม ที่ดิน
« เมื่อ: 26 ก.พ. 63 , 02:50:45 »
ที่ดินเกิดธุรกรรม ทำให้ข้อมูลของที่ดินรหัสนั้นๆมีการเปลี่ยนแปลง และเนื่องจากต้องการเก็บประวัติ ดังนั้นรหัสของที่ดิน (FL_CODE) อย่างเดียว นำไปเป็น primary key ไม่ได้ ก็ต้องมีอีกฟิลด์ที่เป็นลำดับแสดงสถานะภาพของที่ดินรหัสนั้นร่วมอยู่ด้วย (ผมไม่แน่ใจว่าในนี้คือ FL_ID หรือเปล่า) เช่น F100 ลำดับที่ 1 เมื่อมีการเปลี่ยนแปลงอะไรไปก็จะเป็น F100 ลำดับที่ 2

ต่อไปที่ดินมีเกิดธุรกรรมคือ การแบ่ง ทำให้เกิดความสัมพันธ์ one-to-many ระหว่าง รหัสที่ดิน+ลำดับสถานะภาพนั้นๆ กับ รหัสที่ดิน(รหัสเดิมและ/หรือรหัสใหม่)+ลำดับสถานะภาพใหม่  ส่วนธุรกรรม การรวม ที่ดินก็ทำให้เกิดความสัมพันธ์ many-to-one  ระหว่าง รหัสที่ดิน+ลำดับสถานะภาพนั้นๆ กับ รหัสที่ดิน(รหัสเดิมและ/หรือรหัสใหม่)+ลำดับสถานะภาพใหม่  จะสังเกตเห็นว่ามันเป็นความสัมพันธ์แบบ many-to-many ระหว่างเทเบิล Tbl_Farmland กับตัวมันเอง ฟังดูแล้วอาจจะแปลกๆเพราะปกติจะเห็นแต่ความสัมพันธ์ระหว่างเทเบิลที่แตกต่างกัน แต่ความสัมพันธ์แบบนี้ก็มีครับ และเป็นกฏเกณฑ์เลยว่าเมื่อมี many-to-many ก็จะต้องสร้างเทเบิลกลางขึ้นมาใหม่อีกตัว และมีความสัมพันธ์กับเทเบิลเดิมแบบ many-to-one เทเบิลใหม่นี้คือเทเบิล "ความสัมพันธ์ของที่ดินจากธุรกรรม" ซึ่งน่าจะประกอบไปด้วย 6 ฟิลด์เป็นอย่างน้อย (สามารถใช้ทั้ง 6 ฟิลด์รวมเป็น primary key ได้) คือ
   - เลขที่ธุรกรรม
   - รหัสที่ดินก่อนธุรกรรม
   - ลำดับสถานะภาพของที่ดินในฟิลด์ที่ 2
   - รหัสที่ดินหลังธุรกรรม
   - ลำดับสถานะภาพของที่ดินในฟิลด์ที่ 4
   - ประเภทธุรกรรม (แบ่ง,รวม,โอน)
จากเทเบิลนี้ ก็สามารถเช็คได้ว่าที่ดินรหัสนั้นๆมีธุรกรรมอะไรเกิดขึ้น แต่ต้องเช็คทั้ง 2 ขาคือเช็คในฟิลด์ที่ 2 และ 4 ด้วยครับ

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

75
ห้อง MS Access / : อยากฟอร์มโหลดมาแล้วกรองตาราง ฟิล์ด และ ค่าที่อยู่ในฟิล์ด เอาเฉพาะเรคคอร์ดนั้น
« เมื่อ: 25 ก.พ. 63 , 16:07:44 »
อธิบายเพิ่มเติมอีกนิดครับ ผมยังงงคำถาม  :XD:
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

76
ห้อง MS Access / : ใครมี function อ่านค่า DATE เป็นภาษา อังกฤษ ขอหน่อยครับ
« เมื่อ: 25 ก.พ. 63 , 15:52:47 »
OK  ได้ Concept
พัฒนาต่อได้แล้วครับ
ขอบคุณครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

77
ห้อง MS Access / : ใครมี Function อ่านเงินบาท เป็นภาษาอังกฤษ ขอหน่อยครับ
« เมื่อ: 25 ก.พ. 63 , 14:39:57 »
อ้างจาก: Krathok-man ที่ 25 ก.พ. 63 , 11:04:12
เช่น  65.00 อ่านว่า "sixty five bath"  เป็นต้น จนถึงหลักล้าน

สร้าง Module ใส่โค้ดนี้เข้าไป


โค๊ด: [Select]
Public Function wsiSpellNumber(ByVal MyNumber)
    Dim Bath, Stang, Temp
    Dim DecimalPlace, Count
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "
    ' String representation of amount.
    MyNumber = Trim(Str(MyNumber))
    ' Position of decimal place 0 if none.
    DecimalPlace = InStr(MyNumber, ".")
    ' Convert Stang and set MyNumber to dollar amount.
    If DecimalPlace > 0 Then
        Stang = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
                  "00", 2))
        MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
    End If
    Count = 1
    Do While MyNumber <> ""
        Temp = GetHundreds(Right(MyNumber, 3))
        If Temp <> "" Then Bath = Temp & Place(Count) & Bath
        If Len(MyNumber) > 3 Then
            MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop
    Select Case Bath
        Case ""
           Bath = "No Bath"
        Case "One"
            Bath = "One Bath"
         Case Else
            Bath = Bath & " Bath"
    End Select
    Select Case Stang
        Case ""
            Stang = " and No Stang"
        Case "One"
            Stang = " and One Stang"
              Case Else
           Stang = " and " & Stang & " Stang"
    End Select
    wsiSpellNumber = Bath & Stang
End Function
     
' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
    Dim result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    ' Convert the hundreds place.
    If Mid(MyNumber, 1, 1) <> "0" Then
        result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    ' Convert the tens and ones place.
    If Mid(MyNumber, 2, 1) <> "0" Then
        result = result & GetTens(Mid(MyNumber, 2))
    Else
        result = result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = result
End Function
     
' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
    Dim result As String
    result = ""           ' Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...
        Select Case Val(TensText)
            Case 10: result = "Ten"
            Case 11: result = "Eleven"
            Case 12: result = "Twelve"
            Case 13: result = "Thirteen"
            Case 14: result = "Fourteen"
            Case 15: result = "Fifteen"
            Case 16: result = "Sixteen"
            Case 17: result = "Seventeen"
            Case 18: result = "Eighteen"
            Case 19: result = "Nineteen"
            Case Else
        End Select
    Else                                 ' If value between 20-99...
        Select Case Val(Left(TensText, 1))
            Case 2: result = "Twenty "
            Case 3: result = "Thirty "
            Case 4: result = "Forty "
            Case 5: result = "Fifty "
            Case 6: result = "Sixty "
            Case 7: result = "Seventy "
            Case 8: result = "Eighty "
            Case 9: result = "Ninety "
            Case Else
        End Select
        result = result & GetDigit _
            (Right(TensText, 1))  ' Retrieve ones place.
    End If
    GetTens = result
End Function
     
' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
    Select Case Val(Digit)
        Case 1: GetDigit = "One"
        Case 2: GetDigit = "Two"
        Case 3: GetDigit = "Three"
        Case 4: GetDigit = "Four"
        Case 5: GetDigit = "Five"
        Case 6: GetDigit = "Six"
        Case 7: GetDigit = "Seven"
        Case 8: GetDigit = "Eight"
        Case 9: GetDigit = "Nine"
        Case Else: GetDigit = ""
    End Select
End Function
เวลาเรียกใช้ก็ใส่ในคิวรี่ ก็ใส่ EngText:wsiSpellNumber([ชื่อฟิลล์]) หรือ ตัวแปรที่จำให้แสดง

Credit : www.microsoftaccessexpert.com
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

78
ห้อง MS Access / : ใครมี function อ่านค่า DATE เป็นภาษา อังกฤษ ขอหน่อยครับ
« เมื่อ: 25 ก.พ. 63 , 14:39:47 »
ด้านบนเป็นเพียงการเติมอักษรต่อท้ายเลขวันที่ครับ
ส่วนมาโครด้านล่างนี่ผมก็แก้จากชื่อเดือนภาษาไทยเป็นชื่อเดือนภาษาอังกฤษครับ
ตัวอย่างการนำไปใช้งาน =Format(Date(),"d ") & MonthNameEng(Date()) & " " & Year(Date()) = 25 February 2020

โค๊ด: [Select]
Option Compare Database

Public Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Public Declare Function GetLocaleInfo Lib "kernel32" _
   Alias "GetLocaleInfoA" _
(ByVal Locale As Long, _
   ByVal LCType As Long, _
   ByVal lpLCData As String, _
   ByVal cchData As Long) As Long

Public Function GetUserLocaleInfo(ByVal dwLocaleID As Long, ByVal dwLCType As Long) As String
   Dim sReturn As String
   Dim r As Long
   r = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Len(sReturn))
   If r Then
      sReturn = Space$(r)
      r = GetLocaleInfo(dwLocaleID, dwLCType, sReturn, Len(sReturn))
      If r Then GetUserLocaleInfo = Left$(sReturn, r - 1)
   End If
End Function

Public Function mYear(ByVal yourDate As Date) As Long
    mYear = Year(yourDate)
    If GetUserLocaleInfo(GetSystemDefaultLCID(), &H1009) = 7 Then mYear = Year(yourDate)
End Function

Public Function bYear(ByVal yourDate As Date) As Long
bYear = Year(yourDate)
'If GetUserLocaleInfo(GetSystemDefaultLCID(), &H1009) <> 7 Then bYear = Year(yourDate) + 543
If GetUserLocaleInfo(GetSystemDefaultLCID(), &H1009) = 7 Then bYear = ((Year(yourDate) + 543) - 2500)
End Function

Function MonthNameEng(ByVal yourDate) As String
    If Not IsNull(yourDate) Then
        yourDate = Format(yourDate, "m")
        Select Case yourDate
            Case 1
               MonthNameEng = "January"
            Case 2
               MonthNameEng = "February"
            Case 3
               MonthNameEng = "March"
            Case 4
               MonthNameEng = "April"
            Case 5
               MonthNameEng = "May"
            Case 6
               MonthNameEng = "June"
            Case 7
               MonthNameEng = "July"
            Case 8
               MonthNameEng = "August"
            Case 9
               MonthNameEng = "September"
            Case 10
               MonthNameEng = "October"
            Case 11
               MonthNameEng = "November"
            Case 12
               MonthNameEng = "December"
            Case Else
               MonthNameEng = ""
        End Select
    End If
End Function


มาแถมถ้าอยากให้มีอักษรต่อท้ายด้วยอีก
1. แก้มาโครแรกให้ FancyDate = FancyDate & Format(dteInput, " ")
2. =FancyDate(Date()) & MonthNameEng(Date()) & " " & Year(Date()) จะได้  25th February 2020
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

79
ห้อง MS Access / : คิดว่าจะทำคิวรี่ถ้าเป็นค่า0/blankให้แสดงค่าเป็น1นอกนั้น0 อยากนับจำนวนครั้ง
« เมื่อ: 11 ก.พ. 63 , 15:19:13 »
อ้างถึง
ทำคิวรี่เพื่อเปรียบเทียบค่าถ้า 0 หรือ ค่าว่างให้แสดงเป็นค่า 1 ลองใช้ iif แล้วทำคิวรี่อีกอันมารวม

ใช้ Sum ในคิวรี่นี้เลยก็ได้นะครับ  เช่น โดยการ group by
กำหนดตรง groupby เป็น expression
Expr1:Sum(IIf(IsNull([score]),1,0)

ตัวอย่างในคิวรี่ในงานเก่าๆ ที่เคยทำไว้
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

80
ห้อง MS Access / : formหลักมีcombo box แล้วอยากให้ตรงsub form แสดงข้อมูลตาม
« เมื่อ: 11 ก.พ. 63 , 08:48:41 »
ลักษณะเดียวกับโพสนี้ https://www.thai-access.com/index.php?topic=905.0
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

81
ห้อง MS Access / : ก่อนหน้าทำ mde ไม่ได้ ตรวจdebugโค้ดที่ไม่เกี่ยวออกทำ mde ได้ คิวรี่ใช้ไม่ได้ต่อ
« เมื่อ: 07 ก.พ. 63 , 23:34:20 »
คิวรี่ไม่ทำงาน แล้วมี error อะไรแสดงออกมาหรือไม่ และอาจทดสอบโดยการสร้างโปรแกรมเล็กๆ พอกดปุ่มบนฟอร์มก็รันคิวรี่ที่อัพเดตค่าอะไรบางค่าลงฐานข้อมูลทดลองไปเลย ดูว่าทำได้หรือไม่

อีกอย่างคือเมื่อปลายปีที่แล้ว ตัวอัพเดตของ Office ก่อให้เกิดปัญหากับตัวคิวรี่ ตอนนี้ทางไมโครซอฟ์ทได้มีตัวแก้ไขออกมาให้แล้ว ลองอ่านที่นี่ดูครับ https://accessexperts.com/blog/2019/11/13/critical-office-update-breaks-access-query-is-corrupt/?fbclid=IwAR1gvYE82pQJmKUW9HFjBbhrYAnBMDmGEmJ3XI-GdEB09wk0vyvS9hTSEyE
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

82
ห้อง MS Access / : มีสองฟอร์มใช้ทำงานในเวลาต่อกัน อยากจับเอาสองนี้มาไว้หน้ากากเดียวกัน
« เมื่อ: 04 ก.พ. 63 , 15:00:00 »
ทำ sub ฟอร์ม 2 อัน ก็อยู่ด้วยกันแล้ว
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

83
ห้อง MS Access / : ครูที่ปรึกษาหลายคนกับชื่อนักเรียน1คน
« เมื่อ: 31 ม.ค. 63 , 11:33:15 »
ผมสมมุติตาราง 2 ตารางคือ ตารางรายละเอียดนักเรียนชื่อ tblstudent มี ข้อมูลตามภาพ


ตารางที่สองเป็นตารางรายละเอียดคุณครู ชื่อ tblAdviser


ต่อมาสร้างคิวรี่ชื่อว่า QryMakeDATA เพื่อรวบรวมรายละเอียดที่จะนำไปสร้างโดยใช้ โค้ด
โค๊ด: [Select]
SELECT tblStudent.Stud_Code, tblStudent.Stud_Name, tblAdviser.Adviser_Name
FROM tblStudent LEFT JOIN tblAdviser ON tblStudent.Stud_Class = tblAdviser.Adviser_Class;

สร้างตารางเพื่อไว้เก็บข้อมูลที่ผ่านการสร้างใหม่ขึ้นมาแล้วผมให้ชื่อว่า tblResult
โดย มี 2 field ดังนี้
Column1 ชนิดข้อมูลเป็น text
Column2 ชนิดข้อมูลเป็น text


ที่ฟอร์มสร้างปุ่มขึ้นมา 1 ปุ่ม Event Click ใส่ข้อมูลดังนี้
โค๊ด: [Select]
Private Sub Makedatatotable_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim rstOut As DAO.Recordset
Dim strStud_Code As String
Dim strAdviser_Name As String
Set db = CurrentDb()
Set rst = db.OpenRecordset("QryMakeDATA", dbOpenDynaset)

If Not rst.BOF And Not rst.EOF Then
  rst.MoveFirst
  strStud_Code = rst!Stud_Code
  strAdviser_Name = rst!Adviser_Name
 
  rst.MoveNext
   
  Do Until rst.EOF
    If strStud_Code = rst!Stud_Code Then
      strAdviser_Name = strAdviser_Name & ", " & rst!Adviser_Name
    Else
    Set db = CurrentDb()
    Set rstOut = db.OpenRecordset("tblResult", dbOpenDynaset)
    rstOut.AddNew
    rstOut!Column1 = strStud_Code
    rstOut!Column2 = strAdviser_Name
    rstOut.Update
       
      strStud_Code = rst!Stud_Code
      strAdviser_Name = rst!Adviser_Name
        rstOut.Close
        db.Close   
    End If
    rst.MoveNext
  Loop
    Set db = CurrentDb()
    Set rstOut = db.OpenRecordset("tblResult", dbOpenDynaset)
    rstOut.AddNew
    rstOut!Column1 = strStud_Code
    rstOut!Column2 = strAdviser_Name
    rstOut.Update       
      strStud_Code = rstOut!Column1
      strAdviser_Name = rstOut!Column2 
    rstOut.Close
    db.Close
   MsgBox "ออกข้อมูลเรียบร้อย", vbInformation, "แจ้งเตือน"
End If
Set rst = Nothing
Set db = Nothing
Set rstOut = Nothing
End Sub
ตัวอย่างข้อมูลที่ได้ครับ


ข้อมูลเหล่านี้สามารถไปสร้างเป็นรายงานได้เลยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

84
ห้อง MS Access / : ครูที่ปรึกษาหลายคนกับชื่อนักเรียน1คน
« เมื่อ: 30 ม.ค. 63 , 14:02:03 »
อ้างจาก: SakDa ที่ 30 ม.ค. 63 , 13:47:14
กำลังทำตามครับ ลบหลายคิวรี่แล้ว ยังไม่โชว์ชื่อครบ ทั้ง value row column ลองๆสลับกันดู ยังไม่สำเร็จ ออกชื่อครูที่ปรึกษาไม่ครบ

ส่งฐานข้อมูลที่มี student และ ตารางที่มี adviser มาครับ
ผมทำให้ดู
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

85
ห้อง MS Access / : ครูที่ปรึกษาหลายคนกับชื่อนักเรียน1คน
« เมื่อ: 29 ม.ค. 63 , 20:08:30 »
ทำแบบไหนดีนะ  :sweat: :sweat:
ลองใช้คิวรี่แบบ Cross Tab หรือยังครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

86
ห้อง MS Access / : ฟอร์มแก้ไขคะแนนในฐานงานของนักเรียนแต่อยากให้แสดงรายละเอียดของงานที่เราเคยเก็บไป
« เมื่อ: 28 ม.ค. 63 , 07:56:43 »
อ้างถึง
อยากให้ไปดึงข้อมูลจากตารางมอบหมายงานมาแสดงควบคู่กัน เพราะตารางนั้นมีรหัสงาน คะแนนเต็ม ชื่องาน

ใช้การ Join Query หรือใช้การ Dlookup มาแสดง โดยดึงมาจาก รหัสงาน ที่ตรงกันครับ
ส่งตัวอย่างมาทาง Inbox ของผม เดี่ยวผมทำให้ดูครับ

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

87
ห้องสนทนาทั่วไป / : โปรแกรมตรวจการนำไปใช้ภายในไฟล์ฐานข้อมูล 1 ไฟล์ ของแอคเซส 2003
« เมื่อ: 27 ม.ค. 63 , 14:56:26 »
     การสร้างไฟล์แอคเซสขึ้นมาไฟล์ๆหนึ่งนั้นก็คล้ายกับการเขียนโปรแกรมขึ้นมานั่นล่ะครับ ดังนั้นตาราง,คิวรี่,ฟอร์ม,หรือโค้ดคำสั่งที่มีอยู่ก็เกิดจากที่เราสร้างมันขึ้นมามันจะเป็นขยะหรือไม่ก็ขึ้นอยู่กับตัวเรา หรืออย่างบางทีเราสร้างคิวรี่,สร้างฟอร์มมาเก็บใว้ไม่ได้ใช้งานจริงนั่นก็ถือว่าเป็นขยะของไฟล์ได้แล้วครับ แต่เราก็อาจอยากเก็บใว้เพื่อใช้ในอนาคต,ตัวอย่างปัญหา,หรืออะไรก็แล้วแต่นั้นผมขอถือว่ามันไม่ใช้ขยะทางความคิดละ ที่นี้มันก็ขึ้นอยู่กับคนที่เขียนโปรแกรมล่ะว่าจะทำอย่างไรจะทำไฟล์ใหม่ที่ไม่มีขยะพวกนี้ใหมเพราะจะไปให้โปรแกรมอื่นอยูู่ๆเข้ามาลบตาราง,คิวรี่,ฟอร์มคงเป็นไปไม่ได้ครับ

     ส่วนอีกความหมาย(ในความคิดผม)นั่นคือระหว่างที่เราออกแบบโปรแกรมหรือใช้งานฐานข้อมูลอยู่นั้นตัวโปรแกรมจะเก็บแคสส่วนหนึ่งใว้ที่ตัวไฟล์ที่เราเขียน(มีผลต่อขนาดไฟล์)ใน ms access 2007 ขึ้นไปเราสามารถใช้คำสั่ง Compare and Repair Database ได้ครับ (2003ผมไม่รู้ว่ามีใหมหรืออยู่ตรงไหนนะลองหาดูครับ) https://www.addintools.com/documents/access/where-is-compact-repair.html
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

88
ห้องสนทนาทั่วไป / : ตอนนี้ในหน้าเว็บด้านบนมีโฆษณาขึ้นมาแทรกกันใหมครับ?
« เมื่อ: 27 ม.ค. 63 , 14:13:17 »
ในส่วนของโฆษณาด้านบนจากการที่ผมได้ไปสั่งปิดก็แล้ว,ไปลบโค้ดทิ้งก็แล้ว,ขอไฟล์โฮสเพื่อโรลแบ็คข้อมูลก็แล้ว แต่วันนี้(27ม.ค.63)ยังเห็นแอบมีมาแทรกแสดงผลอยู่ผมจึงสั่งบล็อคไปเลยหากท่านใดยังแสดงโฆษณาแทรกด้านบนอยู่รบกวนรบแคสหรือกด Ctrl+F5 ดูนะครับ
ปล.จาการสั่งบล็อคทางผมตอนนี้ไม่ขึ้นด้านบนแล้วแต่ถ้าใครยังแสดงผลอยู่ว่ามาเลยครับ(จะไปหาถามผู้รู้ต่ออีกทีนะ :sweat:)
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

89
ห้อง MS Access / : ทุกวันนี้ ทุกคนยังใช้งาน ms access เวอร์ชั่นอะไรอยู่ครับ และใช้ฐานข้อมูลเป็น????
« เมื่อ: 22 ม.ค. 63 , 11:31:10 »
access 2007,2010,2013 32 bit ใช้ทั้งฐานข้อมูล access และ mysql ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

90
ห้อง MS Access / : สอบถามการสร้างเลขที่ของรายงาน
« เมื่อ: 06 พ.ย. 62 , 15:15:47 »
แบบนี้เปล่าครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

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