Açılan kutuya (ekleme,çıkarma)

[Mesut Gündüz]

örnek ektedir. Açılan kutuya bölge eklemek yada çıkarmak istiyorum.Bir yolu varmıdır.Ancak bunu form üzerine konan iki adet butonla yapmalıyım.Teşekürler.

Saygılar,
MG

 

[modalı]

Eklemeyi nereden yapacaksınız?

Bu işin en kolay yolu ayrı bir bölgeler tablosu olsun, açılan kutu verileri oradan alsın, bu tablonun da ayrıca bir formu olsun ekleme ve çıkarma o form üzerinden yapılsın, en sonda ana formda açılan kutu yanına konacak bir düğme ile ikinci form açılsın.

 

[Mesut Gündüz]

Eklemeyi nereden yapacaksınız?

Bu işin en kolay yolu ayrı bir bölgeler tablosu olsun, açılan kutu verileri oradan alsın, bu tablonun da ayrıca bir formu olsun ekleme ve çıkarma o form üzerinden yapılsın, en sonda ana formda açılan kutu yanına konacak bir düğme ile ikinci form açılsın.

Evet anlattığınız şekilde olabilir.

Benim kafamdaki aslında sadece iki tane buton olsun biri eklesin biri silsindi.
Ancak gözümün önünde canlandırınca bunu açılan kutuda değilde liste kutusunda yapabileceğimi anladım.

Sizin yaptığınız gibi ekleme çıkarma işlemini açılacak yeni bir formlada yapabilirim.

Şu anda hangi alternetif sizin için uygunsa işimi görür..

Saygılar,
MG

 

[modalı]

Bir de açılan kutu için NotInList diye bir yordam var buradanda ekleme yapabilirsiniz.

Kısacası listede olmayan bir veriyi tazabilir, access te gidip olmadığını tespit ederse, ekleme isteyip istemediğini sorarak ekleme yapabilirsiniz.

Örnek kod:

Private Sub Üretici_NotInList(NewData As String, Response As Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strMsg As String

    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
        Set db = CurrentDb
        Set rs = db.OpenRecordset("tblCariler", dbOpenDynaset)
        On Error Resume Next
        rs.AddNew
            rs("CariAdı") = NewData
        rs.Update
        
       If Err Then
            MsgBox "Hatalı. Lütfen tekrar deneyin."
            Response = acDataErrContinue
        Else
            Response = acDataErrAdded
        End If
      rs.Close
    Set rs = Nothing
    Set db = Nothing
    End If


End Sub

Silme için de düğme kullanabilirfsiniz. Ama ben yaptığımda önceki cevaptaki gibi yapıyorum.

İyi çalışmalar

 

[Mesut Gündüz]

Verdiğiniz kodları bir butona yerleştirdim ancak çalışmadı.Hata veriyor.

Saygılar,
MG

 

[Mesut Gündüz]

Bu işin en kolay yolu ayrı bir bölgeler tablosu olsun, açılan kutu verileri oradan alsın, bu tablonun da ayrıca bir formu olsun ekleme ve çıkarma o form üzerinden yapılsın, en sonda ana formda açılan kutu yanına konacak bir düğme ile ikinci form açılsın.

bu şekilde nasıl yaptığınız örnekte yapabilirmisiniz. Silme işlemi olmayacaksa zaten işimi görmeyecek.bu şekilde.

Saygılar,
MG

 

[adnanyurdakul]

Aşağıdaki hod combonun not in list ine yapıştırılacak
Dim strsql As String
Dim i As Integer
Dim Msg As String

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

Msg = "'" & Yeni_Bilgi & "' Yazdığınız Kayıtlarda Bulunamadı." & vbCr & vbCr
Msg = Msg & "Bunu Kaydetmek istermisiniz?"

i = MsgBox(Msg, vbQuestion + vbYesNo, "Unknown Book Category...")
If i = vbYes Then
strsql = "Insert Into TabloBirlikad ([AlanBirlikad]) values ('" & Yeni_Bilgi & "')"
CurrentDb.Execute strsql, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub


Aşağıdaki kodu komut düğmesine yazabilirsin

Private Sub Birlik_DblClick(Cancel As Integer)
Dim strsql As String
Dim i As Integer
Dim Msg As String

Msg = "Bu Kaydı Silmek istermisiniz?"

i = MsgBox(Msg, vbQuestion + vbYesNo, "Unknown Book Category...")
If i = vbYes Then
strsql = "Delete Birlikad FROM TabloBirlikad where birlikad='" & Birlik & " '"

Else
Exit Sub
End If

End Sub


birlik form üzerindeki combo obzx ın adıdır
ve listeye sınır evet olmalıdır