Not girişi için farklı bir form oluşturma

01/01/2012, 22:25

serdar_20

Herkese iyi akşamlar. Arkadaşlar yeni bir çalışma yapmaya çalışıyorum. Bir konuda takıldım ve yardımcı olursanız sevinirim. Konuya gelince de araç bilgilerinin bulunduğu bir üst form ve buna ait işlemlerin olacağı bir alt form var. Bazı işlemlere uzun notlar girmem gerekiyor buda alt formda fazla yer kaplayacağı için bu notları farklı bir formdan girmek istiyorum. Şuan belgeno hanesini çift tıklayınca açıklama formunu açıyor ve notları yazabiliyorum. Ama benim tam anlamıyla yapmak istediğim ise; alt formda belge no girince aynı belge numarasının açıklama formunda otomatik oluşması ve alt formda belgenoya çift tıklayınca aynı kayda gitmesi. İlgilenenirseniz memnun olurum.
Ek Dosyalar

01/01/2012, 23:20

ozanakkaya

belgeno çift tıklama olayındaki kodu aşağıdaki kod ile değiştir.

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
strSQL = "SELECT * FROM açıklama "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[belge]=" & Me![belgeno]
If Not rstkayit.EOF Then
.Fields("belge") = Me.belgeno
.Update
Else
.AddNew
.Fields("belge") = Me.belgeno
.Update
End If
End With
DoCmd.OpenForm "açıklama", acNormal, , "[belge]=" & "'" & Me![belgeno] & "'"
01/01/2012, 23:27

serdar_20

Sayın sledgeab çok teşekkür ederim sorunum çözüldü.
02/01/2012, 00:08

Yandemir

böyle birşey istiyorsunuz sanırım. sondaki buton içindeki kod ile çağırıyor. me.openargs ile parametre olarak belge no yollanıyor.

Ek Dosyalar

iki ayrı yol ile pişti olduk ozan, kod isteyen senin yöntemi kullansın kodsuz çözmek isteyen benimkini
02/01/2012, 00:41

serdar_20

Sayın Yandemir her iki örnekte işimi görüyor. Sona buton koymak biraz daha mantıklı.İlginiz için teşekkür ederim.