Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: drdrakin 12-06-11, 03:52 PM Chuyên mục: Forms - Bài trả lời (15) |
tạo form hanghoa hiện thị thông tin hàng bán và nhập
nhưng khi mình làm xong thì phần ảnh ko hiển thị đc( ở bên bảng mình đã để là OLE object, và bên form sử dụng bound object frame)
![[Hình: fgffg.png]](http://i1088.photobucket.com/albums/i330/o0hoangtu_150o/fgffg.png)
các bạn hướng dẫn mình với nhé!
Bạn nào có file access về bán hàng thì share mình tham khảo với nhé!
Tks các bạn!
|
|
Viết bởi: tracanhtam 12-06-11, 02:30 PM Chuyên mục: Forms - Bài trả lời (3) |
Tôi muốn xếp lớp cho hs theo cách sau : mỗi lớp 45hs có đầy đủ các loại điểm của field tongdiem.
Bạn nào gúip dùm code, xin cám ơn
File của tôi đây
|
|
Viết bởi: thienvu0902 11-06-11, 12:24 PM Chuyên mục: Report - Bài trả lời (5) |
nếu đc bạn có thể pm thienvu0902@yahoo.com xin cam ơn
|
Viết bởi: DoquangLam 10-06-11, 11:08 PM Chuyên mục: Report - Bài trả lời (7) |
File đính kèm các bạn mở Reports "R_48CapNhatChungTu_PN" -> Bị lỗi
Cám ơn các bạn !
Function VND(Amt)
If Amt = 0 Then
Resp = "Khoâng ñoàng"
Else
If Abs(Amt) > 999999999999.99 Then
Resp = "Soá quaù lôùn"
Else
If Amt < 0 Then
Resp = "Tröø "
Else
Resp = Space(0)
End If
Tien = Format(Abs(Amt), "###########0")
Tien = Right(Space(12) + Tien, 12)
doc = Space(0): Dem = doc
doc = doc + "traêm möôi tyû "
doc = doc + "traêm möôi trieäu"
doc = doc + "traêm möôi ngaøn "
doc = doc + "traêm möôi ñoàng "
doc = doc + "traêm möôi "
Dem = Dem + "moät hai ba boán naêm "
Dem = Dem + "saùu baûy taùm chín "
For I = 1 To 5
Nhom = Mid(Tien, I * 3 - 2, 3)
If Nhom <> Space(3) Then
Select Case Nhom
Case "000"
If I = 4 Then
Chu = "ñoàng "
Else
Chu = Space(0)
End If
Case ".00"
Chu = "chaün"
Case Else
So1 = Left(Nhom, 1)
So2 = Mid(Nhom, 2, 1)
So3 = Right(Nhom, 1)
Chu = Space(0)
For j = 1 To 3
Dich = Space(0)
s = Val(Mid(Nhom, j, 1))
If s > 0 Then
Dich = Trim(Mid(Dem, s * 5 - 4, 5)) + " " + Trim(Mid(doc, (I - 1) * 18 + j * 6 - 5, 6)) + " "
End If
Select Case j
Case 2 And s = 1
Dich = "möôøi "
Case 3 And s = 0 And Nhom <> Space(2) + "0"
Dich = Trim(Mid(doc, (I - 1) * 18 + j * 6 - 5, 6)) + Space(1)
Case 3 And s = 5 And So2 <> Space(1) And So2 <> "0"
Dich = "l" + Mid(Dich, 2)
Case 2 And s = 0 And So3 <> "0"
If (So1 >= "1" And So1 <= "9") Or (So1 = "0" And I = 4) Then
Dich = "leû "
End If
End Select
Chu = Chu + Dich
Next j
End Select
ViTri = InStr(1, Chu, "möôi moät", 1)
If ViTri > 0 Then Mid(Chu, ViTri, 9) = "möôi moát"
Resp = Resp + Chu
End If
Next I
End If
End If
VND = UCase(Left(Resp, 1)) + Mid(Resp, 2)
End Function
|
|
Viết bởi: tracanhtam 10-06-11, 02:09 PM Chuyên mục: Forms - Bài trả lời (4) |
Tôi muốn đánh stt theo từng lớp sau khi đã nhập mọi thông tinh trong tables T01Hocsinh
Các bạn có thể giúp mình viết code trên forms đánh số thứ tự cho tất cả các lớp được không
Rất cám ơn các bạn[/size][/font]
| Chủ đề Mới nhất |
| Share 3000 mẫu slide Powe... -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: Stanleyrem-6 Giờ trước- » Bài trả lời: 1- » Lượt xem: 3,648 |
| SUNWIN Casino -Chuyên mục: Trao đổi Góp ý-Đăng bởi lần cuối: SUNWIN-Hôm qua, 04:38 PM- » Bài trả lời: 0- » Lượt xem: 2 |
| SUNWIN APK -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SUNWIN-Hôm qua, 03:43 PM- » Bài trả lời: 0- » Lượt xem: 5 |
| SUNWIN IOS -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SUNWIN-Hôm qua, 03:33 PM- » Bài trả lời: 0- » Lượt xem: 5 |
| SUNWIN APK -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SUNWIN-Hôm qua, 01:26 PM- » Bài trả lời: 0- » Lượt xem: 5 |
| SUNWIN MOBILE -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SUNWIN-Hôm qua, 11:44 AM- » Bài trả lời: 0- » Lượt xem: 5 |
| SUNWIN COMi -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SUNWIN-Hôm qua, 04:37 AM- » Bài trả lời: 0- » Lượt xem: 5 |
| SUNWIN TRANSPORTABLE -Chuyên mục: Ms PowerPoint-Đăng bởi lần cuối: SUNWIN-Hôm qua, 03:55 AM- » Bài trả lời: 0- » Lượt xem: 6 |
| Ứng dụng kiểm phiếu bầu c... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-Hôm qua, 01:21 AM- » Bài trả lời: 0- » Lượt xem: 12 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: chuvanthom-08-12-25, 09:12 PM- » Bài trả lời: 2- » Lượt xem: 3,273 |
| Diễn đàn Thống kê |
|
» Thành viên: 8,211 » Thành viên mới nhất: sensa138gameitcom » Các chủ đề diễn đàn: 9,906 » Các bài viết diễn: 48,837 Thống kê đầy đủ |