Skip to main content

AccessTr.neT


form requery hakkında

form requery hakkında

Çözüldü #7
(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

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da