g_nikolai

also ich hab es jetzt so gemact und es funktiniert: function editstyle(fName,eName,myText) { AddText(fName,eName,myText); } function storeCaret(text) { if (text.createTextRange) { text.caretPos = document.selection.createRange().duplicate(); } } function AddText(fName,eName,text) { if (document.forms[fName].elements[eName].createTextRange && document.forms[fName].elements[eName].caretPos) { var caretPos = document.forms[fName].elements[eName].caretPos; caretPos.text = caretPos.text.charAt(caretPos.text.length - 1) == ' ' ? text + ' ' : text; } else document.forms[fName].elements[eName].value += text; document.forms[fName].elements[eName].focus(caretPos) } FORMULAR <form name="form1"> <textarea name="editbox" style="WIDTH: 242px; HEIGHT: 157px" rows="9" cols="27" ONCLICK="javascript:storeCaret(this);" ONKEYUP="javascript:storeCaret(this);" ONCHANGE="javascript:storeCaret(this);" onMouseOver="this.focus()"> test </textarea> <input type="button" value="OK" onClick="javascript:editstyle('form1','editbox','HIER')" ID="Button1" NAME="Button1"> </form>

das kommt der sache schon sehr nahe. geht es auch das ich den Form Name auch ncoh als Parameter übergebe? damit alles offen bleibt? und ich die Form mit dem Element direkt ansprechen kann?

na weil ich wollte das die Buttons auf verschiedenen Seiten benutzt werden sollen

Hallo ihr! ich hab da ein problem ich möchte über einen Button etwas in eine Textarea schreiben, aber ich möchte den Namen der Textarea als parameter übergeben können, kann mir da jemand eine schon fertige JS function sagen?? Guido

oder du machst eine Verknüpfung auf die Excel Tabelle in der DB und schreibst die neuen DAten dann auch immer in die Excel Tabelle mit hinein. Oder Du erstellst automtisch eine neue Excel Tabelle nachdem etwas geändert wurde, aber das ist von der Performance her nicht so gut. Guido

dann versuch mal: if isnull(rsDSumme!Summe) = True then else endif Vieilleicht hilft das besser

Hallo ihr! Ist es möglich in VB also ADO beim INSERT Befehl eine Array oder ein RS als Quelle anzugeben für die Datenätze die angefügt werden sollen? Guido

wenn Du die Daten aus dem Recordset löscehn möchtest also das ganze RS, dann solltest DU es mit Set rs = Nothing machen. Aber so richtig hab ich dann nicht verstanden was Du machen möchtest, den mit diesem Befehl gehen alle Daten in den RS verloren, bis du ein neues RS erstellst

dann must Du noch die Eigenschaft DisplayErrors oder so auf False setzten, dann geht es ohne Meldung

ist ein guter ansatz, aber hilft nicht ganz. Danke aber auch

aber am besten auch noch vorher testen ob: bevor Du das clng() anwendest IsNumeric(strText) = True

ist schon fast richtig. versuch mal: '**den Projekt Verweis nicht vergessen Set objExcel = New Excel.Application '** Datei öffnen objExcel.Workbook.Open ("Monatsrechnung.xls") '** dann das Tabellenblatt Aktivieren welches man bearbeiten will objExcel.Sheets(1).Activate und dann so weiter am ende objExcel.Workbook.Close objExcel.Quit set objExcel = Nothing Gruß Guido PS: hab es jetzt aus dem Kopf gemacht. schick Dir morgen den Code aus meinem Projekt mal

Also so richtig kann man Dich nicht verstehen. Aber ich Denke ich weis ungefähr was Du vor hast. Also auf dem ersten Form liest Du aus der DB die Werte für eine Combobox aus (ohne permanente VErbindung zur DB????) Dann wenn Du einen Eintrag aus der Combo gewählt hast öffnet sich ein Formular indem Du diesen Datensatz bearbeiten kannst! Wenn Du diese Daten bearbeitest must Du sie natürlich auch Updaten in der DB und dann die Combobox neu füllen, mit den aktualisierten Daten. Anders kannst Du es nur machen wenn Du die Combobox an ein RS bindest und das bearbeitungsfenster auch an eine RS bindest und dann nur aktualisierst. Aber ich würde lieber alles selbst machen und dadurch mehr Kontrolle haben.

Du kannst auch direkt eine Listbox nehmen und die Daten dort rein schreiben und dann setzt Du die Property Sorted auf True, aber natürlich vorher die anderen Sort Eigenschaften setzten. z.B. Private Sub lvwMeldungen_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader) Me.lvwMeldungen.SortKey = ColumnHeader Me.lvwMeldungen.SortOrder = lvwAscending Me.lvwMeldungen.Sorted = True End Sub

Hallo ihr! ich hab auch mal ne Frage. Ich muss eine dbf Datei erstellen aus einer Tabelle aus Access, allerdings möchte ich nicht Access dazu benutzen sondern direkt VB und auch nicht über Excel gehen, ist das irgendwie möglich? oder aber hat einer Erfahrung mit einem Konvertierungsprogramm welches man eine CSV gibt und es macht daraus eine dbase 4 Dbf?? Gruß Guido

normalerweise kannst du soviel in einen Case Zweig schreiben wie Du möchtest und nicht nur eine Funktion. so sieht es aus in VB: SELECT CASE afg Case 1 Funktion1 Funktion2 Case 2 Funktion3 Case 3 Funktion4 Funktion5 Funktion6 Case Else END SELECT

in den Quellcode des FOrmulars

auf dem gleichen Formular muss dann auch eine Textbox oder eine Label liegen in das DU es schreiben kannst. Sub Button_Click() me.txtDatum = format(Now,"dd.mm.yyyy") End Sub das ist die einfachste Version Guido

das könntest du zwar teilweise bei der Anzeige in einem Formular unter Access aber nicht in den Tabellen selbst in der DB, das must Du dann schon bei erstellen der Excel Tabelle machen. Guido

was verstehst Du unter Formatieren das Aussehen oder die anZEIGE DER dATEN?

also das ist schon ganz korrekt so mit der VB6 Saceh und dem Recordset und einem Select Statement. Ist die Sauberste Lösung für dich weil man da auch sieht wo man welchen Code ausführt. So mache ich es zumindest. man könnte auch in VB6 mit dem ADODC arbeiten, davon rate ich aber ab, ist zwar schön enfach aber man hat immer eine DB Connection offen und das ist nicht gerade fein. Also wie schon mein Vorredner empfehle ich Dir es über eine SELECT abfrage zu machen mit dem Anhängsel LIKE *" & strSearch & "*" so bekommst du dann ein ganzes RS zurück und kannst die Ergebnisse in eine Liste eintragen oder wozu Du Sie nutzten willste nutzen. Gu8ido

warscheinlich liegt es daran das man das Framework ca. 20 MB groß auf dem Win98 Rehcner auch installieren muss bevor das Programm läuft. Ich hab es noch nciht ausprobiert aber hab schon was davon gehört. Guido

das ist ganz einfach solange beide Forms aktiv sind. Du sagst in Form2 z.B. Form1.txtHelpText. also eigentlich brauchst Du nur Form1. zu schreiben und dann kommen alle M;othoden und Eigenschaften die auf dieser Form sind als Liste aufgeklappt. Versuch es einfach mal. GUido

Du kannst ein Modul in der VBA Umgebung immer abspeichern mit der Rehcten Maustaste Kliacken und Datei exportieren wählen. Somit hast du eine bas-Datei die Du in anderen Word-Dokumenten einbinden kannst. und Du must nur ein Modul bearbeiten welches dann bei allen Dokumenten die wirkung zeigt. GUido

wenn die abgefragten Felder der zwei Abfragen immer die gleichen sind und Du möchtest das Ergebnis in einer Liste haben (Recordset) dann kannst du beide Abfragen in ein Union stellen Einfach Select testFeld1,testFeld2,testFeld3 FROM TESTTabelle WHERE testFeld3 is null UNION Select testFeld1,testFeld2,testFeld3 FROM TESTTabelle2 WHERE IsActive <>0 Das ist jetzt nur ein rpovisorisches Beispiel da diese Beiden Abfragen auch in einer Abfrage gepasst hätten, aber so könntest du dies Abfragen in eine Bringen GUido