मेरे पास कुछ तालिकाओं के साथ एक एक्सेस डेटाबेस है जो कुछ मूल्यों के साथ दैनिक अद्यतन किया जाता है। मुझे एक ID
फ़ील्ड के लिए तालिकाओं की आवश्यकता होती है, जो स्वतः-उत्पन्न होती है जब तालिका के अन्य मान Excel से आयात किए जाते हैं। मैं एक बटन रखकर और VBA कोड लिखकर सभी को स्वचालित करना चाहता हूं। अभी मेरे पास एक फॉर्म है जो मूल्य को तालिका में आयात करता है, लेकिन यह सिर्फ उन सटीक मूल्यों को आयात करता है जो मेरे पास हैं। ID
आयात करते समय मुझे ऑटो का अतिरिक्त कॉलम भी तैयार करना पड़ता है। क्रिप्या मेरि सहायता करे।
एक्सेल शीट नमूना:
ProductName | ProductValue
------------+--------------
ABC | 76
SDF | 87
DATABASE टेबल
ID|ProductName| Product Value
--+-----------+--------------
1 | ABC |76
2 | SDF |87
एक्सेल शीट प्रत्येक दिन नए मूल्य के साथ अपडेट होती है और इसे एक्सेस डेटाबेस में ID
स्वचालित रूप से वृद्धि के साथ रखना पड़ता है । इसलिए दैनिक अद्यतन के बाद मूल्यों को पिछले मूल्य से बढ़ा दिया जाता है।
Dim filepath As String
filepath = "E:\rt.xlsx"
If FileExist(filepath) Then
DoCmd.TransferSpreadsheet acImport, , "TempfromExcel", filepath, True
DoCmd.OpenQuery "qryAppend", acViewNormal
Else
MsgBox ("File not found.")
End If
AutoNumber
चाहते हैं, तो आपको अपनी पहुंच तालिका में एक फ़ील्ड जोड़ना चाहिए , फिर यदि आप एक ऐसा क्षेत्र चाहते हैं जो हमेशा आपके तालिका की 1 से पंक्ति की गिनती में वापस आए, तो आपको इसके लिए बनाना चाहिए View
;)।