Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
21/10/2018 18:25
Konu Sahibi
DataBilgi
Yorumlar
4
Okunma
146
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

DataBilgi

Üye
 47
 5
 20
 21/10/2018
0
 
 
 
 02/11/2018,21:47
Çözüldü 
Table kismina "Maliyet Kodu" adli bir field adi ekledim ve bu adi formuma tasidim fakat ne zaman Maliyet Kodu alanina veri girmeye kalksam yukaridaki hatayi aliyirum

 If Not IsNull(Me.txtFilterMaliyetKodu) Then
        strWhere = strWhere & "([MaliyetKodu] Like ""*" & Me.txtFilterMaliyetKodu & "*"") AND "
    End If
-----------------------------------------------------------------------------------------------------------------------------------------------------------
   




Option Compare Database
Option Explicit
Private Sub cmdFilter_Click()
   
    Dim strWhere As String
    Dim lngLen As Long
    Const conJetDate = "\#mm\/dd\/yyyy\#"
    
        If Not IsNull(Me.txtFilterCity) Then
        strWhere = strWhere & "([Location] Like ""*" & Me.txtFilterCity & "*"") AND "
    End If
     
     If Not IsNull(Me.txtFilterInstalledDate) Then
        strWhere = strWhere & "([Installed Date] Like ""*" & Me.txtFilterInstalledDate & "*"") AND "
    End If
            
    
    If Not IsNull(Me.txtFilterMainName) Then
        strWhere = strWhere & "([Description] Like ""*" & Me.txtFilterMainName & "*"") AND "
    End If
    
       
     If Not IsNull(Me.txtFilterDepartmen) Then
        strWhere = strWhere & "([Departmen] Like ""*" & Me.txtFilterDepartmen & "*"") AND "
    End If
    
     'If Not IsNull(Me.txtFilterClassroom) Then
        'strWhere = strWhere & "([Classroom] Like ""*" & Me.txtFilterClassroom & "*"") AND "
    'End If
    
    If Not IsNull(Me.txtFilterDepot) Then
        strWhere = strWhere & "([Depot] Like ""*" & Me.txtFilterDepot & "*"") AND "
    End If
    
    If Not IsNull(Me.txtFilterSerialNumber) Then
        strWhere = strWhere & "([Serial Number] Like ""*" & Me.txtFilterSerialNumber & "*"") AND "
    End If
    
    If Not IsNull(Me.txtFilterMake) Then
        strWhere = strWhere & "([Make] Like ""*" & Me.txtFilterMake & "*"") AND "
    End If
    
    If Not IsNull(Me.txtFilterModel) Then
        strWhere = strWhere & "([Model] Like ""*" & Me.txtFilterModel & "*"") AND "
    End If
    
     If Not IsNull(Me.txtFilterMaliyetKodu) Then
        strWhere = strWhere & "([MaliyetKodu] Like ""*" & Me.txtFilterMaliyetKodu & "*"") AND "
    End If
   
      
    'If Not IsNull(Me.txtStartDate) Then
   '     strWhere = strWhere & "([EnteredOn] >= " & Format(Me.txtStartDate, conJetDate) & ") AND "
  '  End If
    
        
    
    'If Not IsNull(Me.txtEndDate) Then
    '    strWhere = strWhere & "([EnteredOn] < " & Format(Me.txtEndDate + 1, conJetDate) & ") AND "
  '  End If
    
   
    lngLen = Len(strWhere) - 5
    If lngLen <= 0 Then
        MsgBox "Bilgi ile ilgili en az bir kriter giriniz!!", vbInformation, "Lütfen Dikkat!!"
    Else
        strWhere = Left$(strWhere, lngLen)
       
        Me.Filter = strWhere
        Me.FilterOn = True
    End If
End Sub

Private Sub cmdReset_Click()
    
    Dim ctl As Control
    
    
    For Each ctl In Me.Section(acHeader).Controls
        Select Case ctl.ControlType
        Case acTextBox, acComboBox
            ctl.Value = Null
        Case acCheckBox
            ctl.Value = False
        End Select
    Next
    
    
    Me.FilterOn = False
End Sub

Private Sub Form_BeforeInsert(Cancel As Integer)
   
    Cancel = True
    MsgBox "You cannot add new clients to the search form.", vbInformation, "Permission denied."
End Sub


Private Sub Command64_Click()
On Error GoTo Err_Command64_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmAs2"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command64_Click:
    Exit Sub

Err_Command64_Click:
    MsgBox Err.Description
    Resume Exit_Command64_Click
    
End Sub

Private Sub add_data_Click()
On Error GoTo Err_add_data_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frmAs2"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_add_data_Click:
    Exit Sub

Err_add_data_Click:
    MsgBox Err.Description
    Resume Exit_add_data_Click
    
End Sub



Kullanici Avatari

ozguryasin

Uzman
Öz.... Ya....
 36
 44
 1.110
 23/09/2009
613
 Bursa
 Yazılım
 Ofis 2010 32 Bit
 Bugün,12:43
Öncelikle formumuza hoş geldiniz. Aldığınız hatayı yazmamışsınız. Örnek eklerseniz probleme balalım


POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.

Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.718
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,18:15
Örneği görmeden çözüm bulmak zor. Mesajınızda Maliyet Kodu yazmışsınız ancak kod içerisinde [MaliyetKodu] şeklinde geçiyor. Sorun bu olabilir, Örneğinizi eklerseniz inceleme şansımız olur.


"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. 

Kullanici Avatari

DataBilgi

Üye
 47
 5
 20
 21/10/2018
0
 
 
 
 02/11/2018,21:47
(21/10/2018 19:13)ozguryasin Adlı Kullanıcıdan Alıntı: Öncelikle formumuza hoş geldiniz. Aldığınız hatayı yazmamışsınız. Örnek eklerseniz probleme balalım

Hoşbulduk. Teşekkür ederim. Ben hatayı buldum ve çözdüm fakat şimdi başka bir problemim var. Benim üzerinde arama yapabileceğim bir formum var ve bu üzerinde bulunan 8 kritere göre veri arayabiliyorum. Kriterlerime uygun veriler aynı formun hemen altında gözüküyor. Bu arama kriterlerine göre seçilmiş veriyi nasıl form haline getirebilirim?

Saygılrımla,
Yusuf



Kullanici Avatari

Allback

Uzman
Er.... Er....
 35
 39
 300
 16/11/2011
26
 Kocaeli
 Yönetici
 Ofis 2016 64 Bit
 Bugün,17:25
(24/10/2018 17:06)DataBilgi Adlı Kullanıcıdan Alıntı:
(21/10/2018 19:13)ozguryasin Adlı Kullanıcıdan Alıntı: Öncelikle formumuza hoş geldiniz. Aldığınız hatayı yazmamışsınız. Örnek eklerseniz probleme balalım

Hoşbulduk. Teşekkür ederim. Ben hatayı buldum ve çözdüm fakat şimdi başka bir problemim var. Benim üzerinde arama yapabileceğim bir formum var ve bu üzerinde bulunan 8 kritere göre veri arayabiliyorum. Kriterlerime uygun veriler aynı formun hemen altında gözüküyor. Bu arama kriterlerine göre seçilmiş veriyi nasıl form haline getirebilirim?

Saygılrımla,
Yusuf

Merhaba bir önceki sorununuz çözüldüyse, yeni sorunuz için lütfen yeni konu açın.
Konunuzu cevaplanmış sorular bölümüne taşıyorum




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Ms Access Excel Veri Alma Sorunu / Ms Access Import Data hakkih 13 1.705 10/01/2019, 21:40
Son Yorum: hakkih
Çözüldü Compile error in hidden module hatası çözümü nedir? mehami 5 3.089 13/12/2018, 10:20
Son Yorum: ozanakkaya
Çözüldü "Method 'FileDialog' of object '_Application' failed" hatası access acemisi 5 130 27/11/2018, 14:53
Son Yorum: access acemisi
Çözüldü Compile Error notrino 2 175 11/09/2018, 22:47
Son Yorum: notrino
Çözüldü Access İle Sql Deki Wiev Den Data Alma. barcins 1 174 25/07/2018, 17:05
Son Yorum: ozanakkaya

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