Dotaz Zobraziť iba čísla v programe Access

Access je relačný databázový systém používa na vytvorenie malej a lokálnej databázy . Otázka sa používa na načítanie dát z databázovej tabuľky . Často programátori potrebujú získať čísla z dotazu v programe Microsoft Office Access . Najlepší spôsob , ako dosiahnuť tejto úlohy je pomocou jazyka Visual Basic for Applications alebo VBA . Pokyny dovolená 1

Otvorte databázu Northwind aplikácie Microsoft Office Access súčasťou balíka Microsoft Office . Zvoľte menu " Vložiť " a kliknite na tlačidlo " modul " .
2

Skopírujte a vložte nasledujúci do modulu dotaz čísel adries v " Zákazníci " stola :

Private Sub extractNumbers ( )

Dim strSQL As String

Dim rst ako Recordset

Dim dbs ako databáza

Dim qryStr As String Dim

charRead As String Dim

finalString As String

Set DBS = CurrentDb

strSQL = " SELECT Customers.Address FROM Zákazníci , "

Set rst = DBS . OpenRecordset ( strSQL )

rst.MoveLast

rst.MoveFirst

robiť , keď nie je rst.EOF

qryStr = rst.Fields ( 0 ) . hodnota

robiť , keď qryStr < > " "

charRead = Left ( qryStr , 1 )

Ak IsNumeric ( charRead ) Potom

finalString = finalString & charRead

End If

qryStr = Right ( qryStr , Ľan ( qryStr ) - 1 )

Loop

Debug.Print finalString

finalString = " "

rst.MoveNext

Loop

rst.Close

dbs.Close

End Sub

3

spustiť podprogram stlačením tlačidla " F5 " .

• Predchádzajúca strana: Ako kompilovať programy v MS Access 2007 
• Ďalšia strana: Prístup : VBA Vývoz Query