โหลดวิดีโอมาดู หายข้อสงสัยว่า ห้างสรรพสินค้า เขาทำยังไงกับราคาขายสินค้า ที่มีการขึ้นลงตลอดเวลา / เข้าใจระบบความสัมพันธ์มากขึ้น

เป็นฟอร์มหลักแล้วเรียกตาราง tblAssign มาเพื่อทำการแก้ไขข้อมูลโดยตรง ในตารางมีรหัสงานอยู่เป็นจำนวนมาก อยากเช็คเวลาเรียน เพราะเวลาเรียนเช็คทุกวันและทุกคาบ ขี้เกียจเลื่อนเมาส์ไปหารหัสงานตัวนี้  เลยอยากจะให้มันแสดงข้อมูลชื่อฟิล์ด ่jobcode-รหัสงาน jobcode นี้มีค่าเท่ากับ class เวลาเราคลิกเรียกใช้ฟอร์มนี้ อยากให้มันกรองค่าและแสดงเฉพาะ ่jobcode = "class" ครับ

Public Function FancyDate(dteInput As Date) As String

'   Convert #6/12/2016#
'   To: 12th June 2016

    FancyDate = Day(dteInput)
   
    Select Case Day(dteInput)
    Case 4 To 20, 24 To 30
        FancyDate = FancyDate & "th"
    Case 1, 21, 31
        FancyDate = FancyDate & "st"
    Case 2, 22
        FancyDate = FancyDate & "nd"
    Case 3, 23
        FancyDate = FancyDate & "rd"
    End Select
   
    FancyDate = FancyDate & Format(dteInput, " mmmm yyyy")


End Function


Sub testdatefunction()

Dim datestr As Date

datestr = CDate("01/01/2017")

Debug.Print datestr, FancyDate(datestr)

End Sub

พอดัดแปลง ใกล้เคียงไหมครับ ไปค้นมาให้ครับ

จากโค้ดนี้ เขาส่งตารางเป้าหมายออกเป็นไฟล์ mdb

Private Sub Command0_Click()
'************ ส่วนที่ 1 การเรียกหน้าต่าง Dialog เพื่อเลือกพาธ และตั้งชื่อเซฟไฟล์เป้าหมาย*****************
    Const msoFileDialogFilePicker = 3
    Const msoFileDialogViewDetails = 2
 
    Dim fd As Object
    Dim varItems As Variant
    Dim flPath As Variant
    Dim LFilename As String

    Set fd = Application.FileDialog(msoFileDialogViewDetails)
    With fd
        .Title = "Save As"
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewDetails
        .InitialFileName = "*.mdb"
    End With

    If fd.Show = True Then
        For Each varItems In fd.SelectedItems
            flPath = varItems
        Next
    End If
    LFilename = flPath
   
'*************ส่วนที่ 2 การสร้างไฟล์ MS Access ใหม่******************
    If LFilename & "" <> "" Then
        If Dir(LFilename) = "" Then
            Dim ws As Workspace
            Dim db As DAO.Database
       
            Set ws = DBEngine.Workspaces(0)
            Set db = ws.CreateDatabase(LFilename, dbLangGeneral)
            db.Close
            Set db = Nothing
        End If
   
'***********ส่วนที่ 3 การส่งออกข้อมูลไปยังไฟล์เป้าหมาย********************
        DoCmd.TransferDatabase acExport, "Microsoft Access", LFilename, acTable, "Q1", "Table1", False
    End If
End Sub

ผมมีตารางชื่อ xFake อยากส่งออกไปไว้ d:\ชื่อตารางเดิมแต่นามสกุลเป็น .xls เอ็กเซลปี 2003 ครับ ทับไฟล์เก่าได้เลยถ้ามีอยู่แล้ว ตอนนี้ผมลองใส่ 'เพื่อไม่ต้อง dim แต่ก็เจอบักแถมเหลืองไม่ผ่านสักทีครับ

ขอบคุณครับ

ชื่อคอมโบ tjobcode after update
tjobcode.defaultvalue = “””&tjobcode&”””
end sub ตรงนี้คือให้ตรึงค่าไว้ ที่นี้ เปิดฟอร์มมาก็แสดงข้อมูลถูกต้องทั้งรหัสงานกับชื่อเต็ม ตรวจๆไปเปลี่ยนใจ เลือกรหัสงานใหม่ อยากให้ subform มันแสดงข้อมูล ตามที่เราเพิ่งเลือกครับ ถ้าเราเปลี่ยนรหัสงาน ขอคำแนะนำหน่อยครับ ขอบคุณครับ

-ฐานที่เราลบโค้ดเพื่อทดลองทำ mde ที่สงสัยโอเค เปลี่ยนแต่ฐานข้อมูลใหม่ ครั้งหน้าต้องสำเนาไว้ก่อนทำการทดลอง

เปิดดูไฟล์เก่าๆ น่าจะเป็น tab  แล้วมีฟอร์มย่อย

TRANSFORM First(studAdviser.adviserName) AS FirstOfadviserName
SELECT studAdviser.code, studAdviser.fname, First(studAdviser.adviserName) AS [Total Of adviserName]
FROM studAdviser
GROUP BY studAdviser.code, studAdviser.fname
PIVOT studAdviser.teacode;

มีคนมาตอบให้ความรู้แล้วครับ นำมาเผยแพร่ต่อ
" My favorite in this area is called MZ-Tools. It is not free, but it does an outstanding job on VBA. I believe there are other tools, such as V-Tools, with similar functions. "