एक्सेस क्वेरी निष्पादित करने के लिए VBA कोड (छवि के साथ)
यह क्या है?यह VBA कोड आपको चलाने में मदद करता है पहुँच किसी भी वीबीए समर्थित टूल जैसे एमएस एक्सेल, वर्ड इत्यादि से क्वेरी करें।क्यों यह है?आप डेटाबेस को खोलने और क्वेरी को मैन्युअल रूप से निष्पादित करने की प्रक्रिया से बच सकते हैं; यह कोड एक्सेल से भी निष्पादित होगा एक्सेस खोले बिना शीट DB manually.If you use the Import क्वेरी परिणाम तक पहुंचें पिछली पोस्ट में चर्चा किए गए कोड से आपको एक्सेल में क्वेरी परिणाम भी मिलते हैं, सब कुछ सिर्फ एक क्लिक में।एक्सेल में एक्सेस टेबल/क्वेरी डेटा आयात करने के लिए वीबीए कोडएक्सेस क्वेरी निष्पादित करने के लिए VBA कोड का उपयोग कैसे करें
स्टेप 1: नीचे दिए गए कोड को अपने मॉड्यूल में कॉपी पेस्ट करें।
डेटाबेस के रूप में मंद myDB
MyDB = OpenDatabase ("C:\MYDATABASE.mdb") सेट करें 'डीबी पथ का उल्लेख करें और 'MYDATABASE' को अपने एक्सेस डीबी नाम से बदलें
myDB.निष्पादित करें "myQuery" 'myQuery को अपने एक्सेस क्वेरी नाम से बदलें
myDB.बंद करें 'इसका उपयोग केवल तभी करें जब आप डीबी को बंद करना चाहते हों
चरण दो: एक्सेस क्वेरी निष्पादित करने के लिए रन बटन या F5 पर क्लिक करें।
2 Responses
Hello Anson, try to find out how, but I can’t….. (aaargggghhh)
I have a simple MDB (accessDB) with one table LoginUserDB
There are 3 fields: UserName UserShortName LastLogIn
UserShortName = a date field, the other two (UserName & UserShortName) are text fields
What will be the best way, if I want to search for all:
UserName = anson.antony
and update on that all, the field: UserShortName to XXX
and the field LastLogIn to Format(Now, “DD.MM.YYYY”) (actual date)
Sorry for bothering you, but I test so different ways without result….
Thanks in advance
Pedro
Resolved = Thanks and sorry !