ძებნა აქსესსში -> თბილისის ფორუმი

Welcome Guest ( ავტორიზაცია | რეგისტრაცია )

ვალიდაციის წერილის ხელახალი გაგზავნა

წესები · დახმარება · ძებნა · წევრები · კალენდარი · რჩეულები · ჩატი

თბილისის ფორუმი -> ტექნიკური კონფერენცია -> პროგრამირება

გამოხმაურება · ახალი თემა · ახალი გამოკითხვა

Pages: (2) 1 [2] ( გადავიდეთ პირველ წაუკითხავ წერილზე )

ძებნა აქსესსში, მაკროსები და რამე...

მივიღოთ შეტყობინება ამ თემის განახლების შესახებ · გაუგზავნეთ ეს გვერდი სხვას · ამოსაბეჭდი ვერსია | თემის რჩეულებში დამატება/წაშლა

Crypto კატა უძაღლო ქვეყანაში ჯგუფი: Members
Crypto კატა უძაღლო ქვეყანაში ჯგუფი: Members წერილები: 11143 წევრი No.: 9780 რეგისტრ.: 3-May 05	#2522592 · 1 Feb 2006, 12:44 · · პროფილი · პირადი მიმოწერა · ჩატი ნახე აბა, მგონი ეს არის პაროლი PM-ში მიმაგრებული ფაილი ( Number of downloads: 41 ) lombardi.rar -------------------- აიღე აგური!
	· ციტირება · ^

kaka ცარიელი ტვინი ჯგუფი: Registered
kaka ცარიელი ტვინი ჯგუფი: Registered წერილები: 1321 წევრი No.: 9758 რეგისტრ.: 3-May 05	#2525789 · 1 Feb 2006, 23:28 · · პროფილი · პირადი მიმოწერა · ჩატი Crypto აუ მეც მითხარი რა პმ -ში
	· ციტირება · ^

Crypto
კატა უძაღლო ქვეყანაში
ჯგუფი: Members

Crypto
კატა უძაღლო ქვეყანაში

ჯგუფი: Members
წერილები: 11143
წევრი No.: 9780
რეგისტრ.: 3-May 05

#2528055 · 2 Feb 2006, 12:40 · · პროფილი · პირადი მიმოწერა · ჩატი

kaka
აბა პაროლი როგორ გითხრა, ეგ ჩემი ბაზა არ არის. თვითონ კოდს დაგიწერ თუ გამოგადგება

ფორმაზე აქვს 2 ტექსტბოქსი, txtFindSaxeli და txtFindGvari, ჩეკბოქსი Check16, 2 კნოპკა cmdFilter და cmdUnfilter. ტექსტბოქსებში წერს შესაბამისად სახელს ან გვარს ან ორივეს, ჩეკბოქსით უტითებს ზუსტად სტრიქონს ეძებს თუ მსგავსს, და cmdFilter-ით ფილტრავს. მოკლედ მარტივია

CODE

Private Sub cmdFilter_Click()
Dim SQL As String, sax As String, gv As String
sax = IIf(IsNull(txtFindSaxeli), "", txtFindSaxeli)
gv = IIf(IsNull(txtFindGvari), "", txtFindGvari)
If Check16.Value Then
sax = "*" + sax + "*"
gv = "*" + gv + "*"
SQL = "Sax Like '" + sax + "' AND Gv Like '" + gv + "'"
Else
If sax <> "" Then
SQL = "Sax='" + sax + "'"
If gv <> "" Then SQL = SQL + " And Gv='" + gv + "'"
Else
SQL = "Gv='" + gv + "'"
End If
End If
'ori variantia Zebnisa, 1) an filtrav zed formaze, 2) an formas ukve gafiltrul monacemebs abav
'1
Me.Filter = SQL
Me.FilterOn = True
'2
'SQL = "Select * from Zebna Where " + SQL
'Me.RecordSource = SQL
Me.Requery
End Sub

Private Sub cmdUnfilter_Click()
Me.FilterOn = False
Me.Requery
End Sub

· ციტირება · ^

1 მომხმარებელი ათვალიერებს ამ თემას (1 სტუმარი და 0 უჩინარი წევრი)

0 წევრი:

« აქეთ | პროგრამირება | იქით »

Pages: (2) 1 [2]

გამოხმაურება · ახალი თემა · ახალი გამოკითხვა

ფორუმის სერვერების განთავსებას და ინტერნეტთან კავშირს უზრუნველყოფს: CLOUD9

[ Script Execution time: 0.0255 ] [ 11 queries used ] [ GZIP Disabled ]