Tab Tuşuna Çift Tıkladığında Kaydetme

[blacksir]

Ekteki veri tabanında Tablo2 formunda Geldiği Kurum açılan Kutusu Kurumları Tablo1 den alıyor sorum şu Tablo2 de iken Geldiği Kurum Açılan kutusunda istediğim kurum yok ise (Doğal olarak Tablo1 de o kayıt yok demektir) Kendim tablo2 formunda Geldiği yer açılan kutusuna kurumu manuel el ile yazayım tab tuşuna çift tıklayayım tablo1 kurumu kaydetsin daha sonra tablo2 de geldiği kurumda kullna bileyim yani işin özü tablo1 e tablo2den kayıt yaptırayım Kurum yok ise

 

[beab05]

Merhaba;
Açılan kutunun (not in list) listede yokken olayına şunu yazın..

Private Sub Geldiği_Kurum_NotInList(NewData As String, Response As Integer)
Dim strSQL As String
    Dim i As Integer
    Dim Msg As String

        If NewData = "" Then Exit Sub

    Msg = "'" & NewData & "' Listede bu değer yok" & vbCr & vbCr
    Msg = Msg & "Eklensin mi??"

    i = MsgBox(Msg, vbQuestion + vbYesNo, "Bilinmeyen kurum...")
    If i = vbYes Then
        strSQL = "Insert Into tablo1 ([krum Adı]) " & _
                 "values ('" & NewData & "');"
        CurrentDb.Execute strSQL, dbFailOnError
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
    End If
End Sub

 

[blacksir]

işe yaradı

teşekürler

 

[gitarisyen]

Sayın beab05;

Çok teşekkürler, benim de çok işime yarayacak bir şey bu... Ellerinize sağlık. Emeğiniz için teşekkürler...

Saygılar, selamlar...