g_nikolai

ist wieder einfach zu lösen den Key aus dem Listview lesen und dann ein Delete SQL Befehl schreiben der diesen Datensatz löscht. strDeleteSQL = "DELETE * FROM Tabelle WHERE ID =" & ListviewKey Guido

kannst versucehndir das Buch vom Addison Wesley Verlag zu suchen ehißt VB Datenbankprogrammierung (Client/Server-Systeme) Guido

erläuter mal demn Vorgang den Du erreichen möchtest oder sag mir ob ich das so richtig verstehe. Du möchtest in einer Kombobox eine Abteilung auswählen, dann soll eine andere Kombobox mit Daten gefüllt werden die von der vorher ausgewählten Abteilung gültig/erstellt sind?? guido

schau mal im Thread etwas tiefer:Felder ausgeben da wird sowas ähnliches schon gemacht must nur das Füllen der Kombobox immer wieder neu machen je nachdem welche Abteilung gewählt wird.

Nein ist es nicht. Aber in einer Kombpbox kannst Du nur ein Feld anzeigen. Deine Kombobox wird mit 3 Spalten sein wenn Du im Entwurf darauf schaust. Die erste Zeile wir mit länge 0 sein und dann zwei mit irgendeiner länge, die Access vergeben hat. Nun mach Dir eine weitere Kombobox in der Du als Datenquelle die Abfrage : SELECT ID, Abteilung FROM tabelle; eingibst und benutze nur die beiden Spalten auch in der Kombobox. Dann Siehst Du auch nur die Abteilung in der einen und die Kostenstelle in der anderen. Dann mache folgendes im Quellcode für die Kombobox der Kostenstelle: If Not IsNull(Me.cboKostenstelle) Then ID= Me.cboKostenstelle Me.cboAbteilung.Value = ID End If Und wenn Du möchtest kannst du dies auch andersrum machen so das man eine Abteilung aussucht und die Kostenstelle wird ausgewählt. Gruß Guido PS: ich hoffe es hilft

Na in der DB must Du ein Mapping von der Kostenstelle zur Abteilung haben und schon kannst Du über eine Abfrage die Abteilung als Text auslesen und auf deinem Formular oder sonstwo anzeigen. Guido

Dann brauchst Du einen Eindeutige ID um den Datensatz in der DB zu identifizieren. Schreib ihn Dir am besten in eine Varoiable oder ein nicht Sichtbares Feld auf dem Formular zur Anzeige. Wenn dann der Speichern Button geklickt wird prüfst Du erstmal ob sich die Einträge geändert haben, dafür must Du sie natürlich auch noch in Variablen oder Array zwischenspeichern, damit Du auch den alten Wert hast und nicht nur den neune von der Form. Wenn dann eine änderung vorliegt nimmst Du diesen Datensatz und machst ein Update auf deine Access DB. Schon ist der Eintrag vorgenommen

was verstehst Du den genau darunter? wird der Inhalt eines Recordsets in der Textbox angezeigt? oder wie meinst Du das und wohin soll was gespeichert werden?

wie keine Lizenz was ist den das für ein Quatsch, den Fehler hatte ich bis jetzt nicht. Tut mir leid. Welches Access nutzt Du?

Wenn Du ein Projekt geöffnet hast. gehst Du unter 'Projekt'-> 'Komponete' -> Auswählen von 'Microsoft Common Dialog Control 6.0' dann hast DU in der Toolbox ein weiteres Control welches Du auf dein Formular ziehst und fertig, dann kannst Du es benutzten.

wenn der 98 Rechner hochgefahren ist und ich den Desktop vor mir habe, versucht irgendetwas eine INet connection zu starten, ich konnte ihm das noch nciht austreiben. Vielleicht liegt es auch an der Komponente die ich installieren muste damit 98 die INet-Freigabe auf dem XP fernsteuern kann, aber man kann dort nichts einstellen, sonden nur starten und trennen.

ne daran liegt es nicht. es wird einfach nur der PC gestartet und schon will er ne INet Verbindung über den XP rechner herstellen. Ohne das ich den IE aurufe oder sonst etwas mache

Hallo ihr! ich hab da ein kleines unbedeutendes Problem. ich hab eine Win XP Pro Rehcner der eine Internetverbindungsfreigabe enthält. Nun möchte ich das der Win98 Rechner diese Freigabe auch benutzt. Dies macht er auch nachdem ich solche Dinge von XP unter 98 installiert habe, nun zum Problem immer wenn der 98 PC hochgefahren wird und das Netztwerk scannt will sich der XP Rechner ins INret einwählen ohne das der 98 Rechner den IE geöffnet hat, kann mir jemand sagen warum das passiert? Gruß

mit dem CommonDialog kannst Du dem Benutzer die Möglichkeit geben eine Datei auszusuchen die geöffnet werden soll. Guido

dann müßtest du dir ein Access2000 Object erstellen und die Sachen von dort aus ausführen, also die 2000 öffnen und dort die Befehle zum Kopieren ausführen. Wieso hast du den 2 verschiedene Access Versionen? Guido

so hab ich das mal gemacht: Set objAC97 = New Access.Application objAC97.Visible = False objAC97.OpenCurrentDatabase "c:\testdb.mdb", False objAC97.DoCmd.TransferDatabase acImport, "Microsoft Access", "Zieldb.mdb", acTable, "artikel", "ImpExpArtikel", False objAC97.CloseCurrentDatabase objAC97.Quit acQuitSaveAll Set objAC97 = Nothing dann kannst du den Vereweis auf die neue DB machen und deine Abfragen starten

in welcher Umgebung schreibst Du diesen Code in VB oder VBA??? den einen Eintrag aus nem Listview oder der DB zu löscehnist nicht so kompliziert!

Die Stunden sollten in Industriestunden ausgegeben werden, d.h. z. B. 7,50. Aber der lässt bei der Ausgabe immer die Null weg! Ich habe es schon so versucht: intzeit = Format$(intzeiteingabe, "00.00") aber er gibt es weiter aus wie vorher, also 7,5. versuch mal den Zahlenwert in eine String Variable zu speichern oder Du schreibst den Zahlen wert mit Set lstItem = me.listview1.Listitems.add (,, Format$(intzeit, "00.00") ) in das Listview. So solltst Du Dein Ziel erreichen Gruß Guido

wenn du über das Listview in VB gehst kannst du einem Eintrag einen Key geben der immer einen Buchstaben enthalten muss. ich nehm immer als Key : "r" & lngItemID. !!!Der Key muss immer eindeutig sein.!!!! Wenn Du nun einen Eintrag aus der List und dieser makiert ist kannst du diesen Wert wieder auslesen. Ich gehe wie folgt vor dim lstItem as Listitem FOR EACH lstItem IN ME.listview.listitems IF lstItem.Selected=TRUE THEN lngListID=mid(lstItem.key,2) '** auslesen des Keywertes ohne den Buchstaben ENDIF NEXT lstItem Und so kann ich dann diesen Wert weiterverwenden. Wenn man nun mehrere Werte makieren kann sollte man die Werte entweder nacheinander abarbeiten oder alle in ein Array füllen. Gruß Guido

also doch so wie ich gesagt hatte. nur das bei meinem Beispiel ein & gefehlt hat und deshalb der Fahler kam bzw. Acces das als ende genommen hat

was ist cvs???

wenn die Variable ein Datum enthält kann man die sachen auch mit der Format Funktion rausbekommen. dazu muss die Variable so aussehen: strDate= "20020802" es muss auch jedenfall ein Datum sein strJahr = Format(strDate,"yyyy") strTag = Format(strDate,"dd") strMonat = Format(strDate,"mm") Gruß Guido

ich sachte ja es geht auch kürzer :-) :marine

Private Function CheckEingabe(byval eingabe as string) AS String If eingabe <> "" Then If InStr(1, eingabe, "ö", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Umlaute" ElseIf InStr(1, eingabe, "ä", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Umlaute" ElseIf InStr(1, eingabe, "ü", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Umlaute" ElseIf InStr(1, eingabe, "Ö", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Umlaute" ElseIf InStr(1, eingabe, "Ä", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Umlaute" ElseIf InStr(1, eingabe, "Ü", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Umlaute" ElseIf InStr(1, eingabe, "!", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "§", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "$", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "%", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "&", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "/", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "(", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, ")", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "=", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "?", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "´", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "`", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "^", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "°", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "]", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "{", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "[", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "\", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "+", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "*", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "~", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "#", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "'", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "/", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "*", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "-", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "+", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, ",", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, ".", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, ";", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, ":", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "_", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "µ", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "<", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, ">", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "|", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "€", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, "@", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte keine Sonderzeichen" ElseIf InStr(1, eingabe, " ", vbTextCompare) <> 0 Then CheckEingabe = "Verwenden Sie bitte kein Leerzeichen" Else CheckEingabe = "Ihre Eingabe war korrekt" End If End If End FUNCTION Diese Function sucht nach den Umlauten und gibt dir ne Rückmeldung. Es geht wahrscheinlich noch einfacher, aber so ist ja erstmal ok oder? nach dem " suchst Du mit chr(34)

willst Du per Code die Textfeldinhalte in die Tabelle einfügen in der Access DB oder aus einem anderen Programm oder Code? wenn ja, nimm auf jedenfall Textfeld.Text als Wert und dann kannst du auch mit CurrentDB.Execute arbeiten Dann sollte ein INSERT so aussehen: sql_str = "INSERT INTO testtabelle (stichwort, nummer, text)" & _ VALUES ('" & stichwort_feld.text "','" & nummer_feld.text & "','" & text_feld.text & "')" Currentdb.execute sql_str Versuch es mal. Guido