(18/04/2017, 14:37)alpeki99 yazdı: Siz tam olarak ne istediğinizi adım adım örneklendirerek anlatın küçük bir örnek hazırlayalım.
İlk mesajımda eklediğim dosyadaki gibi bilgileri girip, onay kutularından seçtiğim kategorileri veritabanındaki bir alana (Ben "yeterlilik" diye bir alan oluştudum) kaydedeceğim. Daha sonra başka bir formda açılan kutudan seçtiğim kategoriye ait standartların listelenmesini sağlayacağım.
Bir standart birden fazla kategoriyi ilgilendiriyor olabilir. O yüzden aralarına virgül koyup,
Dlookup ile çekebilir miyim diye sormak istemiştim.
"Daha sonra başka bir formda açılan kutudan seçtiğim kategoriye ait standartların listelenmesini sağlayacağım." bu şekilde yardımcı olmamız zor.
Site Kurallarını tekrar bir gözden geçirmenizi rica edeceğim. Siz tüm formları vs. hazırlayın "XX formunda YY alanında A,B,C adımlarını yaptıktan sonra ZZ formunda TT alanınca D,E,F işlemlerini yapmak istiyorum." şeklinde adım adım örneklendirerek anlatırsanız işimizi kolaylaştırırsınız. Diğer türlü bizim form vs. hazırlayıp, nerede ne olacak keşfetmeye çalışmak için vaktimiz olmuyor.
(18/04/2017, 15:00)alpeki99 yazdı: "Daha sonra başka bir formda açılan kutudan seçtiğim kategoriye ait standartların listelenmesini sağlayacağım." bu şekilde yardımcı olmamız zor. Site Kurallarını tekrar bir gözden geçirmenizi rica edeceğim. Siz tüm formları vs. hazırlayın "XX formunda YY alanında A,B,C adımlarını yaptıktan sonra ZZ formunda TT alanınca D,E,F işlemlerini yapmak istiyorum." şeklinde adım adım örneklendirerek anlatırsanız işimizi kolaylaştırırsınız. Diğer türlü bizim form vs. hazırlayıp, nerede ne olacak keşfetmeye çalışmak için vaktimiz olmuyor.
Peki sadece ilk mesajımdaki örneği baz alacak olursak, seçili olan onay kutularının değerlerini "yetkinlik" alanına aralarına virgül koyarak nasıl yazdırabilirim.
LÖncelikle prosedür genelinde bir değişken tanımlayalım :
Dim kutuMetinleri As String
bu değişken ile hangi kutular işaretli ise onların değerlerini saklayacak. Siz her onay kutusunun güncelleme sonrasına bir kod yazmışsınız. Hangi kutu işaretli ise o kutunun değeriniz gizli metin kutularına yazdırmışsınız. İşte tüm bu değerleri aralarında virgül olacak şekilde saklayacak olan değişken bu değişke olacak.
Değerleri arasında virgül olacak şekilde birleştirecek bir prosedür ekleyelim:
Private Sub MetinBirlestir()
kutuMetinleri = ""
kutuMetinleri = kalip_hazirlama_metin & "," & kalip_temizleme_metin & "," & kalip_bakim_metin & "," & ekipman_bakim_metin & "," & flas_bakim_metin & "," & ofis_yonetim_metin & "," & genel_metin
End Sub
Sizin onay kutularında yazdığınız kodlarda End If sonrasında bu prosedürü çalıştırmak için adını MetinBirlestir yazın.
Kaydetme işlemini yaptığınız yerde ki :
If VarMi > 0 Then
MsgBox "Bu standart numarası daha önce girilmiş" & vbCr & "Lütfen farklı bir standart numarası yazın.", vbCritical, "Kaydetme Başarısız"
Else
' ELSE aralığındaki kodlarınız
End If
Else bloğu içinde Docmd.RunSQL "INSERT INTO ....." kodlarınızda en sonda yetkinlik sütununa değerleri kaydettiğiniz Me.kalip_hazirlama_metin ifadesini silip kutuMetinleri yazmanız yeterlidir.
Sn @
alpeki99
Yardımlarınız için çok teşekkür ederim. Bu sorum çözülmüş oldu.
2. sorum için ayrı başlık açacağım...