რამდენიმე კითხვა MSAccess და VBA-სთან დაკავშირებით -> თბილისის ფორუმი

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

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

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

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

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

რამდენიმე კითხვა MSAccess და VBA-სთან დაკავშირებით, პაწა სკრიპტები მაქვს დასაწერი.

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

ზედგინი Crazy Member ჯგუფი: Members
ზედგინი Crazy Member ჯგუფი: Members წერილები: 4400 წევრი No.: 5307 რეგისტრ.: 30-May 04	#1541001 · 23 Jun 2005, 23:05 · · პროფილი · პირადი მიმოწერა · ჩატი მაშ ასე: მაქსიმალურად გავამარტივებ, ადვილი მისახვედრი რომ იყოს ვყიდულობ 2 ნივთს (A და B) არის ორი მაღაზია (ალფა და ბეტა) არის ფასთა ორი კატეგორია: ალფა მაღაზიაში A ნივთს 1-დან 100-მდე რაოდენობით თუ ვიყიდი, ეღირება 20 ლარი, 101-და მეტი 15 ლ. ბეტა მაღაზიაში იგივე ნივთი 1-დან 100 ღირს 12 ლ, 100 და ზემოთ 22 ლ. ანალოგიური სიტუაციაც ავიღოთ B ნივთზეც: ალფა მაღაზიაში B ნივთს 1-დან 100-მდე რაოდენობით ეღირება 25 ლარი, 101 და მეტი 18 ლ. ბეტა მაღაზიაში იგივე ნივთი 1-დან 100 ღირს 10 ლ, 100 და ზემოთ 20 ლ. InputBox-ში შემყავს ნივთის სახელი და რაოდენობა, და MsgBox უნდა გამომიგდოს, თუ რომელ მაღაზიაში იქნება ეს რაოდენობა უფრო ხელსაყრელად. თითქოს მარტივი ამოცანაა, მაგრამ ვერ ვხვდები, რა პრინციპით ადარებს მაღაზიების ფასებს ერთმანეთს. და თან ჩემი საცდელი სკრიპტიც არ მუშაობს This post has been edited by ზედგინი on 24 Jun 2005, 01:52
	· ციტირება · ^

Kakha
მამა პროგრამისტი
ჯგუფი: Honorary Member

Kakha
მამა პროგრამისტი

ჯგუფი: Honorary Member
წერილები: 49759
წევრი No.: 1639
რეგისტრ.: 22-January 03

#1542038 · 24 Jun 2005, 09:27 · · პროფილი · პირადი მიმოწერა · ჩატი

ზედგინი
ზოგადად ეს ამოცანა არანაერ კავშირში არაა არც Access-თან არც VB-სთან.
შენ უბრალოდ გჭირდება ალგორითმი.
თუ ნივთი მარტო ერთ მაღაზიაში უნდა იყიდო მაშინ ყველაფერი მარტივადაა
ითვლი ფორმულით ფასს ერთ მაღაზიაში და მეორეში და ადარებ, სადაც ნაკლებია იმას ურჩევ.
გააქვს ფუნქცია (პირობითად)
Price(Store,Item,Quantity)
VB-ზე ეს ასე იქნებოდა

CODE

Dim QTY as Integer
Dim Item as String
Dim Store as String

Input "Enter Item Code:",Item
Input "Enter Quantity:",QTY
MSGBOX "Go to " & IIF(Price("Alfa",Item,Quantity)>Price("Beta",Item,Quantity),"Beta", "Alfa") & " Store"

რაც შეეხება ფუნქციას Price(Store,Item,Quantity), ეგ უკვე მართლა ბაზით შეგიძლია გააკეთო რომ უნივერსალური გამოგივიდეს.
ისე მთელი ამოცანაც შეგიძლია ბაზით გააკეთო.

გინდა ერთი ცხრილი ველებით:
Store
Item
MinQTY
Price

აკეთებ ასეთ Query-ს

CODE

PARAMETERS [Enter Item Code] Text ( 20 ), [Enter QTY] Short;
SELECT TOP 1 Prices.StoreCode, Prices.Price
FROM Prices
WHERE (Prices.ItemCode=[Enter Item Code]) AND (Prices.MinQTY<[Enter QTY])
ORDER BY Prices.Price;

მაგალითი (Access MDB ფაილი) დართულია.

ცოტა გადავერთე სხვა თემაზე

მგონი ყველაფერი დაწვრილებით ავხსენი, ეს მაგალითი შეიძლება სხვებსაც გამოადგეს. სამწუხაროდ მეტი დრო არა მაქვს და ალბათ სხვა შეკითხვებზე ვეღარ გიპასუხებთ.

მიმაგრებული ფაილი ( Number of downloads: 50 )

Shopping.rar

--------------------

არ გაბედო სიკვდილი სანამ ცოცხალი ხარ!

ყველაზე მაგარი ტროლი ღმერთია.

PM-ებით არავის ვეხმარები, არ გეწყინოთ მარა თქვენ ბევრი ხართ და მე ერთი და პენსიაზე არ გავსულვარ ჯერ.

SELECT * FROM Posts WHERE UserID NOT IN (SELECT UserID FROM Users WHERE isintriguant+isstupid+isboor+iskadji<>0)

· ციტირება · ^

ზედგინი
Crazy Member
ჯგუფი: Members

ზედგინი
Crazy Member

ჯგუფი: Members
წერილები: 4400
წევრი No.: 5307
რეგისტრ.: 30-May 04

#1542170 · 24 Jun 2005, 10:17 · · პროფილი · პირადი მიმოწერა · ჩატი

Kakha

QUOTE

ზოგადად ეს ამოცანა არანაერ კავშირში არაა არც Access-თან არც VB-სთან

ხო, ზოგადად არა, მაგრამ ამ კონკრეტულ შემთხვევაში Access-ში უნდა გადავჭრა ეს პრობლემა. ანუ ვაკეთებ ფორმულარს მრავალი ღილაკით და ერთერთი იქნება ზემოთნახსენები ამოცანის გამომთვლელი. ამ ღილაკისთვის კოდი უნდა დაიწეროს VB-editor-ში (დავალებაა ასეთი

)

QUOTE

რაც შეეხება ფუნქციას Price(Store,Item,Quantity), ეგ უკვე მართლა ბაზით შეგიძლია გააკეთო რომ უნივერსალური გამოგივიდეს.
ისე მთელი ამოცანაც შეგიძლია ბაზით გააკეთო.

ეგ ბაზა უკვე შედგენილი მქონდა მთელი თავისი ატრიბუტიკით, და ეგ Query-ც გაკეთებული, მაგრამ როგორც ზემოთ ავღნიშნე, ეს ამოცანა მხოლოდ VB-თუ უნდა გადაიჭრას

ზემოთ დადებული:

QUOTE

Access-ის სინტაქსს არ შეესაბამება, მაგრამ ჩემთვის მთავარი ეგ კი არა, ის იყო, რომ გამეგო, რა პრინციპით შემედარებინა ორი ფასი ერთმანეთს და მგონი მივხვდი

ახლა ჩავუჯდები და გადმოვა-Access-ებ.

დიდი მადლობა, მართლა ძალიან დამეხმარე

· ციტირება · ^

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

0 წევრი:

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

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

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

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