kodu şu şekilde değiştir
Dim strSQL As String
Dim I As Integer
Dim msg As String
If NewData = "" Then Exit Sub
strSQL = "Insert Into firmalar ([firma]) " & _
"values ('" & NewData & "');"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Listede Yoksa Eklesin Ama Sormasın
Bu Konudaki Yorumlar |
Listede Yoksa Eklesin Ama Sormasın - Yazar: remi - 16/07/2009, 00:22
Cvp: Listede Yoksa Eklesin Ama Sormasın - Yazar: C*e*l*o*y*c*e - 16/07/2009, 00:25
Cvp: Listede Yoksa Eklesin Ama Sormasın - Yazar: remi - 16/07/2009, 00:27
Cvp: Listede Yoksa Eklesin Ama Sormasın - Yazar: C*e*l*o*y*c*e - 16/07/2009, 02:30
Cvp: Listede Yoksa Eklesin Ama Sormasın - Yazar: remi - 16/07/2009, 02:53
Cvp: Listede Yoksa Eklesin Ama Sormasın - Yazar: C*e*l*o*y*c*e - 16/07/2009, 02:58
Cvp: Listede Yoksa Eklesin Ama Sormasın - Yazar: remi - 16/07/2009, 03:15
Cvp: Listede Yoksa Eklesin Ama Sormasın - Yazar: İsmail Küçükşengün - 16/07/2009, 07:53
Cvp: Listede Yoksa Eklesin Ama Sormasın - Yazar: assenucler - 16/07/2009, 08:14
|
Konuyu Okuyanlar: 1 Ziyaretçi