Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
02/12/2018 23:38
Konu Sahibi
bibib
Yorumlar
6
Okunma
457
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
bibib

bibib

Aktif Üye
24505
Ah.... Ma.... YA....
 43
 24
 105
 06/09/2010
0
 İstanbul
 Memur
 Ofis 2016 64 Bit
 06/02/2019,00:54
Çözüldü 
Hocalarım arkadaşların başlığı bu şekilde yazdım tam tarifini bilmediğim için sizlerden bir konuda yardım ve fikrinizi almak istiyorum 
Verileri worde gönderdim sıkıntı yok ama şöyle bir sıkıntı oluyor 

Eğer önceden word olarak kaydedilmiş dosya açıksa hata veriyor ben kaydetme den önce bu isimde dosya açıkmı açıksa veya bu isimde dosya varsa windows un yaptığı gibi kaçtane varsa sayıp 
Örneğin
Hesap.doc varsa hesap(1).doc varsa hesap(2).doc ...
Nasıl yapabilirim bu şekilde örneğe nasıl ulaşabilirim 
Araştırdım ama bulamadım (araştırırken nasıl sorarak araştırabilirim)



Değişimde gelişimde beyinlerin değişmesi ve gelişmesi ile olur. By Bibib

halily

halily

Uzman
65596
ha....
 26
 1.272
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,01:38
aşağıdaki kodlar sadece dosya açıksa açık olduğunu söyler
txtdosya adlı metin kutusu dosya adı ve yolunu eklediğim alan
eğer dosyamız D:\Desktop\AccessDeneme\64bitçalıştırma.doc isemetin kutusuna D:\Desktop\AccessDeneme\64bitçalıştırma.doc yazıyorum
önce aşağıdaki fonksiyonu tanımlıyoruz

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function FileLocked(strFileName As String) As Boolean
On Error Resume Next

' If the file is already opened by another process,
' and the specified type of access is not allowed,
' the Open operation fails and an error occurs.
Open strFileName For Binary Access Read Lock Read As #1
Close #1

' If an error occurs, the document is currently open.
If Err.Number <> 0 Then
    FileLocked = True
    Err.Clear
End If
End Function

 daha sonrada buton olayına aşağıdaki kodu yazıyoruz

Visual Basic Code
1
2
3
4
5
6
7
Private Sub btnDosyaAcikmi_Click()
If Not FileLocked(Me.txtdosya) Then
MsgBox (Me.txtdosya & "dosyas kapal?")
Else
MsgBox (Me.txtdosya & "dosyası açık")
End If
End Sub

 yalnız önemli bir noktayı belirteyim; bu kodlar word Excel yada Access gibi  açtığı dosyaları kilitleyen programlarda çalışır
mesela bir word belgesi eğer wordpad ile açılmışsa kodlar o dosya kapalı der
dilerim işinize yarar



...........
halily

halily

Uzman
65596
ha....
 26
 1.272
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,01:38
konunuzuz adı "Dosya açık mı kontrolü" olarak değiştirilmiştir



bibib

bibib

Aktif Üye
24505
Ah.... Ma.... YA....
 43
 24
 105
 06/09/2010
0
 İstanbul
 Memur
 Ofis 2016 64 Bit
 06/02/2019,00:54
Teşekkürler hocam deneyip bilgilendireceğim bu kod sadece bu dosyanın açık olup olmadığını kontrol etmek için değilmi 
Şunu yaptırabiliyormuyuz
Windows bir şey kopyalarken aynı dosya ismi olanların sonuna (1) (2)... Gibi kaçtane ise ismi değiştirmeden sıralı rakamlar ekliyor böyle bir vb komut varmı nasıl bulabilirim



Değişimde gelişimde beyinlerin değişmesi ve gelişmesi ile olur. By Bibib

...........
halily

halily

Uzman
65596
ha....
 26
 1.272
 30/07/2014
215
 -
 
 Ofis 2019 64 Bit
 Bugün,01:38
Bu kod sadece word dosyasi WORD programi tarafindan acilmissa calişir
Buyuk ihtimalle vardir ama ben bilmiyorum



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.116
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,20:59
Merhaba, ekli uygulamadaki kodlama hesap.docx isimli dosya için yazılmıştır. Siz oluşturacağınız yeni word belgesinin ismine göre kodlamayı değiştirmelisiniz. Formdaki butonu tıkladığınızda hesap.docx var ise filecopy kodu ile hesap(1).docx adında belge oluşturur, siz bu kısma yeni belge oluşturma kodunuzu ekleyeceksiniz. hesap(1).docx daha önceden oluşturulmuş ise hesap(2).docx oluşturulur.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formda Metin Kutusu İçerik Kontrolü hbal09 4 111 10/07/2019, 16:20
Son Yorum: halily
Çözüldü Network Veya Odbc Bağlantı Kontrolu Yapıldıktan Sonra Form Açılsın. cozum 3 359 01/07/2019, 17:23
Son Yorum: cozum
Çözüldü Klasördeki Dosya İsimlerini Almak ates2014 17 650 27/04/2019, 21:14
Son Yorum: ates2014
Çözüldü Access'te Otomatik Sayı Kontrolü dgnlrmehmet 3 217 26/04/2019, 12:17
Son Yorum: dgnlrmehmet
Çözüldü İnternet Adresinden Stok Ve Fiyat Kontrolü Yapma kokotuna 2 273 11/02/2019, 20:00
Son Yorum: kokotuna

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.