Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Mükerrer kayıt uyarısında hata

alpertunga65
alpertunga65
Access Cevaplanmış Soruları
10
3445

Mükerrer kayıt uyarısında hata

#7
alpertunga65
Aktif Üye
alpertunga65
Bul
Aktif Üye
Adı Soyadı: Hü.... Öz....
Konum: İzmir
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 11/05/2016,21:51
Yorumları: 42
Konuları: 14
Kayıt Tarihi: 15/03/2013
Teşekkür Puanı: 0
(26/11/2014, 01:26)ozanakkaya yazdı: İsteğiniz oldu mu emin değilim. Sorudan anladığım kadarıyla örnek uygulamanızı düzenledim.

İnceleyip bilgi veriniz.
Sayın ozanakkaya, soruma verdiğiniz cevap ve gösterdiğiniz ilgi için çok teşekkür ederim.
Eklediğiniz örnek üzerinde bir kaç deneme yaptım. Ancak şu hatayı aldım;

Aynı VericiYeri'nde Temas frekansı olarak atadığım Frekans değerini Esas Frekans veya Yedek Frekans olarak da atamak istediğimde mesajı doğru olarak veriyor. Ancak; mesajı aldığımda, Esas Frekans veya Yedek Frekans olarak başka bir Frekans değerini atamak istediğimde de aynı mesajı alıyorum ve atama gerçekleşmiyor.

Ne Mutlu Türk'üm Diyene...
Saygılarımla...
Ne Mutlu Türk'üm Diyene.
Cevapla
#8
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 24/01/2025,12:55
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Merhaba, ben sadece "Temas Frekans Tahsisi" butonuna kod uyguladım. Bu buton doğru çalışıyorsa kodu diğer butonlara uygulamalısınız.
Cevapla
#9
alpertunga65
Aktif Üye
alpertunga65
Bul
Aktif Üye
Adı Soyadı: Hü.... Öz....
Konum: İzmir
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 11/05/2016,21:51
Yorumları: 42
Konuları: 14
Kayıt Tarihi: 15/03/2013
Teşekkür Puanı: 0
(27/11/2014, 01:03)ozanakkaya yazdı: Merhaba, ben sadece "Temas Frekans Tahsisi" butonuna kod uyguladım. Bu buton doğru çalışıyorsa kodu diğer butonlara uygulamalısınız.
sayın ozanakkaya,

maalesef diğer butonlara da aynı kodu uygulayarak denedim, ancak sonuç değişmedi.

teşekkür ederim.
Ne Mutlu Türk'üm Diyene.
Cevapla
#10
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 24/01/2025,12:55
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
3 butonun kodlarını aşağıya yazdım. Kodları değiştirip deneyiniz.


Private Sub Komut16_Click()



'On Error GoTo Err_Komut16_Click

' Temas frekansına koşulsuz frekans tahsisi için aşağıdaki işlem yapılır.

Dim a, b As Integer



a = DCount("[FREID]", "TLSCVRFREKANSISLEMLERI", "[VERYERID]=" & [Forms]![Frm_VERICIYERI_FREKANS_TAHSISI]![kontrolveryerid] & " and [TEMASFRE]='" & [FREKANS] & "'")

                                                            

If a > 0 Then

MsgBox Me.[FREKANS] & " numaralı kayıttan daha önce girilmiş."

Me.Undo



Else



Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![TEMASFRE] = Me.FREKANS

Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![FREDGRT] = Me.FREDEGER

Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![FREKODT] = FREKODURET(Len(J - 1))

KULLANIM = -1





 DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

    DoCmd.Close

End If



'Exit_Komut16_Click:

 '   Exit Sub



'Err_Komut16_Click:

'    MsgBox Err.Description

'    Resume Exit_Komut16_Click

    

End Sub

Private Sub Komut19_Click()

'On Error GoTo Err_Komut19_Click

Dim b As Integer



b = DCount("[FREID]", "TLSCVRFREKANSISLEMLERI", "[VERYERID]=" & [Forms]![Frm_VERICIYERI_FREKANS_TAHSISI]![kontrolveryerid] & " And [ESASFRE]='" & [FREKANS] & "' Or [TEMASFRE]='" & [FREKANS] & "'")



If b > 0 Then

MsgBox Me.[FREKANS] & " numaralı kayıttan daha önce girilmiş."

Me.Undo



Else



Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![ESASFRE] = Me.FREKANS

Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![ESASFREDGR] = Me.FREDEGER

Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![ESASFREKOD] = FREKODURET(Len(J - 1))

KULLANIM = -1



 DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

DoCmd.Close

   End If

   

'Exit_Komut19_Click:

'    Exit Sub



'Err_Komut19_Click:

'    MsgBox Err.Description

'    Resume Exit_Komut19_Click

    

End Sub



Private Sub Komut22_Click()

'On Error GoTo Err_Komut22_Click

Dim c As Integer



c = DCount("[FREID]", "TLSCVRFREKANSISLEMLERI", "[VERYERID]=" & [Forms]![Frm_VERICIYERI_FREKANS_TAHSISI]![kontrolveryerid] & " And [ESASFRE]='" & [FREKANS] & "' Or [TEMASFRE]='" & [FREKANS] & "'  Or [YEDEKFRE]='" & [FREKANS] & "'")



                                                            

If c > 0 Then

MsgBox Me.[FREKANS] & " numaralı kayıttan daha önce girilmiş."

Me.Undo



Else

Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![YEDEKFRE] = Me.FREKANS

Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![YEDEKFREDGR] = Me.FREDEGER

Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![YEDEKFREKOD] = FREKODURET(Len(J - 1))

KULLANIM = -1

 

 DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

    DoCmd.Close

End If

'Exit_Komut22_Click:

'    Exit Sub



'Err_Komut22_Click:

'    MsgBox Err.Description

'    Resume Exit_Komut22_Click

    

End Sub
Cevapla
#11
alpertunga65
Aktif Üye
alpertunga65
Bul
Aktif Üye
Adı Soyadı: Hü.... Öz....
Konum: İzmir
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 11/05/2016,21:51
Yorumları: 42
Konuları: 14
Kayıt Tarihi: 15/03/2013
Teşekkür Puanı: 0
(28/11/2014, 02:08)ozanakkaya yazdı: 3 butonun kodlarını aşağıya yazdım. Kodları değiştirip deneyiniz.


Private Sub Komut16_Click()



'On Error GoTo Err_Komut16_Click

' Temas frekansına koşulsuz frekans tahsisi için aşağıdaki işlem yapılır.

Dim a, b As Integer



a = DCount("[FREID]", "TLSCVRFREKANSISLEMLERI", "[VERYERID]=" & [Forms]![Frm_VERICIYERI_FREKANS_TAHSISI]![kontrolveryerid] & " and [TEMASFRE]='" & [FREKANS] & "'")

                                                            

If a > 0 Then

MsgBox Me.[FREKANS] & " numaralı kayıttan daha önce girilmiş."

Me.Undo



Else



Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![TEMASFRE] = Me.FREKANS

Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![FREDGRT] = Me.FREDEGER

Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![FREKODT] = FREKODURET(Len(J - 1))

KULLANIM = -1





 DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

    DoCmd.Close

End If



'Exit_Komut16_Click:

 '   Exit Sub



'Err_Komut16_Click:

'    MsgBox Err.Description

'    Resume Exit_Komut16_Click

    

End Sub

Private Sub Komut19_Click()

'On Error GoTo Err_Komut19_Click

Dim b As Integer



b = DCount("[FREID]", "TLSCVRFREKANSISLEMLERI", "[VERYERID]=" & [Forms]![Frm_VERICIYERI_FREKANS_TAHSISI]![kontrolveryerid] & " And [ESASFRE]='" & [FREKANS] & "' Or [TEMASFRE]='" & [FREKANS] & "'")



If b > 0 Then

MsgBox Me.[FREKANS] & " numaralı kayıttan daha önce girilmiş."

Me.Undo



Else



Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![ESASFRE] = Me.FREKANS

Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![ESASFREDGR] = Me.FREDEGER

Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![ESASFREKOD] = FREKODURET(Len(J - 1))

KULLANIM = -1



 DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

DoCmd.Close

   End If

   

'Exit_Komut19_Click:

'    Exit Sub



'Err_Komut19_Click:

'    MsgBox Err.Description

'    Resume Exit_Komut19_Click

    

End Sub



Private Sub Komut22_Click()

'On Error GoTo Err_Komut22_Click

Dim c As Integer



c = DCount("[FREID]", "TLSCVRFREKANSISLEMLERI", "[VERYERID]=" & [Forms]![Frm_VERICIYERI_FREKANS_TAHSISI]![kontrolveryerid] & " And [ESASFRE]='" & [FREKANS] & "' Or [TEMASFRE]='" & [FREKANS] & "'  Or [YEDEKFRE]='" & [FREKANS] & "'")



                                                            

If c > 0 Then

MsgBox Me.[FREKANS] & " numaralı kayıttan daha önce girilmiş."

Me.Undo



Else

Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![YEDEKFRE] = Me.FREKANS

Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![YEDEKFREDGR] = Me.FREDEGER

Forms![Frm_VERICIYERI_FREKANS_TAHSISI]![VERICIYERITLSCVRFREKANSISLEMLERI].[Form]![YEDEKFREKOD] = FREKODURET(Len(J - 1))

KULLANIM = -1

 

 DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

    DoCmd.Close

End If

'Exit_Komut22_Click:

'    Exit Sub



'Err_Komut22_Click:

'    MsgBox Err.Description

'    Resume Exit_Komut22_Click

    

End Sub

sayın ozanakkaya, çok teşekkür ederim.
Bu sefer kodlar çalıştı problem görünmüyor, bir kaç defa deneme yaptım olumlu sonuç verdi.
Sayenizde büyük bir eşiği atlamış oldum.. Çok ama çok teşekkür ederim.
Ne Mutlu Türk'üm Diyene.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task