bu kodlara nasıl kaydetmeyı eklerım

[rapboy]

Private Sub Komut5_Click()
Dim fold As Object

Set fold = CreateObject("Shell.Application"). _
BrowseForFolder(0, "Klasör seçiniz...", 0)

If fold Is Nothing Then Exit Sub

MsgBox fold.Self.Path
End Sub

arkadaşlar ben bu göz at komutlarına nasıl kydetme kodunu eklıye bilirim yardım edesenız sevınırım

 

[simendifer]

Kodların arasına bunu yapıştırın
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

 

[rapboy]

bu verdıgın kodlar sayesınde veri tabanın oldugu klasore yeni bi klasor açıp o klasore veri leri nasıl kaydede bilirim bu koda da yardımcı olursan cok sevinirim

 

[modalı]

bu verdıgın kodlar sayesınde veri tabanın oldugu klasore yeni bi klasor açıp o klasore veri leri nasıl kaydede bilirim bu koda da yardımcı olursan cok sevinirim

Veriler klasöre kaydedilmezler. Veri tabanı içindeki tablolara kaydedilirler.