Kayıt gezintisi!

[niz4m]

http://rapidshare.com/files/62527094/Kopyas__305__rehber.rar.html
burda mdb duruyor
şimdi formda sirano adi soyadi metin kutuları ve tamam diye buton olacak ben sirano ya numara yazıp tamam a bastıgımda adı ve soyadını gösterecek ama bi turlu yapamıyorum yaparsanız cok sevinecem şimdiden ilgilenenlere tsklr:yardim: :yardim: :arkadas:

 

[niz4m]

Kayıt gezintisi!cok acil !!!!

http://rapidshare.com/files/62527094...ehber.rar.html
burda mdb duruyor
şimdi formda sirano adi soyadi metin kutuları ve tamam diye buton olacak ben sirano ya numara yazıp tamam a bastıgımda adı ve soyadını gösterecek ama bi turlu yapamıyorum yaparsanız cok sevinecem şimdiden ilgilenenlere tsklr


Her soruyu her başlık altında açmış olsaydık forumun hali ne olur du?
Modalı

 

[niz4m]

pazartesi öghlene kadar bitmesi lazım lutfen ilgilenenler yardım edin

 

[doktor]

Sanırım aradığınızı aşağıdaki linkte bulacaksınız.

http://www.excel.web.tr/showthread.php?t=37055

 

[modalı]

Sayın niz4m,

Tablonuzla ilişkili bir form ekleyin. Tasarım görünümünde açıp Form Üst Bilgisinin görünmesini sağlayın. Üstüne bir metin kutusu yerleştirin adı txtAra olsun yanına bir de düğüme adı cmdAra olsun.

Sonra da aşağıdaki kodları cmdAra nın klik olayına yapıştırın.

Me.RecordsetClone.FindFirst "[SiraNo] = " & Me.txtAra
Me.Bookmark = Me.RecordsetClone.Bookmark

Kolay gelsin.

İyi çalışmalar:hey:

 

[niz4m]

linke baktım ama dosyayı acamıyorum sanırım aradıgım sey ama acamıyorum işte nasıl acacam biliyormusun?

 

[niz4m]

deniyecem şimdi saol

 

[niz4m]

cok saol kardesim bi haftadır aradıgım seyi 2 dakkada hallettin saol

 

[niz4m]

bişey saha soracam
gereklilik kuralı koycamda olmayan numara girdiginde bana "öyle bir numara yok" olabilirmi böyle

 

[modalı]

O zaman kodları şöyle değiştirin:

Private Sub cmdAra_Click()
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM Kişiler WHERE SiraNo=" & txtAra & ";", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.RecordCount = 0 Then
    MsgBox "İlgili Kayıt Yok", , "Uyarı"
Exit Sub
End If
Me.RecordsetClone.FindFirst "[SiraNo] = " & Me.txtAra
Me.Bookmark = Me.RecordsetClone.Bookmark
rs.Close
End Sub

İyi çalışmalar:hey:

 

[niz4m]

Tmm saol allah razı olsun senden sınıfa cikolata dagıtmaktan kurtardın beni eywallah


Türkçeleştirirsek

Tamam, sağolun. Allah razı olsun senden. Sınıfa çikolata dağıtmaktan kurtardın beni.
Teşekkür ederim.