film kiralamada fikir..

[halise]

ya cidden yardıma ihtiyacım var, son günüm bi baksanız?

 

[Taruz]

Merhaba..

Bu gece ben nöbetçi olduğum için dosyanızla da ben ilgilendim..

Açıklamalı yapardık ama vakit geç oldu..

Sınavınızda başarılar dilerim..

 

[halise]

sn taruz teşekkür ediorum önceliklee..
Ama kazancım da ekteki hatayı veriyor önce, sonra hatayı okeyleyince çalışıyor anlamadım neden.
Ve Imdb sorgusu calışmıyor hala.
Birde son bi soru oyuncu alt formu eklesem kayıtta olmaz mı? Bir filmde birden cok oyuncu oynaması durumuna cözüm bulamıorum bitürlü?

 

[halise]

sn taruz, gecen günki yardımınız için tekrardan teşekkür ediyorum. (açılır kutular ile oyuncu, tür isimlerinin görünmesi) Yaptığınız düzeltme satır kaynağında yazdığınız sorgu değil mi? yoksa başka bişiler daha var mı benim farkedemediğim??

 

[Taruz]

sn taruz, gecen günki yardımınız için tekrardan teşekkür ediyorum. (açılır kutular ile oyuncu, tür isimlerinin görünmesi) Yaptığınız düzeltme satır kaynağında yazdığınız sorgu değil mi? yoksa başka bişiler daha var mı benim farkedemediğim??

Merhaba..

Evet sorgudan ibaret.. Sorguyu açın ilişkilendirmeyi göreceksiniz. Sıkıntı buydu..

Tabii birde sütun sayısı 2 ye çıktığı için açılır kutu üzerinde de biçim değişikliğine gittik..

 

[halise]

merhabalar.. evet açılır kutudaki düzenlemeyi de farkettim, zaman gectikce daha iyi anlıyorum sanki yaptığım şeyi..

Ama yeni bir sıkıntım var. Şimdi ben istiyorum ki; " eger bir müşteride film varsa, o müşteriye yeniden kiralama yaparken, msg kutusu gelsin ve olmazzz o müşteri önce filmi getirsin bakalım" desin .. Bunu yapmam için nerden başmalıyım? Sorguya mı ihtiyacım var koda mı, bilemedim???? :???:

 

[modalı]

Sayın halise,

Aşağıdaki kodu kiralama formuna kopyalayıp yapıştırın.

Private Sub müsterino_BeforeUpdate(Cancel As Integer)
Dim rs As New ADODB.Recordset
    
    strSelect = "SELECT TKiralama.müsterino, TKiralama.geri_geldi"
    strFrom = " FROM TKiralama"
    strWhere = " WHERE TKiralama.müsterino=" & Me.müsterino & " AND TKiralama.geri_geldi=0"
    strSQL = strSelect & strFrom & strWhere
rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
If rs.RecordCount > 0 Then
    MsgBox "olmazzz o müşteri önce filmi getirsin bakalım"
End If

End Sub

İyi çalışmalar

 

[halise]

olduuuuuu :icelim:
Sn modalı cok teşekkür ederim, siz böyle her istediğimin yapılabilineceğini gösterdikçe, access e olan ilgim daha da artıo, bende kod yazmalıyım diorum

Ama bana "Dim rs As New ADODB.Recordset" burada rs'yi yeni bir ne olarak tanımlamış olduk,işlevi ne anlayamadım? basicde görmüştük ama ezber gibi baktığımdan hiç aklımda kalmamış

 

[modalı]

Sayın halise,

Eğer veritabanı uygulamalarına devam edecekseniz çok karşınıza çıkacak.

ADO da ne' diyenler için ADO'nun farklı uygulama geliştirme araçları tarafından ortak kullanılabilen bir veritabanı modülü olduğunu söyleyebilirim. Yaygın sistemlerin hemen hepsi diğer ortak modülleri kullanabildikleri gibi ADO'yu da kullanabilirler. ADO bize bir yerdeki veritabanına ulaşabilmemiz için kolaylıklar sağlıyor ve bizi bir yığın işten kurtarıyor. DAO' nun da (Data Access Objects) hakkını yemeyelim. ADO kadar yetenekli olmasa da veri işlemleri daha önce onunla yapılıyordu.
ADO'nun en büyük yeteneklerinden biri Internet veya yerel ağ ortamında bile SQL Server sunucusuna kolaylıkla bağlanabilmesi. Aynı makine üzerindeymiş gibi SQL Server'a istediğiniz birçok şeyi yaptırabiliyorsunuz.

Burada rs yi yeni bir ADO kayıt kümesi olarak atıyoruz.

rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly

burada da kayıt kümesini geçerli veritabanında daha yukarıda yazmış olduğumuz SQL cümlesini çalıştırıyoruz.

 

[halise]

arkadaşlar forumda arattım ama bulamadım, açılır kutuya eğer içindeki değerden farklı bir değer girilecekse, o değeri (hangi tablo ile ilişkili ise) yazarak tabloya kaydetme gibi bir özelliği var mı?

 

[halise]

?

arkadaşlar 2tane problemim var, bi bakabilir misiniz:

1)filmkaydı formundaki açılır kutuya kendim hem açılır kutuya bakıp hemde yoksa kendim değer girebilmek istiyorum
2)Fmüşteri formumdaki müsteribul2 butonundaki kodu çalıştıramıyorum.

Hatam nerde yardımcı olursanız sevinirim.

 

[halise]

dosyayı unutmuşum yine

 

[Taruz]

Merhaba..

Başka tabloya bağlı ilişkili alanlarda bu zor..

Çalışmanızdaki açılan kutuların veri / listeye sınır bölümüne baktığınızda "Evet" olarak belirlendiğini görürsünüz. Bunu "Hayır" a çevirmek istediğinizde çıkan uyarı mesajında da bu durum belirtilmiştir.

Kayıtta kolaylık olması için, "hem filmi kaydedeyim, bu arada film daha önce girilmemiş bir (mesela) türde ise, film kaydının dışına çıkmadan yeni bir tür girişide yapayım" diyorsanız,

Buyurun size havalı(!) bir öneri..


Son eklediğim örnek üzerinde yazıyorum..

filmkaydi formunu tasarımda açın. Tür açılır kutusunun olay / listede yokken olay yordamına

Private Sub türno_NotInList(NewData As String, Response As Integer)
MsgBox "Yanlış, eksik ya da listede var olmayan veri girdiniz. Listeye yeni bir TÜR eklemek için bu alanı çift tıklatın."
    Response = acDataErrContinue
End Sub

yazın..

Çift tıklandığında olay yordamına ise

Private Sub türno_DblClick(Cancel As Integer)
    Dim lngCategoryID As Long
    If IsNull(Me![türno]) Then
        Me![türno].Text = ""
    Else
        lngCategory = Me![türno]
        Me![türno] = Null
    End If
    DoCmd.OpenForm "türformu", , , , , acDialog, "GotoNew"
    Me![türno].Requery
    If lngCategoryID <> 0 Then Me![türno] = lngCategoryID
    Exit Sub
 
End Sub

yazın, tamamdır..

Şimdi TÜR açılan kutusunda olmayan bir veri girerek kayıt denemesi yapın..

Kodları diğer ilişkilendirilmiş açılan kutulara da uyarlayabilirsiniz..

 

[halise]

sn taruz çok teşşekkürler, yaptım bayaa da güzel oldu saolunnn

 

[halise]

sn taruz sizin söylediğinizi yaptım ama oyuncu tablosuna ekleme yapılamıyor. Sadece sizin en son düzelttiğinizdeki 2oyuncu ismi duruyor açılır kutuda. Nasıl düzeltmem gerek acaba?

 

[beab05]

Merhaba;
Sayın Taruz'un verdiği koda alternatif olarak yeni bir form açmadan yapmak isterseniz,
Listede yokkene alttaki kodu yazınız ve çift klik kodunu kaldırınız..

Private Sub türno_NotInList(NewData As String, Response As Integer)
Dim strSQL As String
    Dim i As Integer
    Dim Msg As String

    'Exit this sub if the combo box is cleared
    If NewData = "" Then Exit Sub

    Msg = "'" & NewData & "' listenizde yok." & vbCr & vbCr
    Msg = Msg & "Eklemek ister misiniz??"

    i = MsgBox(Msg, vbQuestion + vbYesNo, "Bilinmeyen tür...")
    If i = vbYes Then
        strSQL = "Insert Into ttür ([tür]) " & _
                 "values ('" & NewData & "');"
        CurrentDb.Execute strSQL, dbFailOnError
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
    End If

End Sub

 

[halise]

arkadaşlar ekte yolluorum, film kaydı yapmaya çalışınca yönetmen eklemiyor, kimi secersem hep o isim kalıyor. Sebebini öğrenmek istiyorum, bi yardımcı olun lütfen

 

[beab05]

Yönetmenin denetim kaynağını "yönetmenno" olarak seçiniz. Boş kalmış!!

 

[halise]

hem kod için hemde farkettirdiğiniz için teşekkür ederm sn beab05, hemencik düzeltiorum