Hironimo

falls du das problem hast, das der Verbindungsvorgang etwas länger dauert und schon versucht wird zu senden, sollte folgendes helfen: do doevents loop while winsock1.state <> 7 Hier sollte noch eine Überprüfung vorgenommen werden, denn wenn z.B. eine falsche Adresse eingegeben wird, haben wir eine Endlos Schleife. hiro

Ich poste es lieber, da haben andere auch was davon. Hier mal eine funktion in VB. Public Function Dec2Bin(DezimalZahl As Long) As String Dim BinZahl() As Integer Dim Zahl As Long Dim Stellen As Long Dim Zaehler As Long If DezimalZahl < 0 Then Dec2Bin = "Fehler" Exit Function End If If DezimalZahl = 0 Then Dec2Bin = "0" Exit Function End If Zahl = DezimalZahl Stellen = 0 Do Stellen = Stellen + 1 ReDim Preserve BinZahl(Stellen) BinZahl(Stellen) = Zahl Mod 2 Zahl = (Zahl - BinZahl(Stellen)) / 2 Loop Until Zahl = 0 For Zaehler = Stellen To 1 Step -1 Dec2Bin = Dec2Bin & BinZahl(Zaehler) Next End Function hiro

Wenn es darum geht, z.B. txt-Dateien zu öffnen und lesen/schreiben dann sollte es so gehen: zum einlesen: open "c:\test.txt" for input as #1 do until eof(1) input #1, temp 'jetzt steht in temp die erste zeile und bei jedem durchlauf dann die nächste Zeile 'falls du die gesamte zeile einlesen willst, geht das so 'line input #1, temp loop close eof bedeutet "End of File" d.h. es ist False und am Ende der Datei wird es True. zum ausgeben: open "c:\test.txt" for output as #1 print #1, "Hallo" close Das ganze funktioniert nicht nur mit txt-Dateien sondern mit allen Dateien. Ich hoffe ich konnte dir helfen hiro

Das ist eigentlich ganz einfach. Nehmen wir mal an deine Datenfeld heißt Kriterium (da wo KLS drinnensteht). Diese Tabelle offnest du in der Entwurfsansicht klickst einmal auf Kriterium und trägst unten bei "Indiziert" (da wo du auch die Textläge usw einstellen kannst) "Ja (duplikate vorhanden)" ein. Das gleiche machst du in der neuen Tabelle, hier trägst du bei Indiziert aber "Ja (keine duplikate)" ein. Das muss gemacht werden sonst klappt es zwar auch aber du kannst dann nix mehr in die Felder reinschreiben. Jetzt kommen wir zur Abfrage. Erstelle eine neue Abfrage und wähle deine und "meine" Tabelle aus. Jetzt klickst du in irgendeiner Tabelle auf "Kriterium" hälst die Maustaste gedrückt und ziehst es auf die andere Tabelle auch auf Kriterium. Jetzt solltest du eine "Linie" sehen zwischen den beiden Tabellen und genauer zwischen den beiden Kriterien. Dann stellst du noch im Feld "Sortieren" die Sortierung auf Auf- oder Absteigend und dann sollte es das gewesen sein. hiro

Ok dann sorum: mache eine neue Tabelle mit 2 Spalten. Kriterien / Sortiern K / 1 S / 2 L / 3 Jetzt ist aber die Vorraussetzung, das deine Formulare oder Berichte auf eine Abfrage zugreifen und NICHT auf die Tabellen direkt. Wenn du auf eine Tabelle direkt zugreifst mußt du halt jetzt auf eine Abfrage zugreifen, das sollte kein Problem sein das umzustellen da sich ja an den Feldname und so nix ändert. In der Abfrage mußt du jetzt nur noch die beiden "Kriterien" miteinander verknüpfen und bei "Sortieren" kannst du dann einstellen ob Auf- oder Absteigend sortiert werden soll. hiro

Das sollte so gehen: Me.TextfeldName.SetFocus Damit kannst du deinen Cursor hinsetzen wo du willst. hiro

Hi, füge doch deiner Tabelle eine Neue Spalte hinzu (Bsp.: Sortieren). Jetzt schreibe in die Spalte Sortieren einfach eine Zahl hinein für K eine 1, für S eine 2 und für L eine 3. Jetzt kannst du die Tabelle so sortieren wie du willst. hiro

Hi, eigentlich sollten die 70m kein Thema sein, da es 100m lang sein kann ein Koax-Netzwerk sogar knapp 200m (ich glaube es heißt 10Base2). Vielleicht solltetst du mal dein Kabel durchmessen, da es gut sein kann, das es kaputt ist. Versuche es doch mal mit einem neuen (falls du dir 70m Patchkabel ausleihen kannst ). hiro