แสดงกระทู้

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

หน้า: 1 [2] 3 4 5 ... 7
19
เพิ่มเติมค่ะ
คิดว่าน่าจะมีปัญหาเกี่ยวกับLocation อะไรสักอย่างรึป่าว  รบกวนผู้รู้ช่วยดูให้หน่อยค่ะ


20
สอบถามError ที่เกิดจากการimportไฟล์ CSVค่ะ
คือเมื่อimport ไฟล์ CSV ในรูปแบบ .accdb สามารถimportเข้ามาได้ปกติไม่มีError
แต่พอSAVEไฟล์เป็น .accde แล้วimportไฟล์ CSVเดิม กลับขึ้นErrorตามรูปด้านล่างนี้ค่ะ

อยากทราบว่าเกิดจากอะไรคะ






21
ขอบคุณมากค่ะ

22
ขอบคุณค้า อันแรกทำได้แล้วค่ะ เหลือแสดงวันที่ค่ะ
ทำคิวรี่แรกก่อนแบบนี้ครับ

โค๊ด: [Select]
SELECT format(StockDate,"DD-MMM"), Takein, TakeOut, Balance
FROM StockBefore
UNION SELECT format(StockDate,"DD-MMM"), Takein, TakeOut,  '' as Balance
FROM StockCard;

23
สอบถามQuery เพื่อให้ได้ข้อมูลที่แสดงวันที่(ทุกวัน)ของ1เดือน  ผลลัพธ์ตารางที่ได้คือ



จากQueryด้านบนต้องการนำมาเพิ่มวันที่ที่ไม่มีในข้อมูลนี้ให้ครบ1เดือนตามรูปนี้ค่ะ
จากรูปวันที่ไม่มีข้อมูล Takein Take outจะแสดงวันที่ด้วย เป็นค่าว่าง  (ค่าที่เพิ่มในกรอบแดง)
ส่วนค่า Balance แถวแรกมาจากยอดยกมา
ค่า Balance ถัดมามาจากค่าBalance ก่อนหน้า + Takein(วันปัจจุบัน) - TakeOut(วันปัจจุบัน)ค่ะ


24
ห้อง MS Access / : สร้าง QR Code
« เมื่อ: 30 พ.ค. 61 , 13:22:28 »
ตอนนี้ทำตามกระทู้นี้ สามารถทำได้แล้วค่ะ
https://www.thai-access.com/yeadram_view.php?topic_id=5576


แต่QR codeที่สแกนอ่านออกมาแล้ว มันเป็นฟร้อนญี่ปุ่นทั้งหมดทุกDigit
ซึ่งต้องการให้ตัวอักษรที่เป็นตัวเลขหรือภาษาอังกฤษ แสดงเป็นฟร้อนภาษาอังกฤษ สามารถทำได้ไหมคะ
ตัวอย่าง ข้อมูลที่อ่านได้จาก QRคือ

220DB031−677001CSギャクシベンスプール Remark
** จะเห็นว่าความกว้างของตัวอักษรภาษาอังกฤษกับตัวเลขมันจะใหญ่กว่าฟร้อนปกติ เพราะค่าที่อ่านได้อยู่ในรูปแบบฟร้อนภาษาญี่ปุ่น

ซึ่งอยากให้แสดงฟร้อนแบบนี้ ที่ภาษาอังกฤษและตัวเลขเป็นฟร้อนปกติ สามารถทำได้ไหมคะ
220DB031-677001CSギャクシベンスプール Remark

25
พลาดตรงนี้เอง ขอบคุณมากค่ะ :miao:

26
อ่อ แก้แล้วค่ะ Error


โค้ด
โค๊ด: [Select]
Private Sub Command72_Click()
Dim l           As Integer
Dim Tx          As Variant
Dim TxCtrl      As Access.TextBox
Dim Str         As String

For Each Tx In Split("QRID,Summarystage,PartNo,LotNo,Qty,Space1,IssueDate,Space2,SerialNo,PartName,Remark1,Remark2,PONo,RoHS", ",")
    Set TxCtrl = Forms("Table1")(Tx)
    l = CurrentDb.TableDefs("Table1")(TxCtrl.ControlSource).Size
    Str = Str & Left$(TxCtrl & Space(192), l)
Next

Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("Table2")
    rst.AddNew
    rst!Result = Str

    rst.Update
End Sub

27
ไม่ได้ fix 4 ตัวนี้ค่ะ เพราะอาจมีเพิ่มค่าได้ในภายหลัง โดยในComboboxทางด้านขวาค่ามาจากAdd value เข้ามาเองค่ะ
ซึ่งสามารถเพิ่มTypeเพื่อกรองภายหลังได้อีก
ซึ่งจะให้แสดงค่าและพอกดปุ่ม 4Type จะกรองค่าทั้ง4ชนิดเลยค่ะ

28
ไฟล์ตัวอย่างค่ะ

29
ใช่ค่ะ ก่อนหน้านี้ทำงานได้

30
Compile ใหม่ไม่ได้ค่ะ
แต่ตอนError กด DebugดูเจอErrorแบบนี้ค่ะ




31
ใช้ชื่อQRIDค่ะ





**พอลองลบฟิลด์ที่เออเร่อออกจากตาราง และฟอร์ม มันก็มาเออเร่อฟิลด์ถัดมาเหมือนกันค่ะ


32
สอบถามจากกระทู้เพิ่มเติมค่ะ
จากรูปด้านล่างในตารางจะมีสินค้าอยู่หลายชนิด(ในกรอบแดงซ้าย)
จึงเพิ่มCombobox เลือกเฉพาะชนิดที่ต้องการ4 ชนิดจากทั้งหมด(ในกรอบแดงขวา)



จากนั้น เมื่อกดปุ่ม 4Type ต้องการให้ Query กรองข้อมูลมาแค่ 4ชนิดนี้เท่านั้น (คือชนิดทั้งหมดในComboboxด้านขวา)
ต้องเขียน CriteriaในQueryยังไงหรอคะ


33
สอบถามตรงError ตรงนี้เกิดจากอะไรหรอคะ





โค๊ด: [Select]
Private Sub Command72_Click()
Dim l           As Integer
Dim Tx          As Variant
Dim TxCtrl      As Access.TextBox
Dim Str         As String

For Each Tx In Split("QRID, Summarystage, PartNo, LotNo, Qty,Space1, IssueDate, Space2, SerialNo, PartName, Remark1, Remark2, PONo, RoHS")
    Set TxCtrl = Forms("Table1")(Tx)
    l = CurrentDb.TableDefs("Table1")(TxCtrl.ControlSource).Size
    Str = Str & Left$(TxCtrl & Space(192), l)
Next

Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("Table2")
    rst.AddNew
    rst!Result = Str

    rst.Update
End Sub

34
ห้อง MS Access / : สร้าง QR Code
« เมื่อ: 25 พ.ค. 61 , 11:38:54 »
***สอบถามเพิ่มเติมค่ะ

ถ้าต้องการให้ QR code สามารถอ่านรองรับภาษาญี่ปุ่นได้ด้วยมีวิธียังไงบ้างคะ

เช่นรหัส 050078801CS ギャクシベンスプール  สามารถสร้างQR Code ได้
แต่ตอนอ่าน ไม่รองรับภาษาญี่ปุ่น จะแสดงเป็น ???แทนค่ะ

อยากทราบว่าโค้ดตรงโมดูลนี้ ต้องเปลี่ยนชนิดเป็น Shift_JIS ตรงไหน

โค๊ด: [Select]
Public Function QRGen(Plain_Text As String)
    Dim RowCount As Long, ColCount As Long, i As Long, j As Long
    Dim Message As String, EncodedMsg As String
   
    Message = Plain_Text
    Call QRCodeEncode(Message, Version, Level, Mask)
    RowCount = QRCodeGetRows()
    ColCount = QRCodeGetCols()
    For i = 1 To RowCount
        For j = 1 To ColCount
            EncodedMsg = EncodedMsg & Chr(QRCodeGetCharAt(i - 1, j - 1))
        Next j
        EncodedMsg = EncodedMsg & vbCrLf
        Next i
        QRGen = EncodedMsg
   
   
End Function

ปล. ด้านล่างนี้เป็นตัวอย่างที่เป็นปัญหาที่เจอมาค่ะ
อ้างถึง
I'm trying to encode with Shift_JIS but my qr code does not match the
output shown by the Zxing Code Generator Page (http://
zxing.appspot.com/generator/).
The test string is:
1234567890お客様名ABCDEabcdeアイウエオ鰺鯵

My code looks like this:

        QRCode qrcode = new QRCode();
        Hashtable<EncodeHintType, String> hints = new
Hashtable<EncodeHintType, String>(2);
        hints.put(EncodeHintType.CHARACTER_SET, "Shift_JIS");
        Encoder.encode(contents, ecLevel, hints, qrcode);

My result matches the UTF-8 qr code generated on the generator page
instead of the Shift_JIS qr code.

I've tried encoding the string to Shift_JIS before the Encoder.encode
call but that results in the same UTF-8 qr code.

35
ขอบคุณค่ะ ทำได้แล้วว

โค๊ด: [Select]
If Type_cmb = "All" Then
Type_cmb = "*"
'Run Query
On Error GoTo PROC_ERR
  DoCmd.SetWarnings False
  DoCmd.OpenQuery "StockCard"
  DoCmd.SetWarnings True
PROC_ERR:
  DoCmd.SetWarnings True
DoCmd.Close acForm, "ViewStockCard"
DoCmd.OpenForm "ViewStockCard"

Else
'Run Query
On Error GoTo PROC_ERR
  DoCmd.SetWarnings False
  DoCmd.OpenQuery "StockCard"
  DoCmd.SetWarnings True
DoCmd.OpenForm "ViewStockCard"
End If

36
สอบถามการQuery Append โดยกรองเงื่อนไขตามComboboxค่ะ
จากกระทู้ https://www.thai-access.com/index.php?topic=196.msg609#msg609 ได้กรองข้อมูลจากQuery มาแสดง

แต่ในกระทู้นี้ในQueryชื่อว่า "StockCard"เพิ่มฟิลด์Remark และทำการAppend Query ไปไว้ในตาราง StockDaily
โดยกรองค่าในฟิลด์ Type OF GOODS ที่Comboboxในหน้าฟอร์มImportFrm ตามรูป



โค้ดในปุ่มViewในหน้าฟอร์ม ImportFrmคือ

โค๊ด: [Select]
CurrentDb.Execute "DELETE FROM StockDaily", dbFailOnError

If Type_cmb = "All" Then
Type_cmb = "*"

'Run Query
On Error GoTo PROC_ERR
  DoCmd.SetWarnings False
  DoCmd.OpenQuery "StockCard"
  DoCmd.SetWarnings True
PROC_ERR:
  DoCmd.SetWarnings True
DoCmd.Close acForm, "ViewStockCard"
DoCmd.OpenForm "ViewStockCard"

Else
DoCmd.OpenForm "ViewStockCard"
End If

และนี่คือหน้าตาฟอร์มที่กรองค่าจากCombobox



ปัญหาคือข้อมูลไม่ได้กรองให้ค่ะ แต่แสดงทั้งหมดแทน
ปล. จากกระทู้เดิมที่ทำสามารถกรองค่าได้ตามข้อมูลนี้เลยค่ะ แต่แค่เอามาปรับแก้ทำAppend Queryเพิ่มขึ้นค่ะ

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