Sonic83

Hallo! Wie kann ich z.B. in der Tabelle Kunden den Typ der Spalte Kundenummer von Text auf Zahl in VBA ändern??? Gruß Sonic83

Problem hat sich gelöst. War ja einfacher als ich gedacht habe. Einfach mit Recordset.edit und recordset.update und schon war alles paletti

Da hast du was missverstanden. Ich importier die Daten aus einer Textdatei in der sie leider mit 0001 gespeichert sind. Und an dieser Textdatei kann ich nichts machen, da sie wieder aus einem anderen Programm geliefert wird.

Hallo! Ausgangssituation: Ich hab eine Tabelle in der Kundendaten gespeichert sind. Dort gibt es ein Feld Kundennummer das vom Typ Text ist. Leider muss es vom Typ Text sein, da auch XXXXX drin stehen kannm, wenn noch keine Nummer vorhanden. Ich importiere die Kundendaten in Access und in meiner Tabelle werden dann Kundennummern z. B. 00001 abgespeichert. Problem: Ich bräuchte die Nummer aber als 1. Gibt es eine Möglichkeit über die Tabelle drüber zu gehen und die vorgestellten Nullen zu entfernen?? Ist das nicht irgendwie mit einem Recordset zu lösen??? Ich les mit Hilfe eines Selects die ganze Tabelle in eine Recordset ein und geh dann von Datensatz zu Datensatz. Und änder dann den Wert. Aber wie krieg ich dann die Daten aus dem Recordset zurück in die Tabelle?? Für Hilfe wäre ich dankbar! <FONT COLOR="#a62a2a" SIZE="1">[ 25. Oktober 2001 15:07: Beitrag 1 mal editiert, zuletzt von Sonic83 ]</font>

Hatte nen dummen Tippfehler! Danke!!

Danke für den Tip! Hab ich aber schon gekannt. Und in SQL kenn ich mich eigentlich ziemlich gut aus. Bis jetzt hab ich alles in SQL hinbekommen, was ich mir vorgestellt habe. Jetzt hab ich doch noch ein Problem! So wie du mir es gesagt hast, klappt es "fast super". Der Bericht geht auf es sieht so aus als ob alle Datensätze richtig selektiert werden, da die Anzahl der Seiten des Berichtes stimmt. Nur leider füllt er die ganzen Felder mit meinen Werten nicht auf, d. h. die Struktur der Felder ist zwar da und er weis auch wieviele Datensätze selektiert werden, aber access zeigt keine Daten an. Und an der Schriftfarbe liegt es auch nicht, hab ich schon nachgeprüft, war mein erster Gedanke! Kannst du mir vielleicht weiterhelfen, was da schief leuft??? <FONT COLOR="#a62a2a" SIZE="1">[ 25. Oktober 2001 10:46: Beitrag 1 mal editiert, zuletzt von Sonic83 ]</font>

Danke! So wollt ich es eigentlich auch machen. Da ich mir den String für die Abfrage erst selber basteln muss, je nach dem was der User ausgewählt hat. Und so brauch ich dann nicht mal ein Recordset! Gruß Sonic83 P.S.: Sollte ich noch Probleme haben, melde ich mich nochmal!

Hallo! Ich habe folgendes Problem. Ich hab mir in VBA meine Daten aus den Tabellen zusammengesucht und in einem Recordset gespeichert. Wie kann ich das jetzt machen, dass ich in VBA eine Bericht öffne und ihm als Datenquelle nicht eine Abfrage oder Tabelle gebe, sondern den Recordset??? Gruß Sonic83

Hallo! Habe folgendes Problem. Ich hab mir eine Abfrage generiert, bei der ich ein Feld Kunden-Nr habe. Das Feld ist das Kriterium. Wenn ich die Abfrage so starte frägt mich Access nach dem Paramter für die Kunden-Nr und ich kann ihn eingeben. Jetzt möchte ich die Kundennummer aber aus einem Formular übernehmen. Wie bekomme ich das hin, dass ich auf einen Button klicke und die Abfrage mit dem Parameter Kunden-Nr aus einer Textbox starte??? Gruß Sonic83

Hallo! Ich bin grad auf ein Problem gestoßen. Ich muss meine die Tabellennamen in meiner Datenbank auf einen bestimmten Namen vergleichen. Jetzt komm ich nicht drauf wie ich den Namen abprüfen kann. Es muss doch sowas wie die Art geben: For Each Table in CurrenDB if Table.Name = "Test" Then MsgBox "Gefunden" next Leider hab ich so schon alles probiert. Kann mir da vielleicht jemand weiterhelfen??? Gruß Sonic83

Hat sich erledigt, hab ich selber gefunden! Man muss eine Spezifikation erstellen und dann funktioniert es. Wer genauers drüber wissen will, kann mir mal mailen. Der Thread kann geschlossen werden!

Hallo! Wie kann ich beim Importieren über die Methode DoCmd.TransferText der Methode sagen, das meine Textdatei durch Tabulatoren getrennt ist?? Im Moment importiert er die ganze Datei in eine Spalte und macht halt statt einem Tabulator ein Sonderzeichen zwischen jedes Wort. Gruß Sonic83

Hallo! Ich habe folgendes Problem. Ich möchte einen Schlüssel aus der Registry auslesen! Das realisiere ich mit API-Funktionen. Mein Aufruf sieht so aus! If RegQueryValueEx(hKey, "(Standard)", 0&, ValType, ByVal _ Value, Length) <> ERROR_SUCCESS Then MsgBox "Fehler beim Aulesen des Schlüssels !" Exit Sub End If Soweit so gut! (Standard) ist der Name des Schlüssels! Dieser Schlüssel kommt in jedem Ordner vor. Nehme ich aber diesen Schlüssel zum auslesen wird immer eine Fehlermeldung ausgegeben. Mit jedem anderen Schlüssel funktioniert es. Wie kann ich auf den Wert (Standard) zugreifen??? Wie muss ich ihn ansprechen??? Gruß Sonic83

Könnt ich so schon machen, hast du recht! Den Pfad hab ich schon. Ich muss also nur noch nen Inhalt der Datei in eine Spalte schreiben und dann sollte es gehen..

Hallo! Ich habe folgendes Problem! Ich hab ihn einem Formular ein Listenfeld, welches beim Laden des Formulars gefüllt werden soll. Das klingt ja auch noch ganz einfach! Jetzt bin ich halt in den Code-Editor gegangen und wollte in der Funktion Form_Load das Listenfeld füllen! Ich hab brav eingegeben lstDateien. und dann ging das Auswahlmenü mit den ganzen Funktion auf. Leider war dort keien Funktion AddItem dabei mit der man eigentlich das Listenfeld füllt. Was mach ich falsch, oder geht das gar nicht, das Listenfeld so zu füllen??? Eine Abfrage oder Tabelle kann ich als Datenherkunft bei diesem Listenfeld leider nicht nehmen, da sich die Einträge aus Dateinamen und Inhalten von Dateien zusammensetzten! Für Hilfe wäre ich sehr dankbar! Gruß Sonic83

Danke! Hab ich erhalten. Werd mich da schon irgendwie zurechtfinden. Kennst du vielleicht irgendeine Seite wo das mit den API-Funktionen gut erklärt wird, was man so alles machen kann???

Ich möchte den Pfad von meiner Platte auswählen. Kannst du mir vielleicht sagen, wie das mit der API-Funktion geht. Also Codetechnisch meine ich??? Mit dem MS CommonDialog 6.0 Steuerelement hab ich es schon versucht. Leider kann ich das nicht verwenden, da es nicht richtig registriet ist, weil ich kein VB habe...

Hallo! Ich habe folgendes Problem! Ich habe in einem Formular einen Button. Wenn man auf diesen Button klickt, soll ein Dialog aufgehen, bei dem man einen Dateipfad auswählen kann. Dieser Pfad soll dann in einer Textbox stehen. Es gibt doch schon so Standard-Dialog bei denen sowas realiesiert ist. Kann mir jemand sagen, wie ich diese Aufrufe??? Danke Gruß Sonic83

Hat das jetzt eigentlich so geklappt, wie ich es vorgeschlagen habe???

Danke mit Format funktioniert es!!!

Also so geht es nicht. Und die Methode Round wie in VB gibt es komischer Weise auch nicht!

Hallo! Ich habe nur ne kleine Frage! Hab ne Variabel vom Typ Single. Jetzt will ich sie auf 2 Nachkommastellen runden. Ich hab dafür aber keine Funktion gefunden! Weis jemand von euch eine??? Ich mach VBA unter Access 97 Gruß Sonic83

Soweit ich das sehe hast du deinen JOIN falsch aufgebaut. Im JOIN darf kein AND vorkommen. Meiner Meinung nach müsste das so aussehen: SELECT ... FROM ... WHERE Gast INNER JOIN Comment (INNER JOIN Country ON G.[Land-ID] = CO.[Land-ID]) ON G.[Gast-ID] = C.[Gast_ID] Probiers mal so, wenn es nicht funktioniert kannst du dich ja nochmal melden...

Hallo! Ich habe es jetzt versucht so wie du mir es gesagt hast. Leider macht er hier immernoch das gleiche. Er importiert immer nur das erste Tabellenblatt. Hier ist mein Quellcode für die Funktion. Vielleicht entdeckst du noch einen Fehler und kannst mir nochmal helfen! Sonic83 Function Tabelle_importieren() Dim xlsAppl As New Excel.Application strTabelleHilfe = "09_2001" xlsAppl.Workbooks.Open "C:\Test.xls" xlsAppl.Sheets(strTabelleHilfe).Select xlsAppl.Save DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel3, strTabelleHilfe, "C:\Test.xls", True xlsAppl.Workbooks.Close End Function

und wie kann ich das dann deiner Meinung nach machen??? Könntest du mir vielleicht den Teil Quellcode mal posten, wie du das machen würdest?? Würde mir sehr helfen! Danke Sonic83