Otel Rezervasyon ve ödeme takip proğramı

[kemal turan]

Merhaba,
Değerli üstadlarımızdan öğrendiklerimiz ile ücret karşılığı olmaksızın bir dostuma yaptığım otel rezervasyon ve tahsilat takip proğramını ekte gönderdim.
Öneri yapacak ve faydalanacak arkadaşlar olabilir diye düşündüm.
2010 sürüm ve 32 bit uyumlu listwiew kullanılmıştır.
Selametle

 

[seddur]

Dosyayı açamadım korumalı mı acaba ?

 

[kemal turan]

Hayır, hiçbir şifre ve koruma uygulaması yapılmadı
listview nesnesinden dolayı sürüm uyumsuzluğu olabilir

 

[Korhan Ayhan]

Elinize emeğinize sağlık..

Paylaşımınız için teşekkürler..

 

[zozotr]

Dosyayı indirmek istiyorum. Ama üyeliğim aktifleştirilmedi henüz.

 

[Necdet]

Elinize sağlık, kullanmak isteyenler için hazır program olmuş.

Küçük bir eleştiri :

Girilen verinin doğruluğunu kontrol ettiğinizde veri doğruysa mesaj vermenize gerek yok, kullanıcıyı yorar, sadece hatalı durumda kullanıcıyı uyarınız.
Bir formda tc no yu kontrol ediyorsunuz ama başka bir formda örneğin ödemede kontrol etmiyorsunuz.

tc kontrolünü formun içinde değil bir fonksiyon olarak kullanırsanız hem formdaki kodlar daha kısalır ve anlaşılması kolaylaşır, hem de başka formlarda kullanmanız gerektiğinde sizin için kolay olur.

Tekrar emeğinize sağlık.

 

[zozotr]

Selamlar

Üstadım dosyayı indirdim ama hata veriyor. Ekran görüntüsünü ekliyorum. Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Aşağıdaki çözümü bir deneyiniz.

VBA penceresinde Tools - References menüsünden - [MISSING] ile başlayan kaldırarak deneyiniz.

Eğer çözüm olmazsa sizin sürümünüz (64 Bit) ListView nesnesini desteklemiyor olabilir.

 

[zozotr]

Sayın Korhan AYHAN

Sanırım 64 Bit desteği mevcut değil. İlginiz için teşekkür ederim.

 

[tuncay0629]

MERHABA ÖNCELİKLE ELİNİZE SAĞLIK
REZERVASYON YAPARKEN
Private Sub TextBox5_Change()
TextBox5 = Format(CDate(TextBox5.Value), "dd.mm.yyyy")
VERIAL
End Sub
HATASI VERİYOR
YARDIMCI OLURMUSUNUZ

 

[ÖmerBey]

Merhaba,
CARİLER formu içindeki ilgili kodları aşağıdaki şekilde (kırmızı renkli) değiştirip deneyiniz...

REZERVASYONKAYIT.TextBox2.Value = ListBox1.List(ListBox1.ListIndex, 0)
REZERVASYONKAYIT.TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 1)
REZERVASYONKAYIT.TextBox3.Value = ListBox1.List(ListBox1.ListIndex, 2)
REZERVASYONKAYIT.TextBox4.Value = ListBox1.List(ListBox1.ListIndex, 3)

 

[tuncay0629]

Merhaba,
CARİLER formu içindeki ilgili kodları aşağıdaki şekilde (kırmızı renkli) değiştirip deneyiniz...

REZERVASYONKAYIT.TextBox2.Value = ListBox1.List(ListBox1.ListIndex, 0)
REZERVASYONKAYIT.TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 1)
REZERVASYONKAYIT.TextBox3.Value = ListBox1.List(ListBox1.ListIndex, 2)
REZERVASYONKAYIT.TextBox4.Value = ListBox1.List(ListBox1.ListIndex, 3)

ÇOK TEŞEKKÜR EDİYORUM ALLAH RAZI OLSUN.

 

[elisaparkotel]

MERHABA ÖNCELİKLE ELİNİZE SAĞLIK
REZERVASYON YAPARKEN
Private Sub TextBox5_Change()
TextBox5 = Format(CDate(TextBox5.Value), "dd.mm.yyyy")
VERIAL
End Sub
HATASI VERİYOR
YARDIMCI OLURMUSUNUZ

bahsettiniz kırmızı yerleri değişmeme ragmen düzelmedi kardesim

 

[mehoaga]

Kemal Turan bey;
Elleinize kollarınıza emeklerimize sağlık. Paylaşım için şk ler..
13 nolu mesajdaki hatayı bende alıyorum.

 

[bygantar]

HARİKA ELİNİZE SAĞLIK