Tùy chọn
Phần Mềm Viết Bằng Access 2003 Không Sử Dụng Được Trên Access 2010
- Phần Mềm Viết Bằng Access 2003 Không Sử Dụng Được Trên Access 2010
-
Phần Mềm Viết Bằng Access 2003 Không Sử Dụng Được Trên Access 2010
mtkien30 > 24-12-14, 09:09 AM
Em xin chào tất cả các Bác!
Các bác giúp em với, em có cái phần mềm trền viết bằng access 2003 chạy trên access 2003 rất ổn định. Bây giờ em muốn chuyển sang sử dụng access 2010, nhưng khi cài vào và cho chạy trên access 2010 thì nó không thực thi được câu lệnh và không tạo được report. Vậy nếu em muốn sử dụng phần mềm viết bằng access 2003 mà sử dụng trên access 2010 em phải làm như thế nào.
Rất mong được sự giúp đỡ của các bác trên diên đàn.
-
RE: Phần Mềm Viết Bằng Access 2003 Không Sử Dụng Được Trên Access 2010
hoanbhxhls > 24-12-14, 09:29 AM
(24-12-14, 09:09 AM)mtkien30 Đã viết: Em xin chào tất cả các Bác!
Các bác giúp em với, em có cái phần mềm trền viết bằng access 2003 chạy trên access 2003 rất ổn định. Bây giờ em muốn chuyển sang sử dụng access 2010, nhưng khi cài vào và cho chạy trên access 2010 thì nó không thực thi được câu lệnh và không tạo được report. Vậy nếu em muốn sử dụng phần mềm viết bằng access 2003 mà sử dụng trên access 2010 em phải làm như thế nào.
Rất mong được sự giúp đỡ của các bác trên diên đàn.
-bạn phải convert 2003->2010
chuyển 2003->2007-2010-2013 chạy ổn -
RE: Phần Mềm Viết Bằng Access 2003 Không Sử Dụng Được Trên Access 2010
mtkien30 > 24-12-14, 10:48 AM
(24-12-14, 09:29 AM)hoanbhxhls Đã viết:
(24-12-14, 09:09 AM)mtkien30 Đã viết: Em xin chào tất cả các Bác!
Các bác giúp em với, em có cái phần mềm trền viết bằng access 2003 chạy trên access 2003 rất ổn định. Bây giờ em muốn chuyển sang sử dụng access 2010, nhưng khi cài vào và cho chạy trên access 2010 thì nó không thực thi được câu lệnh và không tạo được report. Vậy nếu em muốn sử dụng phần mềm viết bằng access 2003 mà sử dụng trên access 2010 em phải làm như thế nào.
Rất mong được sự giúp đỡ của các bác trên diên đàn.
-bạn phải convert 2003->2010
chuyển 2003->2007-2010-2013 chạy ổn
Mình đã chuyển qua nhưng vẫn bị lỗi cái hàm vnd đổi chữ thành số. Trong khi hàm vnd trong access 2003 chay rất ổn bạn xem
Function Demtien(ByVal s As String) As String
Dim So
Dim hang
So = Array("kh«ng", "mét", "hai", "ba", "bèn", "n¨m", "s¸u", "b¶y", "t¸m", "chÝn")
hang = Array(" ", "ngh×n", "triÖu", "tû")
Dim i, j, DonVi, chuc, Tram As Integer
Dim str As String
str = " "
i = Len(s)
If i = 0 Then
str = So(0) & str
Else
j = 0
Do While i > 0
DonVi = Int(Mid(s, i, 1))
i = i - 1
If i > 0 Then
chuc = Int(Mid(s, i, 1))
Else
chuc = -1
End If
i = i - 1
If i > 0 Then
Tram = Int(Mid(s, i, 1))
Else
Tram = -1
End If
i = i - 1
If DonVi > 0 Or chuc > 0 Or Tram > 0 Or j = 3 Then
str = hang(j) & " " & str
End If
j = j + 1
If j > 3 Then
j = 1
End If
If DonVi = 1 And chuc > 1 Then
str = So(chuc) & " mèt" & " " & str
Else
If DonVi = 5 And chuc > 0 Then
str = "l¨m" & " " & str
ElseIf DonVi > 0 Then
str = So(DonVi) & " " & str
End If
If chuc < 0 Then
Exit Do
Else
If chuc = 0 And DonVi > 0 Then
str = "lÎ" & " " & str
ElseIf chuc = 1 Then str = "mêi" & " " & str
ElseIf chuc > 1 Then str = So(chuc) & " " & "m¬i" & " " & str
End If
End If
End If
If Tram < 0 Then
Exit Do
Else
If Tram > 0 Or chuc > 0 Or DonVi > 0 Then
str = So(Tram) & " " & "tr¨m" & " " & str
End If
End If
Loop
'§æi ku+ tù ®Çu chuçi str thµnh ch÷ hoa( ®©y lµ ®o¹n thªm vµo)
Dim g As String
g = UCase(Left(Trim(str), 1))
str = g + Mid(Trim(str), 2)
Demtien = str
'hO+t phÇn ®æi ch÷ thµnh ch÷ hoa
End If
Demtien = str
End Function