Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

suchen im access. (suchen in abfragen nach round)

209 views
Skip to first unread message

michlchen

unread,
Feb 23, 2010, 12:23:45 PM2/23/10
to
hallo ng.

eine kollegin hat mir gestern erzählt, dass access einen kleinen bug
hat bezüglich des runden auf 0 stellen. diesen wollte ich jetzt
umgehen mit dem trick, ganzzahl((zahl+0,5)/2)

jetzt wollte ich kurz anfragen, ob es eine möglichkeit gibt, sich alle
abfragen anzeigen zu lassen, in denen runden(zahl;0) vorkommt. habe
leider keine wirkliche suchfunktion gefunden und strg + f geht auch
nicht.

danke für die infos. thx.

ps: möchte nicht unbedingt jede der 300 abfragen durchsuchen...

Jens Schilling

unread,
Feb 23, 2010, 12:26:21 PM2/23/10
to
Hallo,

michlchen wrote:
> jetzt wollte ich kurz anfragen, ob es eine m�glichkeit gibt, sich alle


> abfragen anzeigen zu lassen, in denen runden(zahl;0) vorkommt. habe
> leider keine wirkliche suchfunktion gefunden und strg + f geht auch
> nicht.

Schau mal in die FAQ 1.24 Such- und Analysetools ( www.donkarl.com?FAQ1.24 )

--
Gruss
Jens

FAQ: http://www.donkarl.com


Thomas Möller

unread,
Feb 23, 2010, 12:36:01 PM2/23/10
to
Hallo Michlchen,

Am 23.02.2010 18:23, schrieb michlchen:
> eine kollegin hat mir gestern erz�hlt, dass access einen kleinen bug
> hat bez�glich des runden auf 0 stellen. diesen wollte ich jetzt


> umgehen mit dem trick, ganzzahl((zahl+0,5)/2)

weitere Informationen zu diesem Thema findest Du hier:
www.donkarl.com?FAQ2.1
(Link in einer Zeile)


> jetzt wollte ich kurz anfragen, ob es eine m�glichkeit gibt, sich alle


> abfragen anzeigen zu lassen, in denen runden(zahl;0) vorkommt. habe
> leider keine wirkliche suchfunktion gefunden und strg + f geht auch
> nicht.

> ps: m�chte nicht unbedingt jede der 300 abfragen durchsuchen...

Die Suche kannst Du per Code erledigen:

- - 8< - - 8< - - 8< - -

Public Sub BetroffeneAbfragenFinden(ByVal strSuche As String)

Dim db As DAO.Database
Dim qdf As DAO.QueryDef

Set db = CurrentDb
For Each qdf In db.QueryDefs
If InStr(qdf.SQL, strSuche) > 0 Then
Debug.Print qdf.Name
End If
Next qdf
Set db = Nothing

End Sub

- - 8< - - 8< - - 8< - -

Der Aufruf erfolgt aus dem Direktfenster mit folgender Zeile:

call BetroffeneAbfragenFinden("Round")


HTH
--
Thomas

Homepage: www.Team-Moeller.de

michlchen

unread,
Feb 24, 2010, 7:41:20 AM2/24/10
to
mercy.

aber schon krass, dass man wegen ner blöden suchfunktion vba
heranziehen muss. echt schwach meine herren von acc...

0 new messages