Skip to main content

AccessTr.neT


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

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

#7
(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
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
(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
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
(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