AccessTr.neT

Tam Versiyon: formlar arası veri taşıma
Ş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
Merhaba arkadaşlar ,

3 form arasında ileri geri yapmak istiyorum .

frmGİRİŞ ile TCKİMLİK giriyorum düğmeye basınca
frmGENEL ile ad soyad giriyorum düğmeye basınca
frmÖZEL işe yaş ve cinsiyet giriyorum .

frmÖZEL de bir hata farkedersem GENEL düğmesi ile frmGENEL formuna dönmesini istiyorum .

Ekteki dosya evet dönüyor ama ilk kayda dönüyor. Ben o an üzerinde çalıştığım tckimlik numaralı kayda dönmesini istiyorum ?

docmd.GoToRecord oması lazım sanırım ama yapamdım . YArdım ederseniz sevinirim .


2003 te olması gerekliliğinde dolayı üzerinde çalıştığım veritabanı harici bir örnek hazırlayım ekledim .
Ne yapmak istediğini tam bilmiyorum ama sanırım aşağıdaki kodlar işini görecektir bu kodları temel bilgiler isimli butona ekle
bukodlar ile tc noya göre genel forma döner ,kodları istedğin yerde kullanabilirsin,kolay gelsin

Dim rs As Object
DoCmd.OpenForm "frmGENEL"
Set rs = Forms!frmGENEL.recordset.Clone
rs.FindFirst "[TC_KİMLİK ]=" & Me![TC_KİMLİK ]
If Not rs.EOF Then Forms!frmGENEL.Bookmark = rs.Bookmark
DoCmd.Close acForm, Me.Name
Sn CELOYCE teşekkür ederim .

istediğim son 1 olgu dışında çalışıyor kodlarınız .
Eğer bulamaz ise yeni kayıt açmasını nasıl yazabiliriz ?
Yine söylüyorum ne yapmak istedğinizi tam analmadım,böyle ayrı ayrı tablolar yaparak neden birbiri üstene kayıt yaparak gidiyorsunuz burayı açıklayın özel bir nedeni yoksa belki daha kısa ve güzel bir yol ile yapılabilir açıklayın isterseniz,birde aşağdaki kodu hata iletisi bölümüne ekleyerek sanırım açmasını sağlarsınız,ama bence eklemeden önce bir açıklama yapın acces derslerini okuyun ,sonrasında örneğinizi tekrar gözden geçirin derim .birde aşağıdaki kodları diğeri ile bir değiştirip deneyin..kolay gelsin
On Error GoTo Err_Command12_Click
Dim rs As Object
DoCmd.OpenForm "frmGENEL"
Set rs = Forms!frmGENEL.recordset.Clone
rs.FindFirst "[TC_KİMLİK ]=" & Me![TC_KİMLİK ]
If Not rs.EOF Then Forms!frmGENEL.Bookmark = rs.Bookmark
DoCmd.Close acForm, Me.Name
Exit_Command12_Click:
Exit Sub
Err_Command12_Click:
DoCmd.OpenForm "frmGENEL", acNewRec
Resume Exit_Command12_Click
istediğim kısaca şudur ;

formlar arası geçiş yaparken eğer açılacak formda o KİMLİK NUMARASI mevcut ise o değere gitsin. mevcut değil ise yeni kayıt açsın .

tek istediğim bu cümlenin kod hali Img-grin
bir örnekte biri şu mantığu kullanmış

Kod:
If DCount("[Event ID]", "tables![Confirmation]", "='Me![EventID]'") = 0 Then
DoCmd.OpenForm "Multi-Confirmation", acNormal, , , acFormAdd
Forms![Multi-Confirmation]![Event ID] = Me![EventID]
Else
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Multi-Confirmation"

stLinkCriteria = "[Event ID]=" & Me![EventID]
DoCmd.OpenForm stDocName, , , stLinkCriteria

End If
End Sub

saydırıyor ve eğer 0 ise kayıt açıyor
ELSE durumunda kayıda gidiyor .
Ama tam yapamamış uğraşan kişide o yüzden örnek alamadım .

dcount üzerine araştırıyoum çözümü bulursam yazarım
Sayfalar: 1 2