อยาก...บนบิลรายการสินค้าตอนนี้มีเพิ่มรหัสสินค้าคงสะดวกเปลี่ยนคืนสินค้า รอนานอยู่ถ้าต้องมีการบอกเลขบาร์โค้ด อยากให้เพื่อนโปรแกรมเมอร์แบ่งสัก 3 ตัวอักษร น่าจะง่ายต่อการใช้เลขโค้ดดังกล่าว แบ่งเป็น 3 3 3 4 ตอนยิงเข้ามันง่ายนะ ตอนออกพิมพ์ลงบนลัง บนบิลใบเสร็จ แยกวรรคให้หน่อย รวมถึงเลขชิปปิ้งด้วย ไม่วรรคก็ขอขีดเส้นใต้แบบเว้นก็ได้ ดำหนาเป็นช่วงก็ได้ .....ตอนเราจะใช้เลขดังกล่าวเราไม่มีบาร์ ไม่มีเครื่องยิง ประโยชน์เยอะ จนท พัสดุ ก็ต้องใช้บาร์ คนขายของก็ใช้เลขบาร์ แคชเชียร์ยิงบาร์ไม่ถึงก็ต้องบอกบาร์ ไร้สายก็ไม่มี คอยนาน เผื่ออาจารย์ พี่ๆในนี้อยู่แวดวงชิปปิ้ง เขียนโปรแกรมขาย เขียนให้คนในองค์กร ขอวรรคบนรายงาน

ทำบนมือถือ มีฟิลด์ classม roomห้อง roomnoเลขที่  studCodeรหัส นร. scoreZoneช่วงที่เก็บคะแนนมี4ช่วง 1ก่อน 2กลางภาค 3หลัง 4ปลายภาค   scoreGet คะแนนที่ได้ใน 4 ช่วง // อยากให้คิวรี่แสดงข้อมูล เป็นคอลัมน์เป็น
class room roomno code scoreZone ตรงใต้หัวข้อscoreZone อยากให้แสดงคะแนน scoreGet ครับ
class room roomno code     scoreZone
-6-——9-——-45——02689-—20-—15-18-5.6
พรุ่งนี้ผมจะเปิดคอมฯที่ทำงานแล้วแนบไฟล์ - ผมลองเปลี่ยนตอนทำคิวรี่แนว row column value แล้วไม่ตรงกับที่ต้องการสักที ขอบคุณล่วงหน้าครับ

กำลังจะทำเครื่องหมายในกระดาษคำตอบแบบตรวจด้วยการอ่าน OMR ผมหาประเลขคี่ คู่ได้แล้ว ทีนี้อยากพิมพ์สัญลักษณ์ลงไปในรายงานว่าถ้าเลขคี่ ให้ วงกลมดำทึบตรงวงกลมวงที่ 1  ถ้าเลขคู่ให้วงที่ 2 แบบนี้ครับ ใช้conditional ตรงรายงานแล้ว ทำเป็นเลข 1 โผล่วงนี้ เลข 2 โผล่วงที่ 2 ได้
กรณีจะใช้ฟ้อนท์ webbings ระบายกลมดำทึบคือ กดตรงแป้น = เพิ่มลดขนาดได้
วาดรูปสี่ระบายดำทึบก็ได้ ค่อยปรับขนาด
อยากได้คำสั่งที่เราอยากให้มันตรงเงื่อนไขครับว่า ถ้า 1 ให้วาดสี่เหลี่ยมดำทีบ/วงกลมดำทึบตรงนี้, ถ้า 2 ให้โผล่มาตรงนี้
ขอบคุณครับ
ขณะที่รอคำตอบ ผมก็จะค้นหาเว็บอื่นๆ รอครับ หรือ ผมจะใช้ปากกาเมจิกแต้มรอ

จากโค้ดนี้ เขาส่งตารางเป้าหมายออกเป็นไฟล์ 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 มันแสดงข้อมูล ตามที่เราเพิ่งเลือกครับ ถ้าเราเปลี่ยนรหัสงาน ขอคำแนะนำหน่อยครับ ขอบคุณครับ

ทำฟอร์มแรกเป็นฟอร์มแบบ data sheet ติก yes no ส่วนฟอร์มสอง มี main form เลือกห้อง sub form สมาชิกในห้องหล่นลงมา ทำการติก yes no แล้วกดคำสั่ง สั่งให้คิวรี่ทำงาน ให้ทำการเพิ่มชื่อตามการตอบ yes ของทั้งสองฟอร์ม
ถ้าอยากเอามาเคียงคู่กัน ผมลองเอาฟอร์มลากไปใส่ในแท้ปแล้ว คลิกแทปแรก แทปสองก็ออกเหมือนแทบแรกเลย ตอนนี้ก็ทำงานได้ครับ แต่มันยังไม่งาม

ทำฟอร์มไว้รับการแก้ไขงานตามงานของนักเรียนกรณีตามมาส่งงานภายหลัง ฟอร์มหลักคือรับข้อมูลด้วยรหัสประจำตัว หรือ ค้นจากชื่อ จากตารางนักเรียน  หลังจากนั้นในฟอร์มย่อยให้แสดงข้อมูลฐานงานของนักเรียน ซี่งเก็บแต่รหัสงาน รหัสประจำตัวนักเรียน ช่องคะแนนที่จะกรอก จากตารางฐานงานของนักเรียน  ที่นี้อยากให้ไปดึงข้อมูลจากตารางมอบหมายงานมาแสดงควบคู่กัน เพราะตารางนั้นมีรหัสงาน คะแนนเต็ม ชื่องาน กันการกรอกหรือตามงานผิดพลาด ทำนองนี้ครับ...
คำถาม ทำอย่างไรดีให้เอาตารางรายละเอียดของตารางมอบหมายงานมาโชว์ด้วยครับ

ทำรายงานในแอคเซส ชื่อไฟล์ vocab.mdb มีฟิลด์ word pict1 ข้อมูล heart - d:\photo1\heart.jpg บรรทัดที่ 2 fly - d:\photo1\fly.png มีโฟลเดอร์เก็บภาพไว้ที่ d:\photo1\heart.jpg,fly.png ผมสมมติให้มีนามสกุลไฟล์ให้ต่างกัน แต่สามารถทำรูปภาพโดยโปรแกรมข้างนอกได้ กรณีอยากให้มีขนาดเท่าไหร่ให้สามารถพิมพ์ในรายงานได้
อยากได้รายงานที่สามารถลิงก์รูปภาพในตารางแล้ว เราสร้างรายงานแล้วดึงรูปมาให้ตรงกับภาพได้เลยครับ
ตอนนี้ทำในเวิร์ดแทน คัดลอกวางภาพไปเป็นหน้าๆ ไป ขอคำตอบ ขอลิงค์ ขอคำแนะนำ ครับ