arkadaşlar formda açılan kutuyla ilgile cevaplar fakat benim sormak istediğim metin text kutusuna değer girdiğinde diğer alanlarında onunla ilgili güncellenmesi.
carikod kutusuna carikod yazdığımda yada adı kutusuna isim yazdığımda carikod kutusu ve soyadı kutuları güncellensin..
carikod:mci
adı: cihan
Soyadı: göktürk
bunlardan birine veri girildiğinde diğer alanlar otomotik güncellensin...
teşekkürler..
Sayın atlantis8334
Bununla ilgili bir sürü örnek yayınladık. Sitemizde bolca var.
Dlookup diye aratırsanız bolca mevcut. Kod bankamızda da var. Ayrıca
Column komutu da aynı işi açılan kutularda yapabilir. Ama ben halledemem derseniz, örnek gönderin ben halledeyim. Kutulardan hangisine veri girerseniz diğerlerine veri getirme ile ilgili örnek de ekledim sanıyorum bu sitede... Bulamazsanız dönün..
Kolay gelsin.
formda arama yaptım hatta bir konuda soruda sordum belki farketmişsinizdir.konudaki soru açılan kutu ile ilgiliydi.Açılan kutu olayında bir sorun yok zaten onu yapabiliyorum.Fakat metin kutusu olduğu zaman işlem hata veriyor.Örneğimi ekliyorum.Bakarsanız sevinrim..
Örneğinizi inceliyorum. Yapınca atarım buraya hemen.
Fakat biraz daha açıklama yapsanız. Hangi formdaki hangi metin kutuları? Biraz daha açıklama lütfen..
bu şekilde olması imkansız siz bahse konu olan metin kutularını bir alana bağlamışsınız
şayet istediğiniz işlemleri yapmak istiyorsanız mutlaka boş ve veri olarak bir tabloya bağlı olmayan form tasarlamanız gerekir form üzerinde yaptığınız bütün işlemleri kod ile yapmanız gerekir
ekte komple bir form kodu ekledim bunda ilk kayıt son kayıt sonraki kayıt önceki kayıt hepsi var sadece arama yok oda ilave edilirse form üzerindeki hangi alana bir veri girerseniz girin ara düğmesine tıkladığınızda tablonuzda o alanların olduğu verileri arar
Kod:
Option Compare Database
Public rstEmployees As ADODB.Recordset
Public intCount As Integer
Private Sub Form_Load()
Dim strSQL As String
strSQL = "SELECT tblEmployees.strFirstName, tblEmployees.strLastName, tblEmployees.olePhoto FROM tblEmployees"
Set rstEmployees = New ADODB.Recordset
'rstEmployees.CursorLocation = adUseClient
rstEmployees.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly
With rstEmployees
' as this recordset supports approximate positioning then
' RecordCount will be the exact number of records in the Recordset
' regardless of whether it has been fully populated.
intCount = .RecordCount
.MoveFirst
showRecord .AbsolutePosition & " of " & intCount
End With
End Sub
Function showRecord(strRecordCount)
With rstEmployees
Me.fraPhoto = .Fields("olePhoto")
Me.txtFirstName = .Fields("strFirstName")
Me.txtLastName = .Fields("strLastName")
Me.txtCount = strRecordCount
End With
End Function
Private Sub cmdClose_Click()
DoCmd.Close
End Sub
Private Sub cmdDisplayFooter_Click()
Me.FormFooter.Visible = Not Me.FormFooter.Visible
End Sub
Private Sub cmdFirst_Click()
With rstEmployees
.MoveFirst
showRecord .AbsolutePosition & " of " & intCount
End With
End Sub
Private Sub cmdLast_Click()
With rstEmployees
.MoveLast
showRecord .AbsolutePosition & " of " & intCount
End With
End Sub
Private Sub cmdNext_Click()
With rstEmployees
.MoveNext
If Not .EOF Then
showRecord .AbsolutePosition & " of " & intCount
Else
.MoveLast
showRecord "Last Record"
End If
End With
End Sub
Private Sub cmdPrevious_Click()
With rstEmployees
.MovePrevious
If Not .BOF Then
showRecord .AbsolutePosition & " of " & intCount
Else
.MoveFirst
showRecord "First Record"
End If
End With
End Sub
Private Sub Form_Close()
rstEmployees.Close
End Sub
yani formları asla bir tabloya bağlamayın anlık verileri form üzerine alın böylece ağ üzerinde çalışırken tabloyu meşgul etmeyeceğin için kişiler anında bağlanabilecek
şayet yapamazsanız ben size basit bir örnek yapar eklerim