-
debug.print dấu ngoặc kép
thucgia > 08-10-15, 11:15 PM
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. -
RE: debug.print dấu ngoặc kép
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.
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" -
RE: debug.print dấu ngoặc kép
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"
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 ") & "#)" -
RE: debug.print dấu ngoặc kép
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 ") & "#)"
Và kết quả là rất thú vị
Mã: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
hix, vất vả một lần nhưng hưởng thụ lâu dài đó là coding generation