-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
klasörde olan dosyaların listelenmesini
- Konbuyu başlatan kerrrim
- Başlangıç tarihi
Arkadaşlar sorumu birazdaha açmam gerkirse bir klasör içindeki ".xls" ve ".doc" uzantılı dökümanların isimlerini tabloda bir alana nasıl listeleye bilirim.Forumda arama arama yaptım ve excel çalışma sayfasında yapılabildiği cevabı var ama accessle ilgili bir örnek bulamadım.Yardımcı olan arkadaşlara şimdiden teşekkürler.
bu kısım
Dim I As Integer
Dim Dosya, Klasor
Klasor = Me.YOL
ChDir (Klasor)
Dosya = Dir(Me.YOL)
I = 0
While Dosya <> ""
Me.Liste0.AddItem Item:=Dosya
Dosya = Dir
I = I + 1
Wend
Form.Requery
ve benim eklediğim taksitlendirme örneğindeki kodları birleştir senin istediğin çıkar
Dim I As Integer
Dim Dosya, Klasor
Klasor = Me.YOL
ChDir (Klasor)
Dosya = Dir(Me.YOL)
I = 0
While Dosya <> ""
Me.Liste0.AddItem Item:=Dosya
Dosya = Dir
I = I + 1
Wend
Form.Requery
ve benim eklediğim taksitlendirme örneğindeki kodları birleştir senin istediğin çıkar
Sayın Gülsüm1
Kendi çapımda birşeyler yapmaya çalıştım ama butona tıkladığımda bütün dosyalaması gerekirken dosyalardan sadece birini listeliyor.Örneğimi inceler ve bir yol gösteririseniz (anlayabileceğimiz düzeyde) çok sevinirim. (C içinde yazılar klasörü)
Kendinize ve umutlarınıza iyi bakın
Kendi çapımda birşeyler yapmaya çalıştım ama butona tıkladığımda bütün dosyalaması gerekirken dosyalardan sadece birini listeliyor.Örneğimi inceler ve bir yol gösteririseniz (anlayabileceğimiz düzeyde) çok sevinirim. (C içinde yazılar klasörü)
Kendinize ve umutlarınıza iyi bakın
sayın kerrrim benim gönderdiğim örneğe bakmamış olduğunuzu ve sayın gülsüm1 de zaten aynı kodu göndermiş bir klasör nerede olursa olsun ki onu açmanız için ya yol belirlersiniz direkt yada esnek kullanım yani sizin açmak istediğiniz herhangi bir yerde bu server dahi olabilir bunu getirir size orada geçen Me.YOL zaten dosyanızın Paht ı dır. ve bu paht içindeki belgeleri size listeler kodu kısıtlama sadece xls, doc olarak kriterleme işinden ziyade önceliği bu ha birde sizin örneğinizdeki kod komple hatalı ve eksik birdöngü için yada bir başvuru için C diye alan seçmişsiniz bu c nerenin c si
önce variant belirle
yani
dim C as Variant
C= Me.Neyse ne
yada bir iki gibi
sonra
C yi kullan
For C=1 to 10
Next C
gibi
SİTEM:
Darılmayınız ama soru soruyorsunuz sorduğunuz soruya göre çevap veriyoruz.
daha sonra sorunuza bir bakıyoruz 2 nci bir soru ve ilk yapılanın yantarafından VIN diye bir ses verip başka bir gezegene gitmiş.
bu sizin 2.sorunuz ben birincisi için debelenirken siz ne yapsamda sıkıntıya soksam diye bunu yarattınız.
Arkadaşlar sorumu birazdaha açmam gerkirse bir klasör içindeki ".xls" ve ".doc" uzantılı dökümanların isimlerini tabloda bir alana nasıl listeleye bilirim.Forumda arama arama yaptım ve excel çalışma sayfasında yapılabildiği cevabı var ama accessle ilgili bir örnek bulamadım.Yardımcı olan arkadaşlara şimdiden teşekkürler.
lütfen bu soruyu baştan sormanız gerekiyordu ve ben sürekli karar değiştiren sorulara cevap veremeyeceğim çünkü başka arkadaşlar da var emin olunuz ondan sonra sorunuz lütfen
önce variant belirle
yani
dim C as Variant
C= Me.Neyse ne
yada bir iki gibi
sonra
C yi kullan
For C=1 to 10
Next C
gibi
SİTEM:
Darılmayınız ama soru soruyorsunuz sorduğunuz soruya göre çevap veriyoruz.
daha sonra sorunuza bir bakıyoruz 2 nci bir soru ve ilk yapılanın yantarafından VIN diye bir ses verip başka bir gezegene gitmiş.
bu sizin 2.sorunuz ben birincisi için debelenirken siz ne yapsamda sıkıntıya soksam diye bunu yarattınız.
Arkadaşlar sorumu birazdaha açmam gerkirse bir klasör içindeki ".xls" ve ".doc" uzantılı dökümanların isimlerini tabloda bir alana nasıl listeleye bilirim.Forumda arama arama yaptım ve excel çalışma sayfasında yapılabildiği cevabı var ama accessle ilgili bir örnek bulamadım.Yardımcı olan arkadaşlara şimdiden teşekkürler.
lütfen bu soruyu baştan sormanız gerekiyordu ve ben sürekli karar değiştiren sorulara cevap veremeyeceğim çünkü başka arkadaşlar da var emin olunuz ondan sonra sorunuz lütfen
cevap
syn atilla52 o kodlar zaten senin kodların benzeri değil bizzat kendisi senin örnekten aldım diğer arkadaşa diyeceğim benim access kod deposunu indirsin onda bu kodlara benzer kodlar var ben senin gönderdiğin kod ile şunu birleştir olur dedim maksadım kendi yapsın öğrensin
Option Compare Database
Public kyt As ADODB.Recordset
Private Sub Komut3_Click()
Dim i As Integer
Dim Dosya, klasor
klasor = CurrentProject.Path
Set kyt = New ADODB.Recordset
DoCmd.SetWarnings False
'Dosyalar adında tablo, dosyaadı adında bir alan olacak
DoCmd.RunSQL "DELETE dosyalar.dosyaadı FROM dosyalar;"
kyt.Open "Dosyalar", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
ChDir (klasor)
Dosya = Dir("*.doc")
i = 0
While Dosya <> ""
kyt.AddNew
kyt.Fields("dosyaadı") = Dosya
kyt.Update
Dosya = Dir
i = i + 1
Wend
kyt.Close
Me.Liste4.Requery
DoCmd.SetWarnings True
End Sub
bu kod access kod deposundan alınma
dosyalar diye bir tablo ve onda dosya adı diye bir alan formda ise liste4 diye liste kutusu Komut3 diye buton tıklayınca veritabanının bulunduğu yerdeki bütün wod dosyalarını tabloya yazar ve aynı zamanda liste kutusunda gösterir eğer formun açı8lışına koyarsa kodu form her açıldığında tablodaki verileri siler ve tekrar bütün word belgelerini tabloya yazar ve listede gösterir listedeki bir kayda tıkladığında açılması olayı ise
modül kısmına yapıştırılacak kod
Option Compare Database
Option Explicit
'
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of Dev Ashish
'
Private Declare Function apiShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long
'***App Window Constants***
Public Const WIN_NORMAL = 1 'Open Normal
Public Const WIN_MAX = 2 'Open Maximized
Public Const WIN_MIN = 3 'Open Minimized
'***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&
'***************Usage Examples***********************
'Open a folder: ?fHandleFile("C:\TEMP\",WIN_NORMAL)
'Call Email app: ?fHandleFile("mailto:dash10@hotmail.com",WIN_NORMAL)
'Open URL: ?fHandleFile("http://home.att.net/~dashish",WIN_NORMAL)
'Handle Unknown extensions (call Open With Dialog):
' ?fHandleFile("C:\TEMP\README",Win_Normal)
'Start Access instance:
' ?fHandleFile("C:\TEMP\CodeNStuff.mdb", Win_NORMAL)
'****************************************************
Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
'First try ShellExecute
lRet = apiShellExecute(hWndAccessApp, vbNullString, _
stFile, vbNullString, vbNullString, lShowHow)
If lRet > ERROR_SUCCESS Then
stRet = vbNullString
lRet = -1
Else
Select Case lRet
Case ERROR_NO_ASSOC:
'Try the OpenWith dialog
varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " _
& stFile, WIN_NORMAL)
lRet = (varTaskID <> 0)
Case ERROR_OUT_OF_MEM:
stRet = "Error: Out of Memory/Resources. Couldn't execute!"
Case ERROR_FILE_NOT_FOUND:
stRet = "Error: File not found. Couldn't Execute!"
Case ERROR_PATH_NOT_FOUND:
stRet = "Error: Path not found. Couldn't Execute!"
Case ERROR_BAD_FORMAT:
stRet = "Error: Bad File Format. Couldn't Execute!"
Case Else:
End Select
End If
fHandleFile = lRet & _
IIf(stRet = "", vbNullString, ", " & stRet)
End Function
Function fShellExeTest()
'Test UNC ShellExecute
fShellExeTest = apiShellExecute(hWndAccessApp, vbNullString, _
"\\server23\home-cd\dashish\ute_ref.txt", _
vbNullString, vbNullString, 1)
End Function
Function fShellExe(strFileName As String, lngShow As Long) As Long
fShellExe = apiShellExecute(hWndAccessApp, vbNullString, strFileName, _
vbNullString, vbNullString, lngShow)
End Function
Sub testShellEXE()
Dim lngX As Long
lngX = fShellExe("http://www.microsoft.com", 1)
End Sub
formdaki liste kutusunun tıklama olayına yapışacak kod
varRet = fHandleFile("liste4.column(0)& ".xls", WIN_NORMAL)
syn atilla52 o kodlar zaten senin kodların benzeri değil bizzat kendisi senin örnekten aldım diğer arkadaşa diyeceğim benim access kod deposunu indirsin onda bu kodlara benzer kodlar var ben senin gönderdiğin kod ile şunu birleştir olur dedim maksadım kendi yapsın öğrensin
Option Compare Database
Public kyt As ADODB.Recordset
Private Sub Komut3_Click()
Dim i As Integer
Dim Dosya, klasor
klasor = CurrentProject.Path
Set kyt = New ADODB.Recordset
DoCmd.SetWarnings False
'Dosyalar adında tablo, dosyaadı adında bir alan olacak
DoCmd.RunSQL "DELETE dosyalar.dosyaadı FROM dosyalar;"
kyt.Open "Dosyalar", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
ChDir (klasor)
Dosya = Dir("*.doc")
i = 0
While Dosya <> ""
kyt.AddNew
kyt.Fields("dosyaadı") = Dosya
kyt.Update
Dosya = Dir
i = i + 1
Wend
kyt.Close
Me.Liste4.Requery
DoCmd.SetWarnings True
End Sub
bu kod access kod deposundan alınma
dosyalar diye bir tablo ve onda dosya adı diye bir alan formda ise liste4 diye liste kutusu Komut3 diye buton tıklayınca veritabanının bulunduğu yerdeki bütün wod dosyalarını tabloya yazar ve aynı zamanda liste kutusunda gösterir eğer formun açı8lışına koyarsa kodu form her açıldığında tablodaki verileri siler ve tekrar bütün word belgelerini tabloya yazar ve listede gösterir listedeki bir kayda tıkladığında açılması olayı ise
modül kısmına yapıştırılacak kod
Option Compare Database
Option Explicit
'
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of Dev Ashish
'
Private Declare Function apiShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) _
As Long
'***App Window Constants***
Public Const WIN_NORMAL = 1 'Open Normal
Public Const WIN_MAX = 2 'Open Maximized
Public Const WIN_MIN = 3 'Open Minimized
'***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&
'***************Usage Examples***********************
'Open a folder: ?fHandleFile("C:\TEMP\",WIN_NORMAL)
'Call Email app: ?fHandleFile("mailto:dash10@hotmail.com",WIN_NORMAL)
'Open URL: ?fHandleFile("http://home.att.net/~dashish",WIN_NORMAL)
'Handle Unknown extensions (call Open With Dialog):
' ?fHandleFile("C:\TEMP\README",Win_Normal)
'Start Access instance:
' ?fHandleFile("C:\TEMP\CodeNStuff.mdb", Win_NORMAL)
'****************************************************
Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
'First try ShellExecute
lRet = apiShellExecute(hWndAccessApp, vbNullString, _
stFile, vbNullString, vbNullString, lShowHow)
If lRet > ERROR_SUCCESS Then
stRet = vbNullString
lRet = -1
Else
Select Case lRet
Case ERROR_NO_ASSOC:
'Try the OpenWith dialog
varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " _
& stFile, WIN_NORMAL)
lRet = (varTaskID <> 0)
Case ERROR_OUT_OF_MEM:
stRet = "Error: Out of Memory/Resources. Couldn't execute!"
Case ERROR_FILE_NOT_FOUND:
stRet = "Error: File not found. Couldn't Execute!"
Case ERROR_PATH_NOT_FOUND:
stRet = "Error: Path not found. Couldn't Execute!"
Case ERROR_BAD_FORMAT:
stRet = "Error: Bad File Format. Couldn't Execute!"
Case Else:
End Select
End If
fHandleFile = lRet & _
IIf(stRet = "", vbNullString, ", " & stRet)
End Function
Function fShellExeTest()
'Test UNC ShellExecute
fShellExeTest = apiShellExecute(hWndAccessApp, vbNullString, _
"\\server23\home-cd\dashish\ute_ref.txt", _
vbNullString, vbNullString, 1)
End Function
Function fShellExe(strFileName As String, lngShow As Long) As Long
fShellExe = apiShellExecute(hWndAccessApp, vbNullString, strFileName, _
vbNullString, vbNullString, lngShow)
End Function
Sub testShellEXE()
Dim lngX As Long
lngX = fShellExe("http://www.microsoft.com", 1)
End Sub
formdaki liste kutusunun tıklama olayına yapışacak kod
varRet = fHandleFile("liste4.column(0)& ".xls", WIN_NORMAL)
Saygıdeğer arkadaşlarım;
Sitemlerinizde haklısınız, sorularımı değiştiriyorum.Nedeni ilk gönderilen örneği inceledim çok sayıda kod var ve çok karışık.Örnekleri basite indirgiye bilmek için soruyu değiştirdim.Öğrenmem babında kod gönderdiniz, teşekkür ederim.Size çok basit gelen işlemler bizim için en azından öğrenene kadar gerçekten çoook zor.Benim gönderdiğim örnekteki kodları excel forumda excel çalışma sayfası için yapılmış bir örnekte buldum biraz değişiklik yapıp yardımcı olmanızı istedim ki kendi örneğimdeki kodlara şekil verebileyim.Kodlardaki hatalarımı söylemediniz sitem ettiniz.Üstadımsınız.Ama bırakın azbi şevkim var oda bende kalsın.Ben bu işi öğreneceğim, şimdiye kadar bu foruma gönderilen neredeyse bütün örnekler bilgisayarımda mevcut.Arkadaşlar eğer bu foruma sadece bilenler gelsin diyorsanız bana müsade.
KENDİNİZE ve UMUTLARINIZA İYİ BAKIN
bu arada kendime yetecek kadar problemimi çözdüm.İlgilenen arkadaşlar için
Option Compare Database
Private Sub a_click()
Dim ds, dc, f, s,
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\KERİM\EVRAK")
Set dc = f.Files
If IsNull(Me.KONU) Or Me.KONU = "" Then
For Each Dosya In dc
Me.KONU = Dosya.Name
Me.Form.Requery
DoCmd.GoToRecord , , acNewRec
Next
DoCmd.Close
DoCmd.OpenForm "bul"
Else
Dim KERİM
KERİM= MsgBox("KAYIT SİLİNSİN Mİ ?", vbYesNo)
If KERİM = 6 Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
End If
End If
End Sub
Sitemlerinizde haklısınız, sorularımı değiştiriyorum.Nedeni ilk gönderilen örneği inceledim çok sayıda kod var ve çok karışık.Örnekleri basite indirgiye bilmek için soruyu değiştirdim.Öğrenmem babında kod gönderdiniz, teşekkür ederim.Size çok basit gelen işlemler bizim için en azından öğrenene kadar gerçekten çoook zor.Benim gönderdiğim örnekteki kodları excel forumda excel çalışma sayfası için yapılmış bir örnekte buldum biraz değişiklik yapıp yardımcı olmanızı istedim ki kendi örneğimdeki kodlara şekil verebileyim.Kodlardaki hatalarımı söylemediniz sitem ettiniz.Üstadımsınız.Ama bırakın azbi şevkim var oda bende kalsın.Ben bu işi öğreneceğim, şimdiye kadar bu foruma gönderilen neredeyse bütün örnekler bilgisayarımda mevcut.Arkadaşlar eğer bu foruma sadece bilenler gelsin diyorsanız bana müsade.
KENDİNİZE ve UMUTLARINIZA İYİ BAKIN
bu arada kendime yetecek kadar problemimi çözdüm.İlgilenen arkadaşlar için
Option Compare Database
Private Sub a_click()
Dim ds, dc, f, s,
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\KERİM\EVRAK")
Set dc = f.Files
If IsNull(Me.KONU) Or Me.KONU = "" Then
For Each Dosya In dc
Me.KONU = Dosya.Name
Me.Form.Requery
DoCmd.GoToRecord , , acNewRec
Next
DoCmd.Close
DoCmd.OpenForm "bul"
Else
Dim KERİM
KERİM= MsgBox("KAYIT SİLİNSİN Mİ ?", vbYesNo)
If KERİM = 6 Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
End If
End If
End Sub
sayın gülsüm1 ben sizin attığınız koda birşey demiyorum doğru tabiki kendisi öğrensin anladım ben soruyu arkadaş değiştirmiş ben örneği attıktan sonra onun için yazdım. iyi çalışmalar
arkadaşım gülsüm1 sizin 2nci sorunuzun cevabını göndermiş yani eğer senin kodların hakikaten olsaydı öyle kısa ve öz bizler önceden bunu çözmüş olurduk ve bukadar uzun kod göndermezdik uzun dediğin kod ise modül olan kısımlar mecburen olmak zorunda olmaz ise olmaz. yani kritere göre dosyaları liste kutusuna aktarman için xls veya doc formatında sayın gülsüm1 in 2. soruna verdiği yanıtı uygula sana başarılar.
-
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.