Đánh giá chủ đề:
  • 1 Votes - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Chỉnh sửa lại dữ liệu trong access
#1
Trong form của em có một cái textbox lưu đường dẫn thế này
"Y:\Duoc\Database\Images\ZINC SULFATE MONO 98% ZN 35.7% -Lantian Chemical - Back (Large).jpg"
Nhưng vì bây giờ em chuyển cái Database của em sang chổ khác nên đường dẫn này không hoạt động được,em muốn thay "Y:\Duoc\" bằng "K:\QC QA database\VNGTD\" và giử lại toàn bộ đường dẫn thì em phải làm sao??
Rất mong nhận được giúp đỡ của các sư huynh sư tỷ.
Chữ ký của Hoanggiathanhsingles Xin chào! Mình là Hoanggiathanhsingles, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn
#2
Tham khảo cái này

Sample


Chữ ký của Cafe Via He Ở nhờ nhà mẹ mình big green
ღღღღღTài sản của Cafe Via He (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Cảm ơn Cafe Via He nhiều, nhưng cái này vẫn chưa đáp ứng được như mình mong muốn.
Mình mong muốn là khi nhấp chuột vào nút lệnh thì cái đường dẫn này
"Y:\Duoc\Database\Images\ZINC SULFATE MONO 98% ZN 35.7% -Lantian Chemical - Back (Large).jpg"
Sẽ tự động mất cái cụm "Y:\Duoc\" và tự động thế vào đó bằng cụm "K:\QC QA database\VNGTD\"
Mong nhận được sự chỉ dẫn của các sư huynh tỷ.
Chữ ký của Hoanggiathanhsingles Xin chào! Mình là Hoanggiathanhsingles, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn
#4
Mình chỉ đưa ví dụ minh họa thôi, còn việc áp dụng vào bài của bạn là do bạn làm chứ. Tự làm như thế mới nhớ và hiểu chứ ng khác làm dùm hết thì bạn sẽ k tiến bộ đâu

Câu query đại loại nó sẽ là:
Mã:
UPDATE Table SET table.path = "K:\QC QA database\VNGTD\" & Mid([table.path],8);
Chữ ký của Cafe Via He Ở nhờ nhà mẹ mình big green
ღღღღღTài sản của Cafe Via He (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
Giải thuật thế này, bạn cố gắng thực hiện nhé, ví dụ đường dẫn bạn lưu vào field có tên duongdan.

1/ ta thấy "Y:\Duoc\" gồm 8 ký tự. Như vậy, để lấy đoạn còn lại, ta dùng:
mid(duongdan,8)

2/ ta ghép kết quả có được với đường dẫn mới:
"K:\QC QA database\VNGTD\" & mid(duongdan,8)

Cuối cùng, gọi 1 query update đường dẫn mới này vào duongdan cũ!

Chúc thành công!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cafe Via He
#6
Hi..hi..hi
Cảm ơn các sư huynh tỷ đã chỉ dẫn và đưa em khẩu quyết, nương theo đó em đã làm và đã thành công.
Cảm ơn các sư huynh tỷ rất nhiều.
Em xinh gửi đoạn code của em cho sư huynh tỷ xem nhé!

Mã:
Private Sub Command60_Click()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("select duongdan from [Q-LayoutInputing]")
If Rs.RecordCount > 0 Then
Rs.MoveFirst

While Rs.EOF = False
Dim Str, Str2, Str3, Str4 As String
Str = Mid(Rs.Fields("duongdan"), 8) 'cat bo cum dau cua duong dan "Y:\Duoc\"
Str4 = "K:\QC QA database\VNGTD" 'gan cho mac dinh cho bien Str4 cum "K:\QC QA database\VNGTD\"
If Left(Rs.Fields("duongdan"), 8) = "Y:\Duoc\" Then
Dim Cancel As Boolean
Rs.Edit
Rs.Fields("duongdan") = Str4 & Str
Rs.Update
Else
Cancel = True
End If
Rs.MoveNext
Wend
If Rs.EOF = True Then
MsgBox "Update link completed", , "Updated All Completed"
Exit Sub
End If
End If
Chữ ký của Hoanggiathanhsingles Xin chào! Mình là Hoanggiathanhsingles, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Hỏi về việc khóa dữ liệu , khóa subform toidjtjmtoi 8 248 Hôm qua, 05:12 PM
Bài mới nhất: ongke0711
  Tự chọn 1 trong 2 filed Giá theo điều kiện Global_virus 1 69 22-07-17, 03:05 AM
Bài mới nhất: cpucloi
  Nên bắt đầu với Access và VBA như thế nào? lehongduc 17 485 15-07-17, 02:51 AM
Bài mới nhất: tranthanhan1962
  Sửa các VBA và macaro khi chuyển access 2003 sang 2007 thanhtruong 9 456 24-06-17, 01:15 AM
Bài mới nhất: maidinhdan
  thay đổi biểu tượng Access dưới thanh Start từ win 7 đến win 10 thanhtruong 8 831 23-06-17, 03:25 PM
Bài mới nhất: thanhtruong

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ