Arkadaşlar kolay gelsin, programda form üzerinde alt form var, ilgili kayıtlara göre alt formdaki kayıtları görebiliyoruz. Alt formda eğer veri varsa, form üzerinde bir etikette gösterebilirmiyiz, yine yoksa veri yok gibi bir bilgi etikette gösterebilirmiyiz.
Yardımcı olacak herkese teşekkür ediyorum.
sayın danke
data isimli form üzerine bir metin kutusu yapın,denetim kaynağına ise
=IIf([durumu]=Evet;"KAYIT VAR";"KAYIT YOK")
yazın istediğiniz olur,kolay gelsin
sayın C*E*L*O*Y*C*E ilginiz için teşekkür ediyorum.
Zannederim yanlış anlaşıldım, kayıt varsa olan kayıtları gösterecek, yoksa kayıt yok diyecek,
İlgilenip yardımcı olacak herkese teşekkürler.
Kod:
Private Sub Kontrol()
Dim rs As Recordset
Dim s As String
On Error Resume Next
If Me.NewRecord Then
Me.Etiket13.Caption = "Yeni Kayıt"
Exit Sub
End If
Set rs = Me.Bilgisayarci.Form.RecordsetClone
rs.MoveFirst
If rs.RecordCount = 0 Then
Me.Etiket13.Caption = "Kayit Yok"
Else
While Not rs.EOF
s = s & Nz(rs("sehiri"), "-") & ","
rs.MoveNext
Wend
s = Left(s, Len(s) - 1)
Me.Etiket13.Caption = "Kayitta " & s & " var..."
End If
Bunu da form_current de çağırmak yeterli olacaktır.
Örnek ekte. ( Sadece altform adını bilgisayarci yaptım )
Projeye devam etmeden önce Yapmamanız gereken ölümcül hataları okumalısınız.
Yaptıktan sonra aklıma geldi. Keşke Kontrol'u fonksiyon yapıp string değer geriye gönderseydim.
Böylece me.etiket13( ya da ne isiim verecekseniz).caption= kontrol olurdu....
Neyse
Sayın Bilgisayarcı ilginiz ve verdiğiniz örnek için teşekkür ediyorum. İnsanın sorularına cevap bulması kadar güzel bir şey yoktur diye düşünüyorum. Böyle bir örneği nerede kullanacaksınız diye sormamışsınız. Ben söylim, wep tarzı bir çok uygulamalarda uygulanır diye zannediyorum, projemdede hayati bir pozisyonda yani müthiş bir sorun çözüldü sayenizde.
Ancak:
1-"Projeye devam etmeden önce Yapmamanız gereken ölümcül hataları okumalısınız." demişsiniz, halbuki ben hata yaptığımı düşünmüyordum
2-"Yaptıktan sonra aklıma geldi. Keşke Kontrol'u fonksiyon yapıp string değer geriye gönderseydim.
Böylece me.etiket13( ya da ne isiim verecekseniz).caption= kontrol olurdu...." demişsiniz. Bende bi fırka anlatayım bari "Adamın teki rahatsızlığı sebebiyle doktara gider, doktor muayene eder, ilaç yazar, son olarak da hastaya derki şu ilacı içerken KURT'u aklına getirme, hasta o ilacı ne zaman içmeye niyet etse KURT aklına gelir vesselam. Öyle de "Keşke Kontrol'u fonksiyon yapıp string değer geriye gönderseydim." demişsin ya program güzel olmuş ama bir de öyle olsaydı nasıl olurdu diye düşünmeye başladım.
İlgilenip cevap veren tüm arkadaşlara teşekkür ediyorum.