Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
04/01/2010 20:43
Konu Sahibi
RoxorLoops
Yorumlar
7
Okunma
3377
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

RoxorLoops

Üye
 26
 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.

Kullanici Avatari

accesacemi

Aktivasyon Bekleyen
 28
 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



Kullanici Avatari

RoxorLoops

Üye
 26
 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.

Kullanici Avatari

C*e*l*o*y*c*e

Uzman
ME.... B.....
 46
 3.171
 71
 29/10/2008
982
 Ankara
 Yazılım
 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



Kullanici Avatari

accesacemi

Aktivasyon Bekleyen
 28
 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..



Kullanici Avatari

RoxorLoops

Üye
 26
 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.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formdan Tabloya Kayıt Yaparken,,silerken Makro Yerine Vba Kodları Kullanımı Oğuz Türkyılmaz 12 435 13/10/2018, 11:35
Son Yorum: Oğuz Türkyılmaz
Çözüldü Matematiksel İşlemler Yardım Lütfen cevahir1 7 410 12/04/2018, 12:32
Son Yorum: cevahir1
Çözüldü Personel Avans İzin Takip Ödev Konusu Acill Lütfen ankaram 11 1.119 31/05/2017, 15:22
Son Yorum: atoz112
  Üretim Takip Programı Tablo Girişi Fazla Yardım Lütfen cturkyilmaz 11 1.133 12/01/2017, 18:27
Son Yorum: ozanakkaya
Çözüldü Makro ve İfade Kodları notrino 3 1.905 10/03/2016, 12:40
Son Yorum: notrino

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