Câu lạc bộ Visual Basic

Bạn có thể dùng bất kỳ phương thức nào cũng được, miễn là ra được kết quả và nhanh, gọn nhất. Nhưng bạn dùng nó vào mục đích gì trong bài này

1. Mình không hiểu bạn dùng between thì lấy trường nào hoặc tiêu chí nào để thực hiện.
2. Năm sinh 1 và năm sinh 2 có giá trị bằng nhau thì không có khoảng cách giữa chúng.
3. Chuyển đổi dữ liệu về cùng một kiểu số để so sánh thì không có gì khó. VD: val(namsinh) between 1978 and 2001.

Toàn bộ bài của bạn được sửa lại như dưới đây, tại sao lại làm vậy thì bạn suy nghĩ một chút nhé [vb]Private Sub txthoten_Change() Check2.Tag = "hoten='" & txthoten.Text & "'" End Sub Private Sub txtlop_Change() Check1.Tag = "lop='" & txtlop.Text & "...

[vbnet]Private Sub Form_Load()
If rs.State = adStateOpen Then rs.Close
ketnoi
rs.Open "select tenhang, count(tenhang) as 'soluong' from test group by tenhang", cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub[/vbnet]

Ban thử dùng đoạn code dưới đây xem có đúng ý bạn cần không 1. tô mầu cho ô A1 2. chọn một vùng bất kỳ trên bảng tính để so sánh mầu với ô A1 Sub thu() Dim r As Range For Each r In Selection' bạn có thể thay thế Selection bằng một vùng cụ thể nào đó VD Range("B1:E100") If r.Interior.Color ...

Trong vb6, để hiển thị ảnh vừa với khung ảnh, bạn nên sử dụng Image và cho thuộc tính Stretch = True

Trong vba của excel bạn không thể dùng kiểu gõ Unicode, nên mới bị hiển thị kiểu Sheets("1-SPW-C?U").Select Bạn có thể dùng các cách sau: 1. Sửa Sheets("1-SPW-C?U").Select thành Sheet3.Select 2. Sửa tên của các sheet thành không dấu. VD: 1-SPW-CẦU sửa thành 1-SPW-CAU, thì bạn sẽ ...

Chương trình của mình dùng font .VnTime, do vậy bạn nên chuyển bảng mã sang TCVN3(ABC)

[vbnet]Private Sub Command1_Click() Dim x, x1 As String Dim n() As String Open "C:\MD5.txt" For Input As #1 Do Until EOF(1) Line Input #1, x1 n = Split(Trim(x1), Chr(32)) If UBound(n) = 6 Then x = x & x1 & vbNewLine' phần này kiểm tra dòng có 7 phần tử mảng (nhưng Ubound của nó thì...

Bạn làm dài dòng quá, dài quá nên thừa và dẫn đến sai. Chỉ cần như dưới đây là đủ rồi Function Bin2Dec(stringdata As String) As Long Dim n As Integer Dim a As Integer Dim x As String n = Len(stringdata) - 1 a = n Do While n > -1 x = Mid$(stringdata, ((a + 1) - n), 1) Bin2Dec = IIf((x = "1"...

Thông báo chỉ ra cho bạn biết "biến của bạn không chứa nổi số này", bạn hãy kiểm tra các biến kiểu số của bạn và khai báo kiểu biến cho nó đáp ứng được yêu cầu.
Ví du: Bạn khai báo Var i as integer, sau đó:
i=100000*1000 hoặc for i =1 to 100000000 thì sẽ báo lỗi như trên

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long, dong As Long, x$, index% index = 27 dong = Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row If Target.Address <> "$C$26" Then Exit Sub Range("B27:G37").ClearContents For i = 2 To dong ...

Phần mềm kiểm phiếu Đại hội Đảng (dùng cho đảng bộ các cấp) mình đã áp dụng thành công tại Đại hội Đảng bộ thành phố Hưng Yên, tỉnh Hưng Yên và hơn 20 đơn vị trực thuộc thành phố Hưng Yên nhiệm kỳ 2015 - 2020. Phần mềm đơn giản, dễ sử dụng, biên bản đại hội được thiết kế theo đúng hướng dẫn của Trun...

Hàm MID dùng để cắt xâu.
Cú pháp như sau: MID(xuân cần cẳt, thứ tự cắt, số ký tự cần lấy)
Ví dụ: Ta có một xâu như sau: Cộng hoà. Bây giờ ta cần lấy:
1. Chữ Cộng thì làm như sau: MID("Cộng hoà",1,4).
2. Chữ hoà thì làm như sau: MID("Cộng hoà",6,3).

Chỉ cần đơn giản thể này cũng được
Sub Connect()
cn.Provider = "Microsoft.jet.OLEDB.4.0"
If Dir(App.Path & "\VB.mdb") = Empty then Exit Sub
cn.ConnectionString = App.Path & "\VB.mdb"
cn.Open
.....
End Sub

Bạn sửa lại như sau: [vb]Private Function Doi_Co_So_10_Ra_2(ByVal n As Integer) As String ' khai bao bien Dim chuoi As String ' gan gia tri cho bien chuoi = "" Do While n <> 0 chuoi = chuoi & (n Mod 2) n = n / 2 Loop ' khai bao bien Dim kq As String 'gan gia tri kq = "" For i...

Xây dựng hàm [vb]Function Doi(so$) As String chu = Array("", "m" & ChrW(7897) & "t", "hai", "ba", "b" & ChrW(7889) & "n", "n" & ChrW(259) & "m", "s" & Chr(225) & "...

Tiện đây xin hỏi các tiền bối luôn là em có 1 textbox trên form với thuộc tính text=0, em muốn khi nhấn phím mũi tên lên thì thuộc tính text của textbox đó tăng thêm 1, ngược lại khi nhấn mũi tên xuống thì giảm đi 1. Em thử mãi mà không được. Bác nào biết xin chỉ giúp, xin đa tạ rất nhiều!(Em làm b...

Cách đơn giản nhất là bạn thay chữ "tim" bằng một ký tự rỗng là xong.

Tình hình e làm dvd có dữ liêu cá nhân chạy trên file iso. Nhưng toàn bị sao chép. Vậy có cách nào bảo mật chỉ chạy dc nhưng ko sao chép dc thì các bác chỉ e với e xin cảm ơn và hậu tạ Bạn hãy tham khảo bài viết sau, nó có thể sẽ giúp ích cho bạn: http://songnhac.vn/cong-nghe/muc-luc/phan-men-thiet...