14/01/2012, 20:51
adsoft
(06/01/2012, 15:59)sledgeab yazdı: Ufak bir karışıklık olmuş.
Private Sub cari1_NotInList(NewData As String, Response As Integer)
On Error GoTo Hata
Dim strSQL, Y As String, X As Integer
X = MsgBox("Bu Cari Ekli değil eklensin mi?", vbInformation + vbSystemModal + vbYesNo, "Adsoft")
If X = vbYes Then
strSQL = "Insert Into saticilar ([adisoyadiünvani],[ID]) values ('" & NewData & "','" & Forms![alislargiris]![Kimlik] & "')"
Y = NewData
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
DoCmd.OpenForm "saticiekle", , , "[adisoyadiünvani]=" & "'" & Y & "'"
Else
Response = acDataErrContinue
End If
Hata: Exit Sub
End Sub
yukardaki kodda ben cari yokken eklesin diyorum yalnız cari ekleme ekranında komut 14 dü tıkladığım zaman kayıt etsin sonrada formu yinelesin istiyorum sıkıntı oldu da biraz