แสดงกระทู้

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

หน้า: 1 ... 12 13 14 [15] 16 17 18
253
 :vomit: ใจเย็นๆครับผู้ตอบมีไม่กี่ท่าน  :cool:
เมื่อ Status  |  ให้ Final
AA
A,DA
A,C,DA
DD
C,DD
P,DP

อืมเห็น Code - 004 มี Status A กับ P จะให้ Final เป็นอะไรครับ :want:

ปล.แค่มาช่วยถามนะ ไม่ได้ช่วยหาคำตอบ

254
โปรแกรมสำเร็จรูปพร้อมใช้งาน เขาก็เขียนให้ซ้อนเมนูไม่ต้องแสดงออกมาให้คนใช้ไปกดเล่นนะครับ :shout:

256
ห้อง MS Access / > เปลี่ยนแป้นภาษาด้วย VB
« เมื่อ: 26 มี.ค. 61 , 10:13:02 »
> คีย์บอร์ดไม่มีปุ่มเปลี่ยนภาษาเหรอครับ
> ตั้งค่าให้เมื่อมาใช้ textbox1 ให้เปลี่ยนภาษาตั้งต้นเป็นภาษาอังกฤษได้ตามรูป (ถ้าจะพิมพ์ไทยก็กดปุ่มเปลี่ยนภาษา~)


> เขียนฟังก์ชั่นให้ "*" เป็นปุ่มเปลี่ยนภาษาแล้วให้ textbox1 เรียกใช้งานฟังก์ชั่นนั้นอีกที (ได้หรือไม่,ทำอย่างไรรอดูกันต่อไปครับ :smile:)

257
ห้อง MS Access / > สลับตำแหน่งFormatวันที่
« เมื่อ: 20 มี.ค. 61 , 13:40:16 »
คุณ AAA Original post

ขอบคุณนะคะ

258
ห้อง MS Access / > สลับตำแหน่งFormatวันที่
« เมื่อ: 20 มี.ค. 61 , 10:45:39 »
คุณ AAA Original post

ที่ทำตอนนี้คือเซตค่าวันที่เป็น TEXT ค่ะ คิดว่าจึงใช้สูตรFormatวันที่ไม่ได้
จึงอยากดูวิธีย้ายค่าString 4หลักแรกไปไว้ข้างหลังค่ะ
พอมีวิธีไหมคะ


259
ห้อง MS Access / > สลับตำแหน่งFormatวันที่
« เมื่อ: 20 มี.ค. 61 , 09:38:39 »
คุณ AAA Original post

ลองแล้วค่ะ แต่ข้อมูลแสดง #Num! ค่ะ

กรณีนี้คือมีข้อมูลวันที่เดิมอยู่ในตารางเป็นปีเดือนวันค่ะ แล้วต้องการเขียนคำสั่งให้มันสลับตำแหน่งเป็น เดือนวันปีค่ะ

260
ห้อง MS Access / สลับตำแหน่งFormatวันที่
« เมื่อ: 19 มี.ค. 61 , 17:20:00 »
คุณ AAA Original post

ในตารางมีข้อมูลวันที่แสดงดังนี้ค่ะ20180228   ปีเดือนวัน 
อยากทราบวิธีเปลี่ยนโดยทำQuery แล้วสลับตำแหน่งเป็น 02282018 เดือนวันปี
สามารถทำวิธีไหนได้บ้างคะ

261
ห้อง MS Access / > SQL Queryตามนี้ค่ะ
« เมื่อ: 16 มี.ค. 61 , 14:07:51 »
คุณ SPAT Original post

ถ้าในกรณีเป็นค่าStringละคะ ที่ไม่ใช่2ฟิลด์นี้ เช่น ที่อยู่ ค่ะ

262
ห้อง MS Access / SQL Queryตามนี้ค่ะ
« เมื่อ: 16 มี.ค. 61 , 11:27:02 »
คุณ SPAT Original post

จากตารางนี้
ID  | Name  | Salary  | Bonus
A1 | AAA     | 20000  | 5000
B2 | BBB     |            |
C3 | CCC     | 30000  |

ต้องการQuery เป็น2แบบคือ
Query แรก ต้องการแสดงทุกรายการ ที่มีSalary หรือ Bonus จะได้

ID  | Name  | Salary  | Bonus
A1  | AAA    | 20000  | 5000
C3  | CCC    | 30000  |

Query สอง ต้องการแสดงทุกรายการ ที่ไม่มีSalary และBonus ค่ะ
ID   | Name
B2   | BBB

รบกวนแสดงแนวทางSQLให้หน่อยค่ะ

263
คุณ เอ็ก Original post

สวัสดีครับอาจารย์ วันนี้มีเรื่องมารบกวนอีกแล้วครับ คือ

บริษัทมีเครื่องปริ้นหลายเครื่อง แล้วเวลาจะปริ้นตัวรายงาน ต้องมาเลือกเครื่องปริ้นตลอดเวลา
 
ทั้ง ๆ ที set default ที่ตัวรายงานแล้ว พอสั่งปริ้นอีกรอบ ก็เด้งเลือกเครื่องปริ้นอื่น

พอจะมีโค้ดหรือวิธีกำหนดแบบเลือกเครื่องปริ้นตายตัวไหมครับ

ขอบคุณครับ

264
คุณ สงสัย Original post

ได้แล้วครับ

ขอบคุณ คุณ OddyWriter มากครับ

265
คุณ สงสัย Original post

พอดีทำ query เพื่อใช้ในการสืบค้นข้อมูล

ตัวอย่างข้อมูล
code   typeanimal
1   cat , dog , cow
2   dog , cat , cow
3   cow , dog , cat
4   cat

จากนั้นสร้างเงื่อนไขในชนิดสัตว์ คือ Like [กรุณาใส่ชนิดสัตว์ :] &  "*"
แล้วพิมพ์ คำว่า cat เพื่อใช้ในการค้นหาได้ผลลัพธ์แค่
แถวที่ 1 กับ 4 เท่านั้น
code   typeanimal
1   cat , dog , cow
4   cat

คำถาม ถ้าอยากได้แถวที่มีคำว่า cat ปรากฎภายในฟิลด์มาแสดง ต้องใช้คำสั่งยังไงครับ

ขอบคุณครับ

266
คุณ JEN Original post
อ้างถึง
ทำได้แล้วค่ะ ขอบคุณนะคะ

267
คุณ JEN Original post
อ้างถึง
ใช่เลยค่ะ

268
คุณ ปอนด์ Original post

รบกวน อีก 1 เรื่องค่ะ อาจารย์ TTT  ถ้าเราต้องการ Copy Record ทั้ง Record โดยมีไฟล์แนบของ Record  ที่ เรา Copy ติดมาด้วย ต้องทำอย่างไรค่ะ
ตอนนี้ใช้ โค้ด นี้ ในการ Copy อยู่ค่ะ

On Error Resume Next
    DoCmd.RunCommand acCmdSelectRecord
    If (MacroError = 0) Then
        DoCmd.RunCommand acCmdCopy
    End If
    If (MacroError = 0) Then
'        .AddNew
        DoCmd.RunCommand acCmdRecordsGoToNew
    End If
    If (MacroError = 0) Then
        DoCmd.RunCommand acCmdSelectRecord
    End If
    If (MacroError = 0) Then
        'DoCmd.RunCommand acCmdPaste
         
 

       End If
       
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
   DoCmd.GoToRecord , , acLast
 
    End If
  DoCmd.GoToRecord , , acLast
  DoCmd.GoToControl "CNC"


แต่ปัญหาคือ จะมาเฉพาะข้อมูลที่เป็น Text ส่วน ตัว ไฟล์แนบไม่ติดมาด้วย

รบกวนอาจารย์ด้วนะคะ

269
คุณ JEN Original post
อ้างถึง
Me.reporttxt= ""
Dim s As String
    If IsNull(reporttxt) Or reporttxt= "" Then
        s = GetOpenFile("D:\")
    Else
        s = GetOpenFile(Me.reporttxt)
    End If
    If s = "" Then

    Else
        If Dir(s) = "" Then
            Beep
            MsgBox "????????? " & s
        Else
            reporttxt= s
                Application.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "table1", (reporttxt), True   
               

        End If
    End If
Exit Sub

270
คุณ JEN Original post

อ้างถึง

ตอนนี้ทำช่องสำหรับimportข้อมูลลงตาราง โดยคลิกที่ปุ่มReport
แล้วอยากให้ แสดงวันที่ที่import ล่าสุดด้วย เก็บไว้แสดงค่ะ


หน้า: 1 ... 12 13 14 [15] 16 17 18