huyhoa0677 > 07-05-17, 03:05 PM
khonggianviet > 02-07-17, 12:52 AM
khonggianviet > 02-07-17, 12:53 AM
(02-07-17, 12:52 AM)khonggianviet Đã viết: Biết là chưa đủ điều kiện như bạn đặt ra nhưng mình mạnh dạn xin bạn pass để học tập nghiên cứu. Trong quá trình làm việc cần dùng đến access để quản lý công vắn chó cơ quan. Nên mình cho ủng mo mới bắt đầu tìm hiểu để làm. Cảm ớn bạn nhiêu Mail mình diatheland@gmail.com
maidinhdan > 02-07-17, 03:31 PM
(02-07-17, 12:53 AM)khonggianviet Đã viết:(02-07-17, 12:52 AM)khonggianviet Đã viết: Biết là chưa đủ điều kiện như bạn đặt ra nhưng mình mạnh dạn xin bạn pass để học tập nghiên cứu. Trong quá trình làm việc cần dùng đến access để quản lý công vắn chó cơ quan. Nên mình cho ủng mo mới bắt đầu tìm hiểu để làm. Cảm ớn bạn nhiêu Mail mình diatheland@gmail.com
khonggianviet > 04-07-17, 11:17 PM
(02-07-17, 03:31 PM)maidinhdan Đã viết:Bạn ơi không biết bạn đã xem file access mà mình gửi chưa? Cách tổ chức các table như vậy liệu có ổn không ? Rất cần tư vấn của những người đi trước. Thanks bạn(02-07-17, 12:53 AM)khonggianviet Đã viết:(02-07-17, 12:52 AM)khonggianviet Đã viết: Biết là chưa đủ điều kiện như bạn đặt ra nhưng mình mạnh dạn xin bạn pass để học tập nghiên cứu. Trong quá trình làm việc cần dùng đến access để quản lý công vắn chó cơ quan. Nên mình cho ủng mo mới bắt đầu tìm hiểu để làm. Cảm ớn bạn nhiêu Mail mình diatheland@gmail.com
Sẽ xem xét yêu cầu này trong vòng 1 tuần tính từ hôm nay.
Thân mến!
phungminhluan > 04-11-17, 11:55 PM
maidinhdan > 05-11-17, 02:17 PM
(04-11-17, 11:55 PM)phungminhluan Đã viết: Bạn có thể cho mình xin code của nút add file không, mình đang cần để viết ứng dụng quản lý đôi tượng có hình ảnh, nên muốn khi chọn hình thì copy hình vào thư mục AnhDoiTuong và đổi tên ảnh theo MaDT.
Public Function ChonAnh(TenFileMoi As String) As String
Dim f As Object 'FileDialog
Dim TenFile As String, NoiLuuFileMoi As String
Set f = Application.FileDialog(3) '(msoFileDialogFilePicker) So 3 la File
With f
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path & "\Hinhanh"
.Title = "Chon Hinh can hien thi"
' Specify Filters
.Filters.Clear
.Filters.Add "JPEG Files (*.JPG)", "*.JPG"
If .Show = True Then 'Neu ban co chon file anh
ChonAnh = Trim(.SelectedItems(1))
TenFile = LaytenFile(ChonAnh) ' Lay ten file
' đây là địa chỉ bạn muốn lưu ở thư mục nào và đặt tên file đó
NoiLuuFileMoi = CurrentProject.Path & "\Hinhanh\" & Replace(TenFileMoi, " ", "_") & LayduoiFile(ChonAnh)
'Lệnh Copy file den thu muc Hinhanh
SaochepFile ChonAnh, NoiLuuFileMoi
'Set duong dan mac dinh cho ten file
ChonAnh = NoiLuuFileMoi
Else
MsgBox "Chua chon hinh nao ca", vbInformation, "Thông báo"
End If
End With
End Function
'---------------------------------------------------------------------------------------
' Ten ham : Saochepfile
' Ngay viet : 8/4/2015
' Dien giai :Sao chep file du no ca dang mo di chang nua
'---------------------------------------------------------------------------------------
Function SaochepFile(DuongdanCu As String, DuongdanMoi As String)
On Error Resume Next
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
If DuongdanCu <> DuongdanMoi Then FSO.CopyFile DuongdanCu, DuongdanMoi
Set FSO = Nothing
End Function
Public Function LaytenFile(ByVal DiachiFile As String) As String ' Lay ten file kem đuôi file
LaytenFile = Mid(DiachiFile, InStrRev(DiachiFile, "\") + 1)
End Function
Public Function LayduoiFile(str As String) As String
On Error Resume Next
If str Like "*.*" Then
For i = 1 To Len(str)
s = Mid(str, i, 1)
If s = "." Then
X = i
End If
Next
LayduoiFile = Mid(str, X)
Else
LayduoiFile = ""
End If
End Function
Function LoaibodauTiengviet(ByVal ChuTiengVietCoDau As String) As String
Dim i As Long
Dim intCode As Long
Dim sChar As String
Dim sConvert As String
LoaibodauTiengviet = AscW(ChuTiengVietCoDau)
For i = 1 To Len(ChuTiengVietCoDau)
sChar = Mid(ChuTiengVietCoDau, i, 1)
If sChar <> "" Then
intCode = AscW(sChar)
End If
Select Case intCode
Case 273
sConvert = sConvert & "d"
Case 272
sConvert = sConvert & "D"
Case 224, 225, 226, 227, 259, 7841, 7843, 7845, 7847, 7849, 7851, 7853, 7855, 7857, 7859, 7861, 7863
sConvert = sConvert & "a"
Case 192, 193, 194, 195, 258, 7840, 7842, 7844, 7846, 7848, 7850, 7852, 7854, 7856, 7858, 7860, 7862
sConvert = sConvert & "A"
Case 232, 233, 234, 7865, 7867, 7869, 7871, 7873, 7875, 7877, 7879
sConvert = sConvert & "e"
Case 200, 201, 202, 7864, 7866, 7868, 7870, 7872, 7874, 7876, 7878
sConvert = sConvert & "E"
Case 236, 237, 297, 7881, 7883
sConvert = sConvert & "i"
Case 204, 205, 296, 7880, 7882
sConvert = sConvert & "I"
Case 242, 243, 244, 245, 417, 7885, 7887, 7889, 7891, 7893, 7895, 7897, 7899, 7901, 7903, 7905, 7907
sConvert = sConvert & "o"
Case 210, 211, 212, 213, 416, 7884, 7886, 7888, 7890, 7892, 7894, 7896, 7898, 7900, 7902, 7904, 7906
sConvert = sConvert & "O"
Case 249, 250, 361, 432, 7909, 7911, 7913, 7915, 7917, 7919, 7921
sConvert = sConvert & "u"
Case 217, 218, 360, 431, 7908, 7910, 7912, 7914, 7916, 7918, 7920
sConvert = sConvert & "U"
Case 253, 7923, 7925, 7927, 7929
sConvert = sConvert & "y"
Case 221, 7922, 7924, 7926, 7928
sConvert = sConvert & "Y"
Case Else
sConvert = sConvert & sChar
End Select
Next
LoaibodauTiengviet = sConvert
End Function
Private Sub cmdchenhinh_Click()
Dim LinkChonAnh As String, Tenfileanh As String
Tenfileanh = LoaibodauTiengviet(Me.Hoten) & "_" & Me.SoCMND & "-" & Format(Now(), "YYYY_MM")
LinkChonAnh = ChonAnh(Tenfileanh)
If LinkChonAnh > "" Then
Me.Hinhthe = LinkChonAnh
End If
End Sub
mrsiro > 28-11-17, 08:45 PM
maidinhdan > 29-11-17, 12:49 AM
(28-11-17, 08:45 PM)mrsiro Đã viết: Chào bạn, có thể xem xét cho mình xin source của ứng dụng không. Nhu cầu học hỏi thôi. Mình là newbie nên kiến thức hạn hẹp có thể không trợ giúp được thành viên khác như yêu cầu.
Nếu có thể thì cho mình xin nhé: Hailm1602@gmail.com
Cám ơn bạn.