Bu Kodları açıklayabilirmisiniz Lütfen.
Tarih
04/01/2010 20:43
Konu Sahibi
RoxorLoops
Yorumlar
7
Okunma
2537
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ü 
Sponsor Reklam
Ş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ü 
Sponsor Reklam
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.838
29/10/2008
902
Ankara
Ofis 2010 32 Bit
Bugün,14:15
Çö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ü 
Sponsor Reklam
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 483 10/03/2016, 12:40 notrino
Çözüldü Hata Lütfen Acil yardım tsotsi01 3 675 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.306 13/03/2014, 11:52 revolution87
Çözüldü Liste sorunu. Acil Yardım Lütfen eyupakdas 5 1.175 26/02/2014, 19:01 eyupakdas
Çözüldü Lütfen Yardım Sql satırımda hata hanedantr 2 909 04/02/2014, 23:18 ozanakkaya


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