thucgia > 08-10-15, 11:15 PM
tranthanhan1962 > 08-10-15, 11:35 PM
(08-10-15, 11:15 PM)thucgia Đã viết: Trong access debug.print("hello world") ----> hello world
để debug.print cái dấu ngoặc kép, chẳng hạn ----> Me.ho_ten = ""
Nhờ các bạn chỉ hộ, thk so much.
Function lam_thu_mot_phat(a As String)
Debug.Print a
End Function?lam_thu_mot_phat("""" & "thucgia" & """")
"thucgia"thucgia > 09-10-15, 08:01 AM
(08-10-15, 11:35 PM)tranthanhan1962 Đã viết:(08-10-15, 11:15 PM)thucgia Đã viết: Trong access debug.print("hello world") ----> hello world
để debug.print cái dấu ngoặc kép, chẳng hạn ----> Me.ho_ten = ""
Nhờ các bạn chỉ hộ, thk so much.
Hì hì! Vụ này mới nha. Nào giờ chưa nghĩ ra cái chuyện lạ ngày. Nhưng mà bạn hỏi nên mình cũng thử mày mò một phát. Hóa ra để được 1 dấu " phải sử dụng 4 dấu "
Mã:Function lam_thu_mot_phat(a As String)
Debug.Print a
End Function
Immediate
Mã:?lam_thu_mot_phat("""" & "thucgia" & """")
"thucgia"
thucgia > 09-10-15, 09:32 AM
(09-10-15, 08:01 AM)thucgia Đã viết:(08-10-15, 11:35 PM)tranthanhan1962 Đã viết:(08-10-15, 11:15 PM)thucgia Đã viết: Trong access debug.print("hello world") ----> hello world
để debug.print cái dấu ngoặc kép, chẳng hạn ----> Me.ho_ten = ""
Nhờ các bạn chỉ hộ, thk so much.
Hì hì! Vụ này mới nha. Nào giờ chưa nghĩ ra cái chuyện lạ ngày. Nhưng mà bạn hỏi nên mình cũng thử mày mò một phát. Hóa ra để được 1 dấu " phải sử dụng 4 dấu "
Mã:Function lam_thu_mot_phat(a As String)
Debug.Print a
End Function
Immediate
Mã:?lam_thu_mot_phat("""" & "thucgia" & """")
"thucgia"
Nhưng cái này tiện hơn
'Chr(38)--> &
'chr(34)---> "
'chr(39)---> '
'chr(35)---> #
debug.print chr(34) & "thucgia" & chr(34)
mình cũng mới tìm ra!!!
có cách nào debug ra cái dòng này không?
sql = "insert into " & tbl & " ([ten],[ngay_sinh]) values('" & o.ten & "',#" & Format(o.ngay_sinh, "MM/dd/yyyy hh:mm:ss ") & "#)"
Public Function sprintf(mask As String, ParamArray tokens()) As String
Dim i As Long
For i = 0 To UBound(tokens)
mask = Replace$(mask, "{" & i & "}", tokens(i))
Next
sprintf = mask
End Function
'cach su dung
'sprintf("my name is {0}, tuoi {1}","thucgia",101)
Sub test()
'sql = "insert into " & tbl & " ([ten],[ngay_sinh]) values('" & o.ten & "',#" & Format(o.ngay_sinh, "MM/dd/yyyy hh:mm:ss ") & "#)"
'sql = {0}insert into {1} {2} tbl {3} {4} ([ten],[ngay_sinh]) values('{5} {6} o.ten {7} {8}',#{9} {10} Format(o.ngay_sinh, {11}MM/dd/yyyy hh:mm:ss {12}) {13} {14}#){15}
' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
'Chr(38)--> &
'chr(34)---> "
'chr(39)---> '
'chr(35)---> #
Debug.Print sprintf("sql = {0}insert into {1} {2} tbl {3} {4} ([ten],[ngay_sinh]) values('{5} {6} o.ten {7} {8}',#{9} {10} Format(o.ngay_sinh, {11}MM/dd/yyyy hh:mm:ss {12}) {13} {14}#){15}", Chr(34), Chr(34), Chr(38), Chr(38), Chr(34), Chr(34), Chr(38), Chr(38), Chr(34), Chr(34), Chr(38), Chr(34), Chr(34), Chr(38), Chr(34), Chr(34))
'this is result
'sql = "insert into " & tbl & " ([ten],[ngay_sinh]) values('" & o.ten & "',#" & format(o.ngay_sinh, "MM/dd/yyyy hh:mm:ss ") & "#)"
End Sub