Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
28/08/2009 10:48
Konu Sahibi
benremix
Yorumlar
19
Okunma
6932
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

benremix

Onursal Üye
RA.... SO....
 51
 4.443
 127
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 Dün,21:47
Çözüldü 
Sn arkadaşlar merhaba; Bu forumdan indirdiğim yedekleme programı ile çıkışta başka bir klasöre üzerine yedekleme yaptırıyorum. İki programda gayet güzel çalışıyor. Bir programda out of string space hatası verdi ve yedekleme yapmadı. Ne yapmam lazım ? Program büyük olduğu için eklemedim. Saygılar...


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi



Kullanici Avatari

mehmetdemiral

Uzman
ME.... DE....
 53
 4.915
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 13/11/2018,20:45
Çözüldü 
Bu mesajın anlamı "String alanı yetersiz" şeklinde açıklanır. Yedek alınacak dosya adlarına, kodlarda kullanılan komut ve fonksionlara tekrar bakın. Yetersiz string ifadesinden neyi kastettiğini bilmiyorum ama, belki bu bilgi işinize yarar.


İnadına, ille de Accesstr.net...

Kullanici Avatari

benremix

Onursal Üye
RA.... SO....
 51
 4.443
 127
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 Dün,21:47
Çözüldü 
Kod aşağıdaki şekildedir. Buna bir bakabilirmisiniz? Saygılar.

Private Sub kapat_Click()
If MsgBox("PARCA_OPERASYONLARI programından çıkmak istediğinize eminmisiniz.", vbCritical + vbOKCancel) = vbOK Then

On Error Resume Next
Dim CurDB As String, KopiaDB As String, LenDB As Long, Plik As String, NrPliku As Long
DoCmd.Hourglass -1
CurDB = CurrentDb.Name
Err = 0
Plik = Space(FileLen(CurDB))
NrPliku = FreeFile
Open CurDB For Binary Access Read Shared As #NrPliku
Get #NrPliku, 1, Plik
Close #NrPliku
If Err = 52 Then
MsgBox "Kopyalanamadı. " & CurDB & "Kopyalama işlemi başarısız.", 48, "Kopyalanıyor."
ElseIf Err Then
MsgBox Err.Description
Else
KopiaDB = "D:USERS\SERVER\YONETIM\Access Yedekleri\PARCA_OPERASYONLARI.mdb"
If KopiaDB & "" <> "" Then
Kill KopiaDB
Err = 0
NrPliku = FreeFile
Open KopiaDB For Binary Access Write Shared As #NrPliku
Put #NrPliku, 1, Plik
Close #NrPliku
If Err = 0 Then
Else
MsgBox Err.Description
End If
End If
End If
DoCmd.Hourglass 0
DoCmd.Quit

Else
Me.Undo
MsgBox "Programdan çıkmadınız."
End If
End Sub


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi



Kullanici Avatari

mehmetdemiral

Uzman
ME.... DE....
 53
 4.915
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 13/11/2018,20:45
Çözüldü 
Şu kısmı bir de şöyle deneyin

Kod:
Dim CurDB As String, KopiaDB As String, LenDB As Long, Plik As String, NrPliku As Long


şeklindeki kısmı silerek

Kod:
Dim CurDB, KopiaDB, Plik
dim LenDB, NrPliku as Long


olarak deneyin. Bende modülde işe yaramıştı. String olarak açılması gereken değişkenleri bazen ben statü olmadan açtığımda hata almadan çalıştığını gördüm. Özellikle

Kod:
dim deneme as string


yerine

Kod:
dim deneme


şeklinde açtığımda hata ortadan kalkmıştı. Siz de bir deneyin bakalım. Denemekten zarar gelmez.Img-grin)


İnadına, ille de Accesstr.net...

Kullanici Avatari

benremix

Onursal Üye
RA.... SO....
 51
 4.443
 127
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 Dün,21:47
Çözüldü 
Sn Mehmet Hocam dediğinizi uyguladım. Bu kez de Variable uses an automation type not supported in visual basic diye hata verdi. Acaba diğer kodları da eklesem buraya eklesem bakabilirmiyiz? Saygılar...


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi



Kullanici Avatari

mehmetdemiral

Uzman
ME.... DE....
 53
 4.915
 213
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 13/11/2018,20:45
Çözüldü 
Yaw sen bu işi accesste yaptığına emin misin?Img-grin)) Bana VB gibi geldi..


İnadına, ille de Accesstr.net...


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Compile error in hidden module hatası çözümü nedir? mehami 5 3.030 Dün, 10:20
Son Yorum: ozanakkaya
Çözüldü Formu Bulmama Hatası notrino 1 51 12/12/2018, 13:57
Son Yorum: notrino
Çözüldü MSXML2.DOMDocument kodunda User-defined type not defined hatası access acemisi 2 71 05/12/2018, 13:54
Son Yorum: access acemisi
Çözüldü Formda Kayıt Yapıldığında Yinelenen Değerler Hatası Alıyorum Oğuz Türkyılmaz 2 64 05/12/2018, 00:52
Son Yorum: Oğuz Türkyılmaz
Çözüldü "Method 'FileDialog' of object '_Application' failed" hatası access acemisi 5 112 27/11/2018, 14:53
Son Yorum: access acemisi

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