Bu Kodları açıklayabilirmisiniz Lütfen.
Tarih
04/01/2010 20:43
Konu Sahibi
RoxorLoops
Yorumlar
7
Okunma
2475
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



RoxorLoops
Üye
Kullanici Avatari
Üye
10
3
02/01/2010
0
Antalya
Ofis 2003
22/05/2010,03:02
Çözüldü 
Şimdiden Teşekkürler Ufak Bir Açıklama yeter

Option Compare Database

Private Sub Form_Activate()
Seans = Null
Seans_AfterUpdate
Koltuk = Null
Tarife = Null
Ucret = Null
BiletNo = Null
Aciklama = Null
Seans.SetFocus
Seans.Requery
Koltuk.Requery
Tarife.Requery
End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.SelectObject acForm, "Bilet", True
DoCmd.Minimize

Resim16.Picture = Empty
End Sub

Private Sub Koltuk_DblClick(Cancel As Integer)
DoCmd.OpenForm "Koltuklar"
End Sub

Private Sub Seans_AfterUpdate()
TarihSaat = Format(DLookup("Tarih", "Seanslar", "SeansNO=Seans"), "dd mmmm yyyy")
Saat = Format(DLookup("Saat", "Seanslar", "SeansNO=Seans"), "hh:nn")
FilmAdı = Dlookup ("TRAdı", "Seanslar", "SeansNO=Seans")
SalonNoAd = Dlookup ("SalonNO", "Seanslar", "SeansNO=Seans") & " - " & Dlookup ("SalonAdı", "Seanslar", "SeansNO=Seans")
Koltuk_Etiket.Caption = "Koltuk * (" & Dlookup ("SaySrNO", "KoltukBosToplam") & "boş)"
On Error GoTo Hata
Dim PaTaTes
PaTaTes = CurrentProject.Path & "\Afis\" & FilmAdı & ".jpg"
If IsNull(Seans) Then
Resim16.Picture = Empty
Else
Resim16.Picture = PaTaTes
End If
Tarife = IIf(IsNull(Tarife), Dlookup ("VarsayilanTarife", "Seans", "SeansNO=Seans "), Tarife)
Ucret = IIf(IsNull(Ucret) Or Ucret = 0, Dlookup ("VarsayilanFiyat", "Seans", "SeansNO=Seans "), Ucret)

Koltuk.Requery
Koltuk.SetFocus
Cikis:
Exit Sub
Hata:
Resim16.Picture = Empty
Resume Cikis

End Sub
Private Sub Komut24_Click()
'On Error GoTo Err_Komut24_Click
If IsNull(Seans) Then
MsgBox "Lütfen Seans 'ı belirtiniz.", , Baslik
Seans.SetFocus
Else
If IsNull(Koltuk) Then
MsgBox "Lütfen Koltuk 'u belirtiniz.", , Baslik
Koltuk.SetFocus
Else
If IsNull(Tarife) Then
MsgBox "Lütfen Tarife 'yi belirtiniz.", , Baslik
Tarife.SetFocus
Else
If IsNull(Ucret) Then
MsgBox "Lütfen Tarife 'yi belirtiniz.", , Baslik
Ucret.SetFocus
Else
DoCmd.RunSQL "INSERT INTO Bilet (Seans,Koltuk,Tarife,Ucret,BiletNO,Aciklama) " & _
"SELECT Seans,Koltuk,Tarife,Ucret,BiletNO,Aciklama"
DoCmd.OpenReport "BiletRapor", acViewPreview
Seans = Null
Seans_AfterUpdate
Koltuk = Null
Tarife = Null
Ucret = Null
BiletNo = Null
Aciklama = Null
Seans.SetFocus
End If
End If
End If
End If

Exit_Komut24_Click:
Exit Sub

Err_Komut24_Click:
MsgBox Err.Description
Resume Exit_Komut24_Click

End Sub

Private Sub Seans_DblClick(Cancel As Integer)
' DoCmd.Close
DoCmd.OpenForm "Seanslar"
End Sub

Private Sub Tarife_AfterUpdate()
Ucret = Dlookup ("Ucret", "FiyatListesi", "FiyatNO=Forms!Bilet!Tarife")
End Sub

Private Sub Tarife_DblClick(Cancel As Integer)
DoCmd.OpenForm "Fiyatlar"
End Sub

Private Sub Ucret_DblClick(Cancel As Integer)
DoCmd.OpenForm "Fiyatlar"
End Sub
Private Sub Komut25_Click()
On Error GoTo Err_Komut25_Click

Dim stDocName As String
Dim stLinkCriteria As String

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

Exit_Komut25_Click:
Exit Sub

Err_Komut25_Click:
MsgBox Err.Description
Resume Exit_Komut25_Click

End Sub
Private Sub Komut26_Click()
On Error GoTo Err_Komut26_Click

Dim stDocName As String
Dim stLinkCriteria As String

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

Exit_Komut26_Click:
Exit Sub

Err_Komut26_Click:
MsgBox Err.Description
Resume Exit_Komut26_Click

End Sub
Private Sub Komut27_Click()
On Error GoTo Err_Komut27_Click

Dim stDocName As String
Dim stLinkCriteria As String

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

Exit_Komut27_Click:
Exit Sub

Err_Komut27_Click:
MsgBox Err.Description
Resume Exit_Komut27_Click

End Sub
Private Sub Komut28_Click()
On Error GoTo Err_Komut28_Click

Dim stDocName As String
Dim stLinkCriteria As String

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

Exit_Komut28_Click:
Exit Sub

Err_Komut28_Click:
MsgBox Err.Description
Resume Exit_Komut28_Click

End Sub
Private Sub Komut29_Click()
On Error GoTo Err_Komut29_Click


DoCmd.Quit

Exit_Komut29_Click:
Exit Sub

Err_Komut29_Click:
MsgBox Err.Description
Resume Exit_Komut29_Click

End Sub
Private Sub Komut30_Click()
On Error GoTo Err_Komut30_Click

Dim stDocName As String
Dim stLinkCriteria As String

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

Exit_Komut30_Click:
Exit Sub

Err_Komut30_Click:
MsgBox Err.Description
Resume Exit_Komut30_Click

End Sub
RoxorLoops, 02-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


accesacemi
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
48
5
29/12/2009
Mardin
Ofis 2003
04/03/2010,11:17
Çözüldü 
bu kodlar formun genel kodları anlaşılan bir cinema bilet kesme programı yanlışmıyım
Cevapla


RoxorLoops
Üye
Kullanici Avatari
Üye
10
3
02/01/2010
0
Antalya
Ofis 2003
22/05/2010,03:02
Çözüldü 
evet kısa bir açıklaması lazım o kadar uzun bir şeye gerek yok
RoxorLoops, 02-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Çözüldü 
sayın roxorloops
bu kodların hangi birini açıklayalımki,sıkıntın varsa söyle yardımcı olalım,her bir kod kendine göre bir iş yapıyor
mesala:
Private Sub Seans_DblClick(Cancel As Integer)
' DoCmd.Close
DoCmd.OpenForm "Seanslar"
End Sub
bu kodlar ne diyor,.......seansa çift tıkladığında kapan ve Seanslar isimli formu aç diyor.......gibi sorununuz varsa örneğiniz ile birilkte açıklamalı bir şekilde sorununuzu anlatınız,aksi durumda bu şekilde sorunuz anlamsız oluyor .. kolay gelsin
Cevapla


accesacemi
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
48
5
29/12/2009
Mardin
Ofis 2003
04/03/2010,11:17
Çözüldü 
nasıl bir açıklama istiyorsun ne olduğumu neişe yaradıklarımı niçin programda olduğumu bir şey söylememişsin ki açıkla diyorsun msla pro"da ne işe yarıyor desen 100lerce cevap bulursun..
Cevapla


RoxorLoops
Üye
Kullanici Avatari
Üye
10
3
02/01/2010
0
Antalya
Ofis 2003
22/05/2010,03:02
Çözüldü 
Sayın yetkili arkadaşlar öncelikle teşekkürler.Açıklamadan kastım şudur örneğin dblclickin işlevi çift tıklandığında gibi.Requerynin açıklaması nedir mesela bunu gibi şeyler.Cok bir iki acıklama yeter.Tekrar teşekkürler
RoxorLoops, 02-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Makro ve İfade Kodları notrino 3 426 10/03/2016, 12:40 notrino
Çözüldü Hata Lütfen Acil yardım tsotsi01 3 640 28/06/2014, 13:49 alpeki99
Çözüldü Hakediş veritabanı hazırlıyorum yardıma ihtiyacım var.. lütfen yardıııımmmm... revolution87 1 1.263 13/03/2014, 11:52 revolution87
Çözüldü Liste sorunu. Acil Yardım Lütfen eyupakdas 5 1.156 26/02/2014, 19:01 eyupakdas
Çözüldü Lütfen Yardım Sql satırımda hata hanedantr 2 878 04/02/2014, 23:18 ozanakkaya


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya