Menambahkan karakter pada syntax di MS Access

Topik sebelumnya Topik selanjutnya Go down

Menambahkan karakter pada syntax di MS Access

Post  notlefthand on Wed Mar 04, 2015 10:28 am

Saya punya Aplikasi berbasis Ms Access.
Nah, masalah yang saya alami adalah saya ingin menambahkan code barcode di reportnya. Saya menggunakan jenis font free 3 of 9 (Code 39).
Sebenarnya sih sudah bisa dan terbaca, hanya saja masih harus menambahkan * pada kodenya.
misalnya : *(kodenya)* <tanpa dalam kurung>
Kalau misalkan tiap kali input harus selalu menambahkan karakter itu, rasanya cukup menyiksa si inputer. Apakah ada solusi syntax untuk menambahkan karakter * itu?

Code:
Private Sub Command1_Click()
Dim msql As String
Dim START, FINISH, MODEL, CODE As String
Dim qty, QTYNO As Integer

                                
msql = " Select * From Table1" & " Order By MODEL"
Set rs1 = cnn.Execute(msql)

If Not rs1.EOF Then
    msql = " Delete From Table2"
    cnn.Execute (msql)
    rs1.MoveFirst
                        
    Do While Not rs1.EOF
        START = rs1.Fields("START")
        FINISH = rs1.Fields("FINISH")
        MODEL = rs1.Fields("MODEL")
        CODE = rs1.Fields("CODE")
        qty = rs1.Fields("QTY")
        QTYNO = 1
                            
        Do While QTYNO <= qty
            msql = " Insert Into Table2(START,FINISH,MODEL,CODE,QTYNO)" & " Values('" & START & "','" & FINISH & "','" & MODEL & "','" & CODE & "','" & QTYNO & "')"
            QTYNO = QTYNO + 1
            cnn.Execute (msql)
            Child1.Requery
        Loop

        If Not rs1.EOF Then
            rs1.MoveNext
        End If
    Loop
    DoCmd.OpenReport "TABLE1", acViewPreview
    DoCmd.PrintOut
    DoCmd.Close

Else
    MsgBox "Data tidak boleh kosong !!", vbOKOnly, "Konfirmasi"
    Text1.SetFocus
End If
rs1.Close
End Sub

notlefthand

Jumlah posting : 1
Join date : 04.03.15

Lihat profil user

Kembali Ke Atas Go down

Topik sebelumnya Topik selanjutnya Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik