thuyyeu99 > 10-07-20, 11:19 AM
thuyyeu99 > 10-07-20, 11:26 AM
tranthanhan1962 > 10-07-20, 12:50 PM
thuyyeu99 > 10-07-20, 02:03 PM
(10-07-20, 12:50 PM)tranthanhan1962 Đã viết: Nói chung, CSDL access là ứng dụng cho ngành kế toán, thống kê, thương mại, lưu trữ. Chẳng ai dùng nó làm những văn bản khoa học cao cấp, đề tài, soạn giáo án...Nên việc sử dụng superscript/subscript hầu như không hỗ trợ. Việt Nam mình sử dụng superscript để làm đơn vì tính như: , nhưng đó không phải là cái cách của người Mỹ (tác giả Access). Nên viêc access có hỗ trợ cho uperscript/subscript là điều khó nói. Bằng chứng windows, office hỗ trợ tiếng Việt chẳng có ra gì! Người Mỹ đã quen sử dụng sq foot để biểu thị foot vuông, cu foot để biểu thị foot khối. Mấy cai vụ chẳng qua do mấy cha học giả Việt đẻ ra chứ có thằng Mỹ nào OK đâu!Em thấy cái này viết cực hơn đó anh
Tuy nhiên! ngộ biến phải tùng quyền. Bằng cach chia nhỏ đơn vị tính thành nhiều trường, cũng có thể dễ dàng xử lý được. Ví du:
: DVT : DVT1 : DVT2 :
: m2 : m : 2 :
: m3 : m : 3 :
Xủ lý DVT2 bằng một textbox có font size nhỏ hơn đẩy nó lên trên một chút lả OK ngay
Salomon > 10-07-20, 02:58 PM
(10-07-20, 02:03 PM)thuyyeu99 Đã viết: Em thấy cái này viết cực hơn đó anh
Còn viết cái hàm ReplaceSubscript("CA(OH)_2") ------ Return= CA(OH)₂ dễ hơn
[img][/img]
thuyyeu99 > 10-07-20, 03:04 PM
(10-07-20, 02:58 PM)Salomon Đã viết:đúng rồi phải dùng 1 hàm để chuyển qua(10-07-20, 02:03 PM)thuyyeu99 Đã viết: Em thấy cái này viết cực hơn đó anh
Còn viết cái hàm ReplaceSubscript("CA(OH)_2") ------ Return= CA(OH)₂ dễ hơn
[img][/img]
Giải pháp này Sal ủng hộ. Nhưng hàm viết như thế nào. Vd nội dung trong text là "cho acid H2SO4 từ từ vào nước" hoặc "cho acid H_2SO_4 từ từ vào nước" thì report sẽ tự hiện ra thành "cho acid H₂SO₄ từ từ vào nước"
thuyyeu99 > 10-07-20, 03:06 PM
Function ReplaceSubscript(StringSubscript As String)
Dim i As Integer, mypos As Integer
Dim s1 As String
Dim ArrayString As Variant
Dim ArraySubscript As Variant
ArrayString = Array("^0", "^1", "^2", "^3", "^4", "^5", "^6", "^7", "^8", "^9", "_0", "_1", "_2", "_3", "_4", "_5", "_6", "_7", "_8", "_9")
ArraySubscript = Array(8304, 185, 178, 179, 8308, 8309, 8310, 8311, 8312, 8313, 8320, 8321, 8322, 8323, 8324, 8325, 8326, 8327, 8328, 8329)
s1 = StringSubscript
For i = LBound(ArrayString) To UBound(ArrayString)
mypos = InStr(1, StringSubscript, ArrayString(i), 1)
If mypos > 0 Then
s1 = Replace(s1, ArrayString(i), ChrW(ArraySubscript(i)))
End If
Next
ReplaceSubscript = s1
End Function
ongke0711 > 10-07-20, 03:06 PM
(10-07-20, 02:03 PM)thuyyeu99 Đã viết: Còn viết cái hàm ReplaceSubscript("CA(OH)_2") ------ Return= CA(OH)₂ dễ hơn
Salomon > 10-07-20, 03:26 PM
(10-07-20, 03:06 PM)thuyyeu99 Đã viết:Cám ơn bạn thuyyeu99 nhiềuMã PHP:Function ReplaceSubscript(StringSubscript As String)
Dim i As Integer, mypos As Integer
Dim s1 As String
Dim ArrayString As Variant
Dim ArraySubscript As Variant
ArrayString = Array("^0", "^1", "^2", "^3", "^4", "^5", "^6", "^7", "^8", "^9", "_0", "_1", "_2", "_3", "_4", "_5", "_6", "_7", "_8", "_9")
ArraySubscript = Array(8304, 185, 178, 179, 8308, 8309, 8310, 8311, 8312, 8313, 8320, 8321, 8322, 8323, 8324, 8325, 8326, 8327, 8328, 8329)
s1 = StringSubscript
For i = LBound(ArrayString) To UBound(ArrayString)
mypos = InStr(1, StringSubscript, ArrayString(i), 1)
If mypos > 0 Then
s1 = Replace(s1, ArrayString(i), ChrW(ArraySubscript(i)))
End If
Next
ReplaceSubscript = s1
End Function