Đá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ướng Dẫn Cách lưu (back up database) dữ liệu! danhxetnghiem 22 3,151 17-02-17, 06:02 PM
Bài mới nhất: MTNQ
  Bạn nào có công cụ sửa lỗi File access cho mình với ledangvan 0 24 14-02-17, 11:13 AM
Bài mới nhất: ledangvan
  Tạo ứng dụng Access 2003 chạy qua mạng internet tt1212 12 2,056 10-02-17, 10:57 AM
Bài mới nhất: nguyenduykhanhpt
  Di chuyển list index trong listbox về cuối list khi thêm 1 record vuga 1 65 15-01-17, 01:00 PM
Bài mới nhất: ongke0711
Photo Lỗi hàm Sum trong Report va ngày tháng trên Form ! vocan 3 140 09-01-17, 06:19 PM
Bài mới nhất: maidinhdan

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ơ