Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
23/05/2019 09:03
Konu Sahibi
haziran4
Yorumlar
11
Okunma
359
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
haziran4

haziran4

Aktif Üye
6706
 44
 55
 188
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 01/07/2019,11:46
Çözüldü 
iyi çalışmalar;

Formda yeni ekleme yaparken Çalışıyor/ayrıldı, Vize Bitiş Tarihi ve Personel özel Durum seçimlerinde  3101 hatası veriyor.

[Resim: do.php?imgf=1fab916846721.jpg]



haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.

berduş

berduş

Uzman
65596
ha....
 29
 1.401
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
1 - neden aşağıdaki kodu sürekli kullanmışsınız?
"'Form_Frm_Usta_Bilgileri.Form.Requery" aktif form değil mi
2 - bu formun bağlı olduğu tabloda "boş olmaması gereken" alan hangisi?
"VizeTakipID" ise bu alan neye göre oluşturuluyor, otomatik sayı değil?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Calisiyor_Ayrildi_AfterUpdate()
'Form_Frm_Usta_Bilgileri.Form.Requery
End Sub
___________________________________
Private Sub Gorevi_AfterUpdate()
'Form_Frm_Usta_Bilgileri.Form.Requery
End Sub
___________________________________
Private Sub Personel_Ozel_Durumu_AfterUpdate()
'Form_Frm_Usta_Bilgileri.Form.Requery
End Sub
___________________________________
Private Sub Personel_Ozel_Durumu_Change()
'Form_Frm_Usta_Bilgileri.Form.Requery
End Sub
___________________________________
Private Sub Vize_Bitis_Trh_AfterUpdate()
'Form_Frm_Usta_Bilgileri.Form.Requery
End Sub

[Resim: do.php?imgf=0d04bc01cb231.jpg]



...........
ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.136
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Sayın @haziran4, @"haliliyas"ın cevabına ek olarak, formun kayıt kaynağındaki sorguya göre, forma yeni kayıt eklerken tablolarda birincil anahtar olarak belirlenen alanlara veri eklenmesi lazım.

UstaBul butonu ile metin kutusuna veri aktarmazsanız formun alt kısmına eklediğiniz "UstaID" metin kutusu boş kalır. Bu alan boş iken kaydet butonuna tıklarsanız resimdeki hatayı verir. Kaydet butonuna dolu olması gereken alanların kontrolü için;

Visual Basic Code
1
2
3
4
5
6
7
8
9
if len(UstaID) = 0 then

msgbox("Usta seçin")
exit sub
elseif len(FirmaID)=0  then

msgbox("firma seçin")
exit sub
end if



şeklinde kod eklemelisiniz. 

İlişkilendirmeye göre "Tbl_Ustalar_Data" isimli tablodaki VizeTakipID alanına veri kaydedilmesi gerekli. Kayıt esnasında tablodaki bu alan boş kalıyor. Tablodaki VizeTakipID alanının veri türünü Otomatik sayı olarak değiştirmeniz gerekli.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

haziran4

haziran4

Aktif Üye
6706
 44
 55
 188
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 01/07/2019,11:46
[quote pid='157311' dateline='1558597089']

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Calisiyor_Ayrildi_AfterUpdate()
'Form_Frm_Usta_Bilgileri.Form.Requery
End Sub
___________________________________
Private Sub Gorevi_AfterUpdate()
'Form_Frm_Usta_Bilgileri.Form.Requery
End Sub
___________________________________
Private Sub Personel_Ozel_Durumu_AfterUpdate()
'Form_Frm_Usta_Bilgileri.Form.Requery
End Sub
___________________________________
Private Sub Personel_Ozel_Durumu_Change()
'Form_Frm_Usta_Bilgileri.Form.Requery
End Sub
___________________________________
Private Sub Vize_Bitis_Trh_AfterUpdate()
'Form_Frm_Usta_Bilgileri.Form.Requery
End Sub

[Resim: do.php?imgf=0d04bc01cb231.jpg]


[/quote]

Bu alanlar daki değişiklik ile Aktif Pasife otomatik yansıması için



haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.

...........
berduş

berduş

Uzman
65596
ha....
 29
 1.401
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
o zaman sadece aktif pasif alanını "requery" yapmanız daha uygun olmaz mı?
ayrıca @ozanakkaya hocamın belirttiği gibi gerekli alanı nasıl halletmeyi düşünüyorsunuz?



haziran4

haziran4

Aktif Üye
6706
 44
 55
 188
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 01/07/2019,11:46
(24/05/2019 11:44)haliliyas Adlı Kullanıcıdan Alıntı: o zaman sadece aktif pasif alanını "requery" yapmanız daha uygun olmaz mı?
ayrıca @ozanakkaya hocamın belirttiği gibi gerekli alanı nasıl halletmeyi düşünüyorsunuz?

oraları @ozanakkaya hocamın dediği bi i kaydet e ekleme yaptım.

Geçerli olduğunda da
siz hocalarımın yardımı ile şu kodları yazmıştık


Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Form_Current()

If Calisiyor_Ayrildi = "Ayrılmış" Then

    Me.Aktif_Pasif = "Ayrılmış"

    ElseIf Calisiyor_Ayrildi = "Kapalı" Then

    Me.Aktif_Pasif = "Kapalı"

    Me.Vize_Baslangic_Trh = ""

    Me.Vize_Bitis_Trh = ""

    Me.Metin40.BackColor = vbRed

Exit Sub

    

ElseIf Me.Personel_Ozel_Durumu <> "" Then Me.Aktif_Pasif = "Aktif"

Me.Metin40.BackColor = vbGreen

ElseIf Me.Vize_Bitis_Trh < Date Then Me.Aktif_Pasif = "Pasif"

Me.Metin40.BackColor = vbRed

ElseIf Me.Personel_Ozel_Durumu = "" Or Me.Vize_Bitis_Trh < Date Then Me.Aktif_Pasif = "Pasif"

Me.Metin40.BackColor = vbRed



End If

Form_Frm_Usta_Bilgileri.Form.Requery
End Sub



açılır kutulardaki verilere göre aktif pasif yazması için güncelleştirme sonrasında sayfayı yenilerse o kodlar aktif olur ve yazar diy düşünmüştüm.  Ama istediğim olmuyor. 


haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Kayan Yazı Hatası te-kin 2 194 04/08/2019, 11:06
Son Yorum: te-kin
Çözüldü Formda Metin Kutularında Veri Görünmemesi U.ALTUN 12 212 03/08/2019, 16:59
Son Yorum: berduş
Çözüldü Açılır Kutu atamsinatamsin 6 236 28/07/2019, 19:43
Son Yorum: berduş
Çözüldü Formda Metin Kutusu İçerik Kontrolü hbal09 4 193 10/07/2019, 16:20
Son Yorum: berduş
Çözüldü Formda Liste Kutusu Çift Tıklama Boş Gelme Sorunu haziran4 1 260 10/05/2019, 11:36
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.