03-11-2012, 21:43
selam
benim eklediğim örnekteki kodları alttakiler ile değiştirin
ilgili formaki ıd alnının adınıda id olarak değiştirin
basikte türkçe karakter kullanmak sakınclıdır hata verir
benim eklediğim örnekteki kodları alttakiler ile değiştirin
ilgili formaki ıd alnının adınıda id olarak değiştirin
basikte türkçe karakter kullanmak sakınclıdır hata verir
Visual Basic
- On Error Resume Next ' alan boş olduğundan runtime 94 hatası vermekte
- Dim ylc, ygt, ftm, oncedenvarmiydibak As String
- ylc = id.Value
- ygt = "id" = " & "
- ftm = DLookup("idno", "istenilmeyen_idiler", "idno=" & id)
- If Len(ftm) > 0 Then
- MsgBox "> " & id & vbCr & "istenilmeyen_idiler No Benzerliği", vbInformation, "A-Yapı"
- Me.Undo
- End If