01/01/2010, 13:27
Kodu bu şekilde yapaarsanız
Listede olmayan bir STOKADI girdiğinizde isteğinize göre URUNLER tablosuna ekleyecek ve sonra size URUNLER formunu açarak ilgili urunun KOD unu girmenizi isteyecektir.Girdiğiniz Urun Kod ilk etapta görünmesede sonradan ilgili kutucuğa gelcektir. Aklıma gelen bu oldu umarım doğru anlamışımdır sorunuzu.Kolay gelsin.
Kod:
Private Sub STOKADI_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 & "' listenizde yok." & vbCr & vbCr
Msg = Msg & "Eklemek ister misiniz?"
i = MsgBox(Msg, vbQuestion + vbYesNo, "Listede Olmayan Stok adı...")
If i = vbYes Then
strSQL = "Insert Into URUNLER ([STOKADI]) " & _
"values ('" & NewData & "');"
CurrentDb.Execute strSQL, dbFailOnError
DoCmd.OpenForm "URUNLER", acNormal, [STOKADI] = Me.STOKADI
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End SubListede olmayan bir STOKADI girdiğinizde isteğinize göre URUNLER tablosuna ekleyecek ve sonra size URUNLER formunu açarak ilgili urunun KOD unu girmenizi isteyecektir.Girdiğiniz Urun Kod ilk etapta görünmesede sonradan ilgili kutucuğa gelcektir. Aklıma gelen bu oldu umarım doğru anlamışımdır sorunuzu.Kolay gelsin.