DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba..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??
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
rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
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
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
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