lütfen yardım,özellik sayfasına yazacağım bir kaç sql deyimi

[takoo]

selam kardeşler.ya ben açılır liste kutusunu kullanmadan , ilişkili olan diğer tablodaki değerleri kullanmak istiyorum.nasıl,şöyle;şimdi "tarihler" adında ilişkili bir tablo var, ana tablom olan "kayıtlar" daki "tarihler" tablosunu temsil eden alana bir tarih gireceğim , eğer girdiğim tarih "tarihler" tablosunda yoksa oraya eklesin, eğer var ise onu kullanmış olsun. ve tabi aynı özelliği formuma da eklemek istiyorum.lütfen , çok önemli , son aşamalardayım , yardım bekliyorum . ve iyi çalışmalar diliyorum.

 

[modalı]

Sayın takoo,

Size bir kod parçası yolluyorum ama tabi bunu yayınlamak yasak ancak kullanılabiliyoruz uygulamalarda. Herneyse yazıyorum.

************ Code Start **********
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Sub cbxAEName_NotInList(NewData As String, Response As Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strMsg As String

    strMsg = "'" & NewData & "' is not an available AE Name " & vbCrLf & vbCrLf
    strMsg = strMsg & "Do you want to associate the new Name to the current DLSAF?"
    strMsg = strMsg & vbCrLf & vbCrLf & "Click Yes to link or No to re-type it."
    
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Add new name?") = vbNo Then
        Response = acDataErrContinue
    Else
        Set db = CurrentDb
        Set rs = db.OpenRecordset("tblAE", dbOpenDynaset)
        On Error Resume Next
        rs.AddNew
            rs!AEName = NewData
        rs.Update
        
        If Err Then
            MsgBox "An error occurred. Please try again."
            Response = acDataErrContinue
        Else
            Response = acDataErrAdded
        End If
        
    End If

rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
'*********** Code End **************

İyi çalışmalar

 

[takoo]

şeyy,çok teşekkür ederim modalı kardeşim.bakalım birşeyler yapabilecek miyim?ben daha basit birşey düşünmüştüm (bir kaç basit sql deyimi falan) yinede çok çok teşekkür ediyorum , üşenmemiş yazmışsın kardeş saol,işin rastgele

 

[hızır]

Sayın Modalı, kodları yazdım. küçük bir hata var. Listede yokken Listeye eklensin mi? mesajına hayır dediğim zaman hata run-time error 91 hatası veriyor. Bir yerde hata mı yaptım acaba? Dosya ekte.

 

[modalı]

Sayın hızır,

Kodu hazır olarak alıp yapıştırdım.
Ama hatayı buldum:

If Err Then
            MsgBox "An error occurred. Please try again."
            Response = acDataErrContinue
        Else
            Response = acDataErrAdded
        End If
        
    End If

rs.Close
Set rs = Nothing
Set db = Nothing
End Sub

Şeklindeki son bölüm:

If Err Then
            MsgBox "An error occurred. Please try again."
            Response = acDataErrContinue
        Else
            Response = acDataErrAdded
        End If
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    End If

End Sub

Olarak değişmeli. Hayır a bastığımızda Son End If in dışına çıkıyoruz. Ama bu arada rs ve deb değişkenleri açılmamış oluyor ve biz kapatmaya çalışıyoruz rs yi.

İyi çalışmalar

 

[hızır]

Uyguladım ve oldu. Teşekkürler.:hey: