(19/06/2016, 13:14)mehmetdemiral yazdı: İstediğiniz örnek biçimi aşağıya eklendi. Güle güle kullanınTam istediğim gibi olmuş Mehmet Hocam ellerine sağlık.
Yalnız o kadar uğraştım anlayamadım, ilk dosyada POWER'ın yazdığı aşağıdaki kodda yanlış nerede?
Ona kafayı takmış durumdayım, belki de çok uğraştığım için.
Kod:
Private Sub it_kalite_AfterUpdate()
Me.txtKALNO = Me.it_kalite.Column(1)
Me.it_konst.Requery
End Sub
Private Sub it_konst_AfterUpdate()
Dim SQL As String
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
SQL = "SELECT * FROM t_konst WHERE kons_kaliteno = " & Me.txtKALNO
Set rs = db.OpenRecordset(SQL)
If rs.EOF = True Then GoTo 100
rs.MoveFirst
If Me.it_konst = rs!kons_analiz Then Exit Sub
Do Until rs.EOF
rs.MoveNext
Loop
100
c = MsgBox(Me.it_konst & " Listede yok...Eklensin mi ?", vbYesNo + vbQuestion, "Program")
If c = vbYes Then
rs.AddNew
rs!kons_analiz = Me.it_konst
rs!kons_kaliteno = Me.txtKALNO
rs.Update
MsgBox "Yeni Kalite eklenmiştir..."
Me.it_konst.Requery
Else
End If
End Sub