[Q] lập trình trong access 2000. làm sao viết ch.trình cho chữ chạy ?

[chutieu]

Trong access 2000, làm sao viết chương trình cho chữ chạy vòng vòng qua lại và lên xuống. Làm sao nhún các chương trình access 2000 vào web ? xin mọi người chỉ giúp ... cám ơn

[traixanha]

lộn room roi bro oi

[nhacsydom]

Bạn có thể tạo một form trong đó bạn có 1 cái label chứa những chữ cần chạy. Sau đó bạn làm 1 vòng lặp để giảm hoặc tăng vị trí toạ độ left hoặc Top của Label này, cứ như thế vòng lặp này sẽ làm cho label di chuyển theo tham số time của form. Nó chỉ có thể dừng khi vòng lặp này thoả điều kiện ngừng hoạt động.

[minde]

Nhưng mà sao mà pro biết được tọa độ chữ trong label được,cái này viết bằng pascal thì được như VBA không biết viết được không !Làm cái file flash rồi chèn vô khả thi hơn đó !!!

[dtt_vn]

không phải là thay postion của text mà là thay postion của cả một label . VBA làm việc rất tốt vấn đề này. cụ thể là set thuộc tính autosize = true, sau đó thì tự nhiên và thoải mái set left và top attrib

[cuongnq]

Tôi xin bổ xung 1 chut:
bác có thể dùng hàm DoEvent() dể tạo sự kiện can thiệp vào vòng lặp khi chữ chạy.
tồi nhất trong VB la đồ hoạ nếu dùng vòng lặp sau đó di chuyển toạ dộ của Text thi sẽ bị nháy, chẳng nhìn thấy gì.
nếu muốn ngon lành chỉ có cánh gọi hàm API thôi,hình như là hàm Textout() thi phai.

[le6ha2]

ban se dung module duoc chay trong su kien load cua form ban muon cho chu chay. Dong chu chay se la mot label
va de cho chay thi ban chi viec thay doi cac thuoc tinh left, top cua no, hoac dung cac ham mid, left, right can thiep vao thuoc tinh caption (label.caption chinh la dong chu hien tren form). Ban con co the thay doi thuoc tinh forecolor de lam chu doi mau lien tuc!
chiu kho may mo the nao cung ra thoi

[NgoTatThang]

bạn tạo môt nhãn label roi dung đoạn code sau nha
Private Sub Label57_OPEN()
Option Explicit
Private Sub form_load()
Me.TimerInterval = 200
End Sub
Private Sub form_timer()
Dim x, y As String
x = Left(Label57.Caption, (Len(Label57.Caption) - 1))
y = Right(Label57.Caption, 1)
Label57.Caption = y + x
End Sub

[ngochbvn]

CẢM ƠN CÁC BẠN RẤT NHIỀU. Tôi mới học access, tôi muốn viết chương trình quản lý trên access. Mong các bạn giúp đỡ.
Đề viết lệnh tạo mới, sửa và xóa thì viết như thế nào? ko đc dùng wizard. Tôi đang làm btl mà thấy khó quá à.

[tang_bn]

Tôi nghĩ access ko làm nổi chuyện đó đâu, nó chỉ là hệ quản trị CSDL giống excel thôi. Bạn muốn viết thì phải dùng Foxpro hay VB.NET j đó thì hay hơn.

[Anhlovkhoan]

Option Compare Database

Private Sub Form_Click()

End Sub

Private Sub Form_Timer()
Dim S As String
S = A.Caption
A.Caption = Mid(A.Caption, 2) & Left(A.Caption, 1)

End Sub
Private Sub Command4_Click()
On Error GoTo Err_Command4_Click


DoCmd.Close

Exit_Command4_Click:
Exit Sub

Err_Command4_Click:
MsgBox Err.Description
Resume Exit_Command4_Click

End Sub
Private Sub Command5_Click()
On Error GoTo Err_Command5_Click


DoCmd.Close

Exit_Command5_Click:
Exit Sub

Err_Command5_Click:
MsgBox Err.Description
Resume Exit_Command5_Click

End Sub

[=========> Bổ sung bài viết <=========]

các vj trong dien dàn ah, mjh đang làm bài tập lớn access về chương trình quản lý thư viện,mjh đang bối rối ko biết tạo như thế nào cho tương đối đầy đủ sao cho nó gọi là phần mềm, các vị có thể ý kiến cho mjh dc ko cảm ơn các vj nhiều nhá

[tanthuanloi]

Tôi muốn viết một đoạn code trong access để cho các dòng chữ trôi từ đáy màn hình lên đỉnh và từ từ biến mất. Giông như phần giới thiệu chương trình của TV vậy đó. Mong được sự chỉ giáo của các sư huynh.