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

Derecelendirme: 0/5 - 0 oy
haziran4

haziran4

Aktif Üye
6706
 44
 55
 188
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 18/06/2019,17:53
Çö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.

halily

halily

Uzman
65596
ha....
 26
 1.161
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Dün,23:49
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
 483
 12.101
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,22:39
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
 18/06/2019,17:53
[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.

...........
halily

halily

Uzman
65596
ha....
 26
 1.161
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Dün,23:49
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
 18/06/2019,17:53
(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ü Formda Form Yenileme haziran4 2 163 02/05/2019, 13:44
Son Yorum: haziran4
Çözüldü Formda Formül Kullanma haziran4 8 242 02/05/2019, 13:04
Son Yorum: haziran4
Çözüldü Access Hatası FulyaTekin 4 120 01/05/2019, 15:06
Son Yorum: FulyaTekin
Çözüldü Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi haziran4 3 153 30/04/2019, 13:04
Son Yorum: haziran4
Çözüldü Formda If İç İçe Kullanım haziran4 28 542 30/04/2019, 12:17
Son Yorum: haziran4

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