+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Compile Error: Method Or Data Member Not Found (/konu-compile-error-method-or-data-member-not-found.html)
Compile Error: Method Or Data Member Not Found - DataBilgi - 21/10/2018
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
Cvp: Compile Error: Method Or Data Member Not Found - ozguryasin - 21/10/2018
Öncelikle formumuza hoş geldiniz. Aldığınız hatayı yazmamışsınız. Örnek eklerseniz probleme balalım
Cvp: Compile Error: Method Or Data Member Not Found - ozanakkaya - 22/10/2018
Ö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.
Cvp: Compile Error: Method Or Data Member Not Found - DataBilgi - 24/10/2018
(21/10/2018, 19:13)ozguryasin yazdı: Ö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
Cvp: Compile Error: Method Or Data Member Not Found - Allback - 24/10/2018
(24/10/2018, 17:06)DataBilgi yazdı:(21/10/2018, 19:13)ozguryasin yazdı: Ö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