AccessTr.neT
Not girişi için farklı bir form oluşturma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Not girişi için farklı bir form oluşturma (/konu-not-girisi-icin-farkli-bir-form-olusturma.html)



Not girişi için farklı bir form oluşturma - serdar_20 - 01/01/2012

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
 not ekleme.rar(34.53 KB)



Cvp: Not girişi için farklı bir form oluşturma - ozanakkaya - 01/01/2012

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] & "'"



Cvp: Not girişi için farklı bir form oluşturma - serdar_20 - 01/01/2012

Sayın sledgeab çok teşekkür ederim sorunum çözüldü.


Cvp: Not girişi için farklı bir form oluşturma - Yandemir - 02/01/2012

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
 not ekleme.rar(22.4 KB)

iki ayrı yol ile pişti olduk ozan, kod isteyen senin yöntemi kullansın kodsuz çözmek isteyen benimkini Img-grin


Cvp: Not girişi için farklı bir form oluşturma - serdar_20 - 02/01/2012

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.