|
Access : VBA, Datensätze und-color: #FFFF99'>suchen
m-troeger am 22.02.2007 um 21:14 Uhr (0)
Hallo Larsich bekomm es einfach nicht hin vielleicht kanst du dir die mdb mal ansehen siehe auch erläuterung.txtwäre echt nett ------------------Servus,Mario www.the-skier.de
|
| In das Form Access wechseln |
|
Access : VBA, Datensätze und-color: #FFFF99'>suchen
m-troeger am 21.02.2007 um 21:53 Uhr (0)
Hallo Lars,Code:strSQL = "SELECT count(Tabellenname.Feldname), Tabellenname.KL FROM Tabellenname WHERE Tabellenname.Feldname = Suchwert;"funktioniert bei mir aber nicht, Fehler 3122Sie wollten eine Abfrage ausführen, die den angegebenen Ausdruck nicht als Teil der Aggregatfunktion einschließt.------------------Servus,Mario www.the-skier.de
|
| In das Form Access wechseln |
|
Access : VBA, Datensätze und-color: #FFFF99'>suchen
m-troeger am 26.02.2007 um 15:14 Uhr (0)
Hallo Lars,vielen Dank, nun hast du dir auch noch das WE versaut.Ich habe am WE leider keinen PC (Pendler).Mit dem lernen von DB und Prog. hast du ja recht, aber mir fehlt derzeit noch etwas Lektüre, und so sehr oft benötige ich DBs auch nicht.Ich werde mich nun aber mit deinem Code auseinander setzen.ich denke ich werde dadurch net dümmer.vielen Dank nochmals------------------Servus,Mario www.the-skier.de
|
| In das Form Access wechseln |
|
Access : VBA, Datensätze und-color: #FFFF99'>suchen
m-troeger am 15.02.2007 um 19:01 Uhr (0)
Danke Lars,das Funktioniert ersmal wunderbarfolgende Zeile nochmal zum besseren VerständnisCode:strSQL = "SELECT count(Tabellenname.Feldname) FROM Tabellenname WHERE Tabellenname.Feldname = Suchwert;"wenn ich das so richtig verstanden habenun aber noch bei Case "1" Zitat:Wenn nur ein Datensatz gefunden wird dann soll eine VariableWERT_KL = den Wert aus dem Feld KL dieses Datensatzes der TAB2 erhaltenhier möchte ich den Wert aus Feld KL des gefundenen Datensatzes lesen------------------Servus,Mario www.the ...
|
| In das Form Access wechseln |
|
Access : VBA, Datensätze und-color: #FFFF99'>suchen
m-troeger am 20.02.2007 um 19:58 Uhr (0)
Hallo Lars,bin jetzt zu folgender Lösung gekommenCode:Option ExplicitSub test()Dim dbs As ObjectSet dbs = CurrentDbDim strSQL As StringstrSQL = "SELECT count(Tabellenname.Feldname) FROM Tabellenname WHERE Tabellenname.Feldname = Suchwert;"Dim rst As ObjectSet rst = dbs.OpenRecordset(strSQL) hier kommt immer die Anzahl zurück, auch wenn nur 0 drinnenstehtDim sCountValue As StringsCountValue = rst.Fields.Item(0).ValueSelect Case sCountValue Case "0" mache dies Case "1" mache das Dim WERT_KL as S ...
|
| In das Form Access wechseln |
|
Access : VBA, Datensätze und-color: #FFFF99'>suchen
m-troeger am 14.02.2007 um 22:09 Uhr (0)
Hallo,beim verlassen des Feldes JG der TAB1 im Formularstarte ich eine VBA Procedurdort erhält die Variable WERT_JG den Wert des Feldes JG der TAB1(aktive Tabelle)WERT_JG = Me!JGnun möchte ich abtesten ob es in der TAB2 Datensätze gibt bei welchemder Wert des Feldes GEB = WERT_JG istWenn kein Datensatz gefunden wird dann eine MeldungWenn mehr als ein Datensatz gefunden wird dann eine andere MeldungWenn nur ein Datensatz gefunden wird dann soll eine VariableWERT_KL = den Wert aus dem Feld KL dieses Datensat ...
|
| In das Form Access wechseln |
|
Access : VBA, Datensätze und-color: #FFFF99'>suchen
m-troeger am 19.03.2007 um 22:43 Uhr (0)
Hallo,ich habe nun im Formular FRM_STARTER noc etwas geändert, um mir ein recordset zu sparenCode alt:Code: in die tabelle klasse schauen, ob das geburtsjahr irgendwo in die definition reinpasstDim dbs As ObjectSet dbs = CurrentDbDim strSQL As StringstrSQL = "SELECT count(klasse.jg_von) " & _ "FROM klasse " & _ "WHERE klasse.jg_von = " & sJahrgang & " " & _ "AND klasse.jg_bis = " & sJahrgang & " " & _ "AND klasse.sex = " & sGeschlecht & ";"Dim rst As ObjectSet rst = dbs.OpenRecordset(strSQL ...
|
| In das Form Access wechseln |
|
Access : VBA, Datensätze und-color: #FFFF99'>suchen
m-troeger am 22.02.2007 um 23:11 Uhr (0)
Hallo Lars,ich habs nun fast Formular KLASSE funktioniert jetzt neuer CodeCode: in VBA Formular FRM_KLASSEPrivate Sub BTN_JGBERECHNEN_Click()Dim JAHR, ALTERJ, ALTERAE As VariantDim MEID As SingleMEID = Me!IDJAHR = FRM_KLASSE_TXT_JAHR.ValueALTERJ = FRM_KLASSE_TXT_ALTERJ.ValueALTERAE = FRM_KLASSE_TXT_ALTERAE.ValueIf ALTERAE "" And ALTERJ "" And JAHR "" ThenALTERJ = JAHR - ALTERJALTERAE = JAHR - ALTERAEDim s1, s2 As Strings1 = "Update KLASSE SET JG_von = " & ALTERJ & " WHERE ID= " & MEID & " "s2 = "Up ...
|
| In das Form Access wechseln |
