AccessTr.neT

Tam Versiyon: Like
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
Merhaba arkadaşlar,
form üzerinde Like olayını bir türlü randımanlı çalıştıramadım,
Sayın srkD lütfen konu başlıklarınızı daha anlamlı hale gelecek cümlelerle yazınız. Bu şekilde konu açmak Site Kuralları na aykırı. Ayrıca örnek eklemişsiniz ancak ne olacak neyi anlamadınız vs. yazmamışsınız.
Sayın alpeki99,
bunu daha ne ka açık yazılır ki en fazla Like olayı veya Like Fonksiyonu yazılabilir,
zaten formu açınca, üstteki onay kutularına tıklayınca Like olayı çalışıyor, ama randımanlı çalışmıyor, Like konduğunda birçok kriterde bulma olayı gerçekleşiyor,
burada 1 kere buluyor 2.sinde değişik şeyler yapıyor.
"Like parametresinin/komutunun kullanımında problem" diyebilirdiniz mesela. Ben facebook hesabı sahibi olmadığım halde ilk "Like" başlığını görünce Facebook Like butonu ile ilgili bir konu zannettim. Grafik başlığınızda aynı doğru çok açık seçik anlaşılır "Grafik" ama bize konu başlığının sizin sorununuzu anlatması lazım.

"Zaten formu açınca" demişsiniz ben açtım baktım Vba kodunda birşey göremedim. Sizin nereye ne yazdığınızı biz keşfetmemeliyiz. Ramazan ayı yaz ayına denk geliyor bir yandan iş yerinde kendi işlerimiz ile uğraşırken burada size yardımcı olmaya çalışırken sizlerde bize yardımcı olmalısınız. Boşuna Site Kuralları diye bir şey konulmadı bunların hepsi zaman içerisinde yaşadığımız problemlerden ortaya çıktı.

Gördüğünüz gibi kurallar sadece kurallardan ibaret değil "hayat makinesinin düzenli çalışmasını sağlayan dişliler kurallardır".
Sayın SrkD Like komutunu nerde kullandığınızı bulmak çok zor oldu. Sayın Alpeki99 hocanında dediği gibi birde Oruç olunca insanın beyni duruyor.

Her neyse anladığım kadarı ile bunu yapmak istemişsiniz

Private Sub O1_Click()
On Error Resume Next
If Me.O1 = 0 Then
Me.O1 = ""
Else
End If
Me.Form.Requery
End Sub
Private Sub O2_Click()
On Error Resume Next
If Me.O2 = 0 Then
Me.O2 = ""
Else
End If
Me.Form.Requery
End Sub
Private Sub O3_Click()
On Error Resume Next
If Me.O3 = 0 Then
Me.O3 = ""
Else
End If
Me.Form.Requery

End Sub

Kolay gelsin
Sn srkD probleminizi çözebildiniz mi? Lütfen geri bildirimde bulununuz.
Saygılar...
Sayfalar: 1 2 3 4