Cái hướng mình đưa ra thì các bạn phải nghiên cứu đi chứ
Toán + Lý + Hoá mềnh yếu lém 

(10-07-20, 11:19 AM)thuyyeu99 Đã viết: Cái hướng mình đưa ra thì các bạn phải nghiên cứu đi chứ
Toán + Lý + Hoá mềnh yếu lém 

Hướng tốt rồi mà, như vậy là ok rồi, còn lại đâu ai muốn dùng thế nào thì phải tự mà tìm tiếp chứ

Superscript [0-9]

ChrW(8304)
ChrW(185)
ChrW(253)
ChrW(179)
ChrW(8308)
ChrW(8309)
ChrW(8310)
ChrW(8311)
ChrW(8312)
ChrW(8313)


Subscript [0-9]
ChrW(8320)
ChrW(8321)
ChrW(8322)
ChrW(8323)
ChrW(8324)
ChrW(8325)
ChrW(8326)
ChrW(8327)
ChrW(8328)
ChrW(8329)

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

(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!
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

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]

(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"

(10-07-20, 02:58 PM)Salomon Đã viết:

(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"

đúng rồi phải dùng 1 hàm để chuyển qua
ReplaceSubscript("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"

(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

Cách này hay đó em.
Trước đây trong diễn đàn cũng có chia sẽ cái file tra cứu nguyên tố hoá học viết bằng Access mà anh tìm chưa ra, không nhớ lưu chỗ nào.
File này cho phép tra cứu, gõ công thức sẽ có bài giải luôn v.v..

(10-07-20, 03:06 PM)thuyyeu99 Đã viết:

Mã 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 


Cám ơn bạn thuyyeu99 nhiều