access de form üzrine eklenmiş olan açılan listeye sadece form açıldığı anda bilgileri tablodan bir kere alıyor.ancak yeni veri girişini tablodan hemen almıyor.tekrar kapatıp açmak gerekiyor.her seferinde ekleneni anında nasıl görebiliriz?
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Açılan_Kutu5_NotInList(NewData As String, Response As Integer)
Dim rs As New ADODB.Recordset
strMsg = "'" & NewData & "' ÖGESİ LİSTEDE YOK " & vbCrLf & vbCrLf
strMsg = strMsg & "LİSTEYE EKLEMEK İSTER MİSİNİZ?"
strMsg = strMsg & vbCrLf & vbCrLf & "EKLEMEK İÇİN EVET'İ İPTAL İÇİN HAYIRI TIKLAYIN"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Yeni Öge Ekle?") = vbNo Then
Response = acDataErrContinue
Else
'Buraya değer listede yoksa yapılmasını istediğinizi kodlayın
rs.Open "adres", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("adres") = NewData
rs.Update
rs.Close
Set res = Nothing
End If
If Err Then
MsgBox "Hatalı. Lütfen tekrar deneyin."
Response = acDataErrContinue
Else
Response = acDataErrAdded
End If
End Sub