DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
[COLOR=#0600ff]Dim[/COLOR] rs [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Object[/COLOR]
[COLOR=#0600ff]Set[/COLOR] rs [COLOR=#008000]=[/COLOR] [COLOR=#0600ff]Me[/COLOR].Recordset.Clone
rs.FindFirst [COLOR=#fb0000]"[ID] = "[/COLOR] [COLOR=#008000]&[/COLOR] [COLOR=#0600ff]Str[/COLOR][COLOR=#000000]([/COLOR]Nz[COLOR=#000000]([/COLOR][COLOR=#0600ff]Me[/COLOR]![COLOR=#000000][[/COLOR]Liste0[COLOR=#000000]][/COLOR], [COLOR=#7d2252]0[/COLOR][COLOR=#000000])[/COLOR][COLOR=#000000])[/COLOR]
[COLOR=#0600ff]If[/COLOR] [COLOR=#0600ff]Not[/COLOR] rs.[COLOR=#0600ff]EOF[/COLOR] [COLOR=#0600ff]Then[/COLOR] [COLOR=#0600ff]Me[/COLOR].Bookmark [COLOR=#008000]=[/COLOR] rs.Bookmark
Merhaba Evren Bey..
Listeye tıklayınca şu kodun çalışması sağlarsanız formunuz kayıt değiştirmeye uygun hale gelecektir..
Kod:[COLOR=#0600ff]Dim[/COLOR] rs [COLOR=#0600ff]As[/COLOR] [COLOR=#0600ff]Object[/COLOR] [COLOR=#0600ff]Set[/COLOR] rs [COLOR=#008000]=[/COLOR] [COLOR=#0600ff]Me[/COLOR].Recordset.Clone rs.FindFirst [COLOR=#fb0000]"[ID] = "[/COLOR] [COLOR=#008000]&[/COLOR] [COLOR=#0600ff]Str[/COLOR][COLOR=#000000]([/COLOR]Nz[COLOR=#000000]([/COLOR][COLOR=#0600ff]Me[/COLOR]![COLOR=#000000][[/COLOR]Liste0[COLOR=#000000]][/COLOR], [COLOR=#7d2252]0[/COLOR][COLOR=#000000])[/COLOR][COLOR=#000000])[/COLOR] [COLOR=#0600ff]If[/COLOR] [COLOR=#0600ff]Not[/COLOR] rs.[COLOR=#0600ff]EOF[/COLOR] [COLOR=#0600ff]Then[/COLOR] [COLOR=#0600ff]Me[/COLOR].Bookmark [COLOR=#008000]=[/COLOR] rs.Bookmark