+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: form requery hakkında (/konu-form-requery-hakkinda.html)
Sayfalar:
1
2
Cvp: form requery hakkında - adsoft - 14/01/2012
(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