“Pastrimi” i informacionit përpara se ta importoni në bazën tuaj të të dhënave është mjaft standard - në fund të fundit, një nga arsyet pse keni filluar të përdorni një bazë të dhënash është që të mund të kërkoni në mënyrë të parashikueshme atë bazë të dhënash për kritere të caktuara, apo jo… apo jo? Pra, si i trajtoni situatat e jashtme ku, për shembull, duhet të importoni informacion nga një skedar ku një person shkruan “$”, por një tjetër supozon se e dini se është një vlerë monetare - ose më keq, ku dikush shkruan “am” ose “pm”, por një person tjetër përdor orën 24-orëshe? Si zakonisht, ka shumë mënyra për t'iu qasur problemit, por një mënyrë është të kontrolloni nëse një varg është vetëm një bashkësi numrash, apo nëse përmban ndonjë “jo-numër”. Me pak VBA, ky lloj kontrolli është i thjeshtë - dhe ky artikull do t'ju tregojë se sa e thjeshtë…
Pse duhet ta bëjmë këtë?
Nëse po importoni ndonjë lloj informacioni për të cilin nuk keni kontroll se si futet ose nxirret, atëherë do ta keni hasur këtë problem shumë (shumë!) herë më parë – njerëzit i fusin detajet në mënyrën që u përshtatet më mirë, jo në një mënyrë uniforme. Kjo do të thotë se është vetëm çështje kohe para se të duhet ta bëni këtë. bërë është uniforme përpara se ta importoni.
Një shembull tipik i kësaj është ajo ku ju duhet të importoni të dhëna në një fushë numerike, por kur shikoni të dhënat, shihni se disa kanë ndarë mijëra me presje, të tjerët kanë shtuar një shenjë monedhe - dhe kushedi çfarë tjetër.
Një fjalë e shpejtë kujdesi!
Importimi i të dhënave që nuk janë pastruar në bazën tuaj të të dhënave mund të jetë shumë katastrofik – në rastin më të mirë mund të shtrembërojë raportimin tuaj, në rastin më keq mund të përfundoni me të gjitha llojet e gjërave të prishura – mos lejoni që importet e të dhënave “të pista” të jenë arsyeja që ju po përpiqet të rregulloni problemin e aksesit gjithë fundjavën!
Si të "heqim qafe" karakteret alfabetike
Sigurisht, mund të bëni një kërkim dhe ta zëvendësoni manualisht, por kjo mund të marrë kohë dhe mund të humbisni diçka (nëse jeni duke kërkuar vetëm, për shembull, për shenja të dollarit, mund të humbisni shenjën e euros ose presjet, hapësirat etj.) . Pra, mënyra më e lehtë dhe më e besueshme për ta bërë këtë është të lini Access të bëjë punën e vështirë duke përdorur kodin më poshtë.
Te kodi…
Public Function removeNonNumeric(inString As String) As Long Dim outputString, chrString As String Dim strPos As Integer For strPos = 1 To Len(inString) chrString = Mid(inString, strPos, 1) If IsNumeric(chrString) Then outputString = outputString & chrString Next removeNonNumeric = CLng(outputString) End Function
Çfarë bën kodi
Funksioni këtu është shumë i drejtpërdrejtë. E tëra çfarë bëjmë këtu është të kalojmë në një cikël përmes vargut që kalohet, një karakter në të njëjtën kohë. Nëse karakteri është një numër, atëherë e shtojmë atë në vargun tonë të përkohshëm dhe, kur të mbarojmë, e shndërrojmë atë në një "të gjatë".
Përshtatja e kodit për t'ju përshtatur
Siç mund ta shihni - funksioni kthen një lloj të dhënash "të gjatë" - nëse jeni duke punuar me numra të plotë, ose pika lundruese etj, atëherë do të dëshironi të ndryshoni funksionin në përputhje me rrethanat në mënyrë që të kthejë llojin e duhur të vlerës për bazën e të dhënave tuaja.
Hyrje e autorit:
Mitchell Pond është një ekspert i rikuperimit të të dhënave në DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim SQL Server bazës së të dhënave dhe produkte softuerike të rimëkëmbjes excel. Për më shumë informacion vizitoni www.datanumen.com