AccessTr.neT

Sn Hocam ben VB nin v sini bilmiyorum. Daha yeni vb6 kurdum vb görsel eğitim cd sini izliyorum. Hocam siz daha iyi biliyorsunuz Access te yaptığımız bazı olay yordamlarını otomatic olarak kod yazdığımız sayfaya kendisi yazıyor. Size kodları gönderiyorum bunları ben mi yaptım diyorum. Hiç alakası yok ben masumum. Saygılar...

Option Compare Database

Private Sub FİRMALAR_Click()
On Error GoTo Err_FİRMALAR_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(70) & ChrW(304) & ChrW(82) & ChrW(77) & ChrW(65) & ChrW(76) & ChrW(65) & ChrW(82)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_FİRMALAR_Click:
Exit Sub

Err_FİRMALAR_Click:
MsgBox Err.Description
Resume Exit_FİRMALAR_Click

End Sub
Private Sub OPERASYONLAR_Click()
On Error GoTo Err_OPERASYONLAR_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "OPERASYONLAR"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_OPERASYONLAR_Click:
Exit Sub

Err_OPERASYONLAR_Click:
MsgBox Err.Description
Resume Exit_OPERASYONLAR_Click

End Sub

Private Sub Form_Load()

End Sub

Private Sub PARÇALAR_Click()
On Error GoTo Err_PARÇALAR_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PARÇALAR"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_PARÇALAR_Click:
Exit Sub

Err_PARÇALAR_Click:
MsgBox Err.Description
Resume Exit_PARÇALAR_Click

End Sub
Private Sub OPFORMU_Click()
On Error GoTo Err_OPFORMU_Click

Dim stDocName As String

stDocName = ChrW(79) & ChrW(112) & ChrW(101) & ChrW(114) & ChrW(97) & ChrW(115) & ChrW(121) & ChrW(111) & ChrW(110) & ChrW(32) & ChrW(83) & ChrW(97) & ChrW(121) & ChrW(102) & ChrW(97) & ChrW(115) & ChrW(305)
DoCmd.OpenReport stDocName, acPreview

Exit_OPFORMU_Click:
Exit Sub

Err_OPFORMU_Click:
MsgBox Err.Description
Resume Exit_OPFORMU_Click

End Sub
Private Sub İZLEME_Click()
On Error GoTo Err_İZLEME_Click

Dim stDocName As String

stDocName = ChrW(80) & ChrW(97) & ChrW(114) & ChrW(231) & ChrW(97) & ChrW(32) & ChrW(304) & ChrW(122) & ChrW(108) & ChrW(101) & ChrW(109) & ChrW(101) & ChrW(32) & ChrW(70) & ChrW(111) & ChrW(114) & ChrW(109) & ChrW(117)
DoCmd.OpenReport stDocName, acPreview

Exit_İZLEME_Click:
Exit Sub

Err_İZLEME_Click:
MsgBox Err.Description
Resume Exit_İZLEME_Click

End Sub
Private Sub OPSIRAFORMU_Click()
On Error GoTo Err_OPSIRAFORMU_Click

Dim stDocName As String

stDocName = ChrW(79) & ChrW(112) & ChrW(101) & ChrW(114) & ChrW(97) & ChrW(115) & ChrW(121) & ChrW(111) & ChrW(110) & ChrW(32) & ChrW(83) & ChrW(305) & ChrW(114) & ChrW(97) & ChrW(32) & ChrW(70) & ChrW(111) & ChrW(114) & ChrW(109) & ChrW(117)
DoCmd.OpenReport stDocName, acPreview

Exit_OPSIRAFORMU_Click:
Exit Sub

Err_OPSIRAFORMU_Click:
MsgBox Err.Description
Resume Exit_OPSIRAFORMU_Click

End Sub
Private Sub LİSTE_Click()
On Error GoTo Err_LİSTE_Click

Dim stDocName As String

stDocName = ChrW(76) & ChrW(304) & ChrW(83) & ChrW(84) & ChrW(69)
DoCmd.OpenReport stDocName, acPreview

Exit_LİSTE_Click:
Exit Sub

Err_LİSTE_Click:
MsgBox Err.Description
Resume Exit_LİSTE_Click

End Sub
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


Private Sub BÖLÜM_Click()
On Error GoTo Err_BÖLÜM_Click

Dim stDocName As String

stDocName = ChrW(66) & ChrW(246) & ChrW(108) & ChrW(252) & ChrW(109) & ChrW(32) & ChrW(80) & ChrW(97) & ChrW(114) & ChrW(231) & ChrW(97) & ChrW(32) & ChrW(304) & ChrW(122) & ChrW(108) & ChrW(101) & ChrW(109) & ChrW(101)
DoCmd.OpenReport stDocName, acPreview

Exit_BÖLÜM_Click:
Exit Sub

Err_BÖLÜM_Click:
MsgBox Err.Description
Resume Exit_BÖLÜM_Click

End Sub
Private Sub BÖLÜMLERE_GÖRE_Click()
On Error GoTo Err_BÖLÜMLERE_GÖRE_Click

Dim stDocName As String

stDocName = ChrW(66) & ChrW(246) & ChrW(108) & ChrW(252) & ChrW(109) & ChrW(32) & ChrW(80) & ChrW(97) & ChrW(114) & ChrW(231) & ChrW(97) & ChrW(32) & ChrW(304) & ChrW(122) & ChrW(108) & ChrW(101) & ChrW(109) & ChrW(101)
DoCmd.OpenReport stDocName, acPreview

Exit_BÖLÜMLERE_GÖRE_Click:
Exit Sub

Err_BÖLÜMLERE_GÖRE_Click:
MsgBox Err.Description
Resume Exit_BÖLÜMLERE_GÖRE_Click

End Sub
Private Sub Komut21_Click()
On Error GoTo Err_Komut21_Click

Dim stDocName As String

stDocName = ChrW(66) & ChrW(214) & ChrW(76) & ChrW(220) & ChrW(77) & ChrW(69) & ChrW(32) & ChrW(71) & ChrW(214) & ChrW(82) & ChrW(69) & ChrW(32) & ChrW(304) & ChrW(90) & ChrW(76) & ChrW(69) & ChrW(77) & ChrW(69)
DoCmd.OpenReport stDocName, acPreview

Exit_Komut21_Click:
Exit Sub

Err_Komut21_Click:
MsgBox Err.Description
Resume Exit_Komut21_Click

End Sub
Private Sub KALİTE_Click()
On Error GoTo Err_KALİTE_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(75) & ChrW(65) & ChrW(76) & ChrW(304) & ChrW(84) & ChrW(69) & ChrW(32) & ChrW(80) & ChrW(76) & ChrW(65) & ChrW(78) & ChrW(73) & ChrW(32) & ChrW(71) & ChrW(304) & ChrW(82) & ChrW(304) & ChrW(350) & ChrW(304)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_KALİTE_Click:
Exit Sub

Err_KALİTE_Click:
MsgBox Err.Description
Resume Exit_KALİTE_Click

End Sub
Private Sub İŞEMRİ_Click()
On Error GoTo Err_İŞEMRİ_Click

Dim stDocName As String

stDocName = ChrW(80) & ChrW(97) & ChrW(114) & ChrW(231) & ChrW(97) & ChrW(32) & ChrW(304) & ChrW(122) & ChrW(108) & ChrW(101) & ChrW(109) & ChrW(101) & ChrW(32) & ChrW(70) & ChrW(111) & ChrW(114) & ChrW(109) & ChrW(117) & ChrW(32) & ChrW(49)
DoCmd.OpenReport stDocName, acPreview

Exit_İŞEMRİ_Click:
Exit Sub

Err_İŞEMRİ_Click:
MsgBox Err.Description
Resume Exit_İŞEMRİ_Click

End Sub
Private Sub İŞEMİRLERİ_Click()
On Error GoTo Err_İŞEMİRLERİ_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = ChrW(80) & ChrW(65) & ChrW(82) & ChrW(199) & ChrW(65) & ChrW(32) & ChrW(304) & ChrW(350) & ChrW(32) & ChrW(69) & ChrW(77) & ChrW(304) & ChrW(82) & ChrW(76) & ChrW(69) & ChrW(82) & ChrW(304)
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_İŞEMİRLERİ_Click:
Exit Sub

Err_İŞEMİRLERİ_Click:
MsgBox Err.Description
Resume Exit_İŞEMİRLERİ_Click

End Sub

Bu hata kodlara bakılarak çözülecek birşey değil. Bence örneğinizi ekleseniz. Hata yapan örneğe bakalım. Diğer uygulamalarda çalışan kodlar burda çalışmıyorsa, verilerle alakalı bir durum olabilir. İçinde bir miktar sahte veri olsun ve deneyip hata aldığınıza emin olup yollarsanız daha iyi olur.

Sn Mehmet Hocam örneği eklemek için verisiz örneğini al diyerek yaptım. Hata vermedi.
Bunun üzerine veri tabanını başka bir veritabanına al diyerek taşıdım. Hata verdi.
Örnek eklemek için verilerin çoğunluğunu sildim.Hata vermedi. Program boyutu ile alakalı sanırım. 555.000 kb
Saygılar...

İşte.. Verilerin boyutu sanırım çok olduğu için string değer taşması yaşanıyor. Veri bakım onarım yapın öncelikle. 555 Mb büyük bir değer. Resim vs. nesneler mi depolanıyor? Ya da uzun zamandır veri bakım ve onarım işlemi yapmadınız mı?. Önerim, yedek alınmadan önce veri onarım kodları çalıştırmanız. Bu konuyla ilgili sevgili sledgeab'ın güzel bir çalışması vardı formda. Onu kullanın.

Bir de şu uyarıyı yapayım size. Önce şu kodlardan ne anladığınız söyleyin ama:

Sn Mehmet Hocam öncelikle ilginizden dolayı teşekkür ederim. Programda teknik resimler var bmp uzantılı. Autocad çizilen resimleri paint e kopyalayıp ole nesnesine yapıştırıyorum. Bu nedenle program boyutu gittikçe büyüyor. Bu siteyle tanışmadan önce yapılmış programlarımda bir çok hata var. Çoğu şeyi dolaşarak yaptığım için böyle oluyor.
O kodları ben yazmadım. Ama yaptığım makro veya buton işleminden oluştuğunu sanıyorum. Açıkcası bunların ne olduğunu bilmiyorum. Öğrenmek için buradayım. Saygılar...