(12/08/2012, 01:23)orkuncan5 yazdı: Özgür Bey size hak veriyorum ,daha önce ilişki yüzünden benimde başım ağrımıştı.

Evet Hatırlıyorum. Veri tabanlarının kullanım amacı sadece bilgi depolamak olmalıdır. Tabi veri tabanları değişik kolaylık sağlamak için ilişkilendirme yapma imkanı veriyorlar fakat kontrol bir nevi sizin elinizden çıkıyor ve belli bir zaman sonra baş ağrısı yapabiliyor.

İlginize teşekkürler. Çalışma bana ait bir yerden almış değilim, ancak durumunun bu kadar içler acısı olduğunu bilmiyordum. Ancak tablo ilişkilendirmeleriyle benim sorunum arasındaki bağı anlayamadım, eminim bir bildiğiniz vardır. Yada ben sorunumu tam anlatamadım. Tek istediğim firma kutucuğuna listede olmayan bir veri girildiğinde girilen verinin geri alınması kutucuğun boşaltılması ve ffirma formunun açılması.

eğer alanın boşalmasını istiyorsanız.

me.Alan_Adı = ""

alan adı değil de yazılan bilginin tablodan silinmesini istiyor iseniz silme sorgusu veya kodları oluşturmalısınız. Yapının bozuk olması şu şekilde dikkatimi çekti. Firma ekleme formuna girdiğim zaman ekleme yapacağımda büyük oranlarda tutarsızlıklar var. firma eklemek için insan nerede ise ortadan ikiye çatlaması gerekiyor. daha önceden de dediğim gibi benimkisi sadece bir tavsiye. eğer sağlam bir temel ile başlarsanız ilerde oluşabilecek sorunların önüne geçmiş olabilirsiniz. önemli olan formlar veya sorguların cancanlı olması değil. sağlam bir tablolamanızın olması. ilerde bir probem olsa dahi proje size ait olduğu için sorguları ve formları rahatlıkla yerine oturtabilirsiniz tablolarınız sağlam olduğu sürece.

me.Alan_Adı = "" kodu listede yokken olayındada formun hata olayındada var ancak bir türlü kutuyu boşaltmıyor. Yoksa benim bilgisayarımdamı problem varmı. Sizde Per_Firma kutucuğunda liste olmayan bir veri girildiğinde açılan liste kapanıp içersi boşaltılıp ve ffirma formu açılıyormu ? bende açılmıyor sorunda bu. Bilmiyorum,çözemedim.

tamam demek istediğinizi şimdi anladım. sizin istediğiniz. F_personel formunda Per_firma alanına tabloada olmayan bir değer girildiğinde Per_Firma ya girien olmayan değer silinecek ve FFirma formu açılacak o zaman kod bu

Private Sub Form_Error(DataErr As Integer, Response As Integer)

Me.Per_Firma = Delete

On Error Resume Next

If DataErr = 2237 Then

MsgBox ("Veri Listede Yok. Açacağım Formdan Ekleyiniz.")

 Me.Per_Firma = ""

 DoCmd.OpenForm ("FFirma")

 Form_FFirma.SetFocus

 Form_FFirma.FFirmaAlt4.SetFocus

 'Response = acDataErrContinue

 Response = acDataErrAdded

Else

Response = acDataErrDisplay

 End If

End Sub

sizin yazmış olduğunuz koda sadece

Private Sub Form_Error(DataErr As Integer, Response As Integer)

başlangıcından sonra

Me.Per_Firma = Delete

kodu eklenmiştir. bende problemsiz bir şekilde çalıtı. Lütfen geri bildirimde bulununuz.

sayın ozguryasin, per_firma kutusu boşaltılıyor ve form sorunsuz açılıyor ancak ekteki resimde olduğı gibi açılan kutu formun üzerinde beliriyor. Bunu önleyebelirmiyiz.