-
07-01-2010, 12:30 AM #1Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Sử dụng hàm xây dựng như thế nào?
Em tìm thấy có các hàm mà các bạn đã dày công xây dựng, nhưng mà không biết là sử dụng như thế nào.Trong Querry hay Form, Report, xin mọi người cái Demo giới thiệu.Cảm ơn trước.
Mã nguồn PHP:[COLOR=#000000]
[/COLOR][COLOR=#007700]Public Function [/COLOR][COLOR=#0000BB]Xnull[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Daychu[/COLOR][COLOR=#007700])[/COLOR][COLOR=#DD0000]'Design by Access2k - Newbee30@yahoo.com Daychu = Trim(Daychu) Dim Tim, Thay, Daytim, i For i = 1 To Len(Daychu) Tim = Mid(Daychu, i, 1) Select Case Tim Case Is = " " If Mid(Daychu, i + 1, 1) = " " Then Thay = "" Else Thay = " " End If Case Else Thay = Mid(Daychu, i, 1) End Select Daytim = Daytim & Thay Next i Xnull = DaytimEnd Function[/COLOR]
View more random threads:
- Giúp đở vấn đề share csdl access để được nhiều người dùng
- Giúp mình tạo Form truyền dữ liệu từ Table sang Table
- Trong Form có số liệu Thành Tiền mà sang Report bằng không?
- mong các anh chị chỉ dùm về date
- Đếm ngày trong một Tháng/Năm
- Bấm nút có thêm Record đã điền trong textbox
- Compact and repair Database bị lỗi
- giúp sửa lỗi reports
- Gửi và truyền dữ liệu từ xa
- Đưa giá trị biến vào report
-
07-02-2010, 07:02 PM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Sử dụng hàm xây dựng như thế nào?
Dùng bình thuờng bạn ơi:
Giá trị cần tham chiếu = Xnull(Daychu)
Ví dụ select query:
Select * From Table Where Field1 = Xnull(Field2)
Form và Report:
Text1.ControlSource = Xnull(Text2)
-
07-02-2010, 09:13 PM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Sử dụng hàm xây dựng như thế nào?
Gửi bởi phuyen89
Vậy thì viết chi cho phức tạp thế?
Function RemoveBlanks(mstr As String) As String
Dim tmp As String
tmp = Trim(mstr)
Do While InStr(tmp, Space(2)) <>0
tmp = RePlace(tmp, Space(2), Space(1))
Loop
RemoveBlanks = tmp
End Function
-
07-03-2010, 03:53 PM #4Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Sử dụng hàm xây dựng như thế nào?
Gửi bởi phatnq2002
Function VTrim(SourceStr As String) As String
While InStr(SourceStr, " ") > 0
SourceStr = Replace(SourceStr, " ", " ")
Wend
VTrim = Trim(SourceStr)
End Function
-
07-03-2010, 09:38 PM #5Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Sử dụng hàm xây dựng như thế nào?
Gửi bởi phatnq2002
Em mới làm cái hàm đệ quy để xử lý tình huống đặc biệt của chuỗi sau:
"A" & space(50000000) & "b"
Public Function CutSpace(mstr As String)
Dim l_str As String, r_str As String
Dim pos As Long, lgn As Long
r_str = Trim(mstr)
pos = InStr(1, r_str, " ")
lgn = Len(r_str)
If pos > 0 Then
l_str = Left(r_str, pos)
r_str = Right(r_str, lgn - pos)
CutSpace = l_str & CutSpace(r_str)
Else
CutSpace = l_str & r_str
End If
End Function
Lưu ý: kiểm tra chiều dài của biến mstr truyền vào. Nếu quá lớn sẽ xảy ra lỗi out of memory
Nếu dùng hàm của bác xử lý tình huống của em đưa ra là chạy phê luôn.
CPU Core 2 Duo: 95%-100%, Ram mất thêm 0.5 GB.
Hì hì, em giả sử cho vui chứ thực tế cũng hiếm gặp chuỗi nào như vậy.
:khoc::khoc:
-
07-04-2010, 02:26 AM #6Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Sử dụng hàm xây dựng như thế nào?
Gửi bởi chip2006
Cái vụ chuỗi của chú đúng là "hoang đường" nhưng không phải không xảy ra, dù xác suất của nó có thể chỉ là 0.000000000001% !!!!!! (Tự cho)
Hàm đệ quy là một kỹ thuật không phải cũng xài được và ai cũng hiểu được, bởi vậy cái hàm của chú, dân pro đọc thì hiểu chứ dân amateur thì hơi bị đuối.
Trước tiên cần khẳng định rằng bệnh rối loạn cương dương hoàn toàn có thể chữa khỏi được bằng nhiều loại thuốc hiệu quả và an toàn. Quá trình điều trị muốn đạt được hiệu quả cao cần giảm thiểu các...
Thuốc cường dương black gold usa, đàn ông uống "cương ngay"