 Access alle Tabellenverknüpfungen aktualisieren
ich möchte alle Tabellenverknüpfungen in meiner Datenbank aktualisieren. leider habe ich hierfür keinen Docmd. oder Runcmd gefunden der den Tabellenverknüpfungsmanager ersetzen könnte. Deshalb hier die vba Code Lösung -------- code -------- Private Sub fxTest - init - Dim sConnect As String On Error Resume Next Dim objTabledef As TableDef For Each objTabledef In CurrentDb.TableDefs addLog objTabledef.Name objTabledef.RefreshLink Next Abschluss MsgBox Fertig , , Module ermitteln Abschluss End Sub -------- code -------- |
| Datum:24.01.2012 13:11:10 Gelesen:17 Access |
 sql-server führende Nullen bei zahlen erzeugen
ich möchte eine integer Zahl mit 4 Vorkomma-Stellen ausgeben, also die Zahl mit nullen füllen in Access geht das mit dem Format befehl, aber in sql-server habe ich das nicht gefunden. Lösung man erstellt einen String mit vielen führenden Nullen und wendet anschließend die RIGHT sText,nAnzahl funktion durch Beispiel -------- code -------- If bServer mode True Then SQL-SERVER sSQL Master sSQL Master amp , RIGHT 0000 CAST sortkey AS nvarchar ,4 .Master AS Sortkey Ext SQL-SERVER Else ACCESS sSQL Master sSQL Master amp , format sortkey, 0000 amp .Master AS Sortkey Ext ACCESS End If -------- code -------- Quellen Replicate .. zahl http www.ms-office-forum.net forum showthread.php t 172648 version mit von right rechts ermitteln http geekswithblogs.net nagendraprasad archive 2009 03 19 forma |
| Datum:24.01.2012 09:24:04 Gelesen:35 SQL-Server |
 Energisparmodus Netwerkkarte ausschalten
ich hatte bei meinem Notebook das Problem, dass der Energiesparmodus immer wieder von selbst startete. Bei der untersuchung stellte ich fest, daß die Netzwerkkarte zu den Geräten gehörte, die den Wakeup verursachen könnten. Zum Ausschalten der Netzwerkkarte kann man nicht über die Energiesparoptionen gehen, sondern über System- Hardwaremanager und dann auf die Netzwerkkarte- dort die optionen.. und diese dann ausschalten. -------- zitat -------- Mit den Optionen dieses Registers erweitern Sie die Fähigkeiten der Energieverwaltungs-Standardoptionen. Durch Hervorheben einer Option zeigen Sie dazu Hilfeinformationen an. Energiesparoptionen bestimmen, wann und wie der Adapter den Stromverbrauch reduziert. Wake on LAN -Optionen ermöglichen es Ihnen, die Ereignisse festzulegen, bei denen der Computer aktiviert wird. Wenn die WakeOnLAN-Optionen nicht aktiviert sind, veranlassen Intel 174 Adapter den Computer immer, das Gerät herunterzufahren, wenn der Computer in der Ruhephase oder im Standby-Modus ist. -------- zitat -------- wichtig man muß die Magic Packet ausschalten Ermöglicht es dieser Verwaltungsstation, den Computer aus dem Standby- oder Ruhephasemodus zu aktivieren, wenn ein Magic Packet direkt an den |
| Datum:13.01.2012 09:24:07 Gelesen:63 Windows |
 Ruhezustand unter Vista wieder herstellen
ich hatte das Problem, daß unter Windows Vista auf meinem Notebook der Ruhezustand nicht mehr zur Verfügung stand. Hier die Lösung wie man den Ruhezustand wieder zur Verfügung bringen kann. unter Start- Ausführen cmd eingeben dann powercfg -h on danach steht die Auswahl Ruhezustand unter Windows Energiesparoptionen wieder zur Verfügung. folgende die weiteren möglichkeiten unter powercfg -------- code -------- Microsoft Windows Version 6.0.6002 Copyright c 2006 Microsoft Corporation. Alle Rechte vorbehalten. C Users Raimund.ACER powercfg -h on C Users Raimund.ACER powercfg Ungültige Parameter -- Geben Sie ein, um die Hilfe anzuzeigen. C Users Raimund.ACER powercfg POWERCFG Beschreibung Dieses Befehlszeilenprogramm ermöglicht Benutzern, die Energieeinstellungen in einem System zu steuern. Parameterliste -LIST, -L Führt alle Energieschemas in der Umgebung des Benutzers auf. Syntax POWERCFG -LIST -QUERY, -Q Zeigt den Inhalt des angegebenen Energieschemas an. Syntax POWERCFG -QUERY optional , gibt das GUID des aktiven Energie- schemas an, das angezeigt werden soll, und ist durch powercfg -l verfügbar. optional , gibt das GUID der Untergruppe an, das angezeigt werden soll. Erfordert Angabe eines |
| Datum:13.01.2012 08:39:33 Gelesen:56 Windows |
Ruhezustand unter Vista wieder herstellen
|
| Datum:13.01.2012 08:39:25 Gelesen:43 _Allgemeines |
 Google kann man einen News-Feed an Google anbinden
ich betreibe eine kleine Homepage mit einzelnen Beiträgen. Die Beiträge würde ich gerne automatisch an Google anbinden, damit ich nicht jeden Beitrag zusätzlich in Goolge posten muß. kann man nicht per News-Feed, die Nachrichten auch an Google anbinden |
| Datum:03.01.2012 12:09:54 Gelesen:121 Suchmaschinen Google |
 Excel einen String nach mehreren Werten vergleichen
ich soll einen alten Code umformen der einen Wert auf drei Möglichkeiten vergleicht. der Code lautet bisher if sCode 1 or sCode 2 or sCode 4 then ... endif es ist in diesem Fall wesentlich übersichtlicher, wenn man den Wert mit Like und Wildcard-Funktionen nutzt. Wenn man auf ... vergleicht, kann man das folgendermaßen erledigen -------- code -------- Dim vPerson As Variant vPerson zelle.Value If Not IsEmpty vPerson True Then If vPerson Like name Then Dim sCode As String sCode tkp.Cells zelle.Row, code s If Not sCode Like 1,2,4 Then -- Auftragszeile oder Gemeinkostenzeile -- nb |
| Datum:03.01.2012 11:59:24 Gelesen:148 Excel VBACode |
 vba Array-Variable mit Integer werten
in einem Projekt wird ein Array benötigt, das aus Integer-zahlen besteht. hier die Definition und die Dimensionierung -------- code -------- Die Definition findet statt wie Dim zeile As Integer die Dimensionierung...alsoe wieviele Elemente wie ReDim Preserve zeile 1 To letzte 5 das müßte ich nochmals prüfen .. .. der Zugriff findet später statt wie zeile n zelle.Row -------- code -------- danach hat man ein Array zur Verfügung, das mit Integerwerten gefüllt und bearbeitet werden kann |
| Datum:23.12.2011 12:06:56 Gelesen:148 Excel VBACode |
 Exce Statusmeldung anzeigen
für ein Kundenprojekt soll in einem alten Code die aktuelle Bearbeitungszeile oder Kommentare angezeigt werden. Folgend die Anzeige von Kommentaren und Texten über die Statusbar untere Zeile im Excel-Fenster -------- code -------- Zeile für Zeile aktualisieren Achtung x entspricht hier einer Zeile also y For x monat z To letzte Wenn in der Ist-Spalte keine Formel und nicht die 4.Zeile der TKP dann aktualisiern If Not tkp.Cells x, ist s .HasFormula And Not x jahr z Then Application.StatusBar bearbeite Zeile amp x amp von amp letzte Fehler abfangen, wenn z.B. Zeichen statt Zahlen in den Zellen stehen. On Error GoTo fehler -------- code -------- danach wird jede Ausgabe von Text unten in der letzten zeile des Excelfensters angezeigt. Die Ausgabe muß über die Anweisung Application.Statusbar ... erzeugt werden |
| Datum:23.12.2011 09:44:18 Gelesen:166 Excel VBACode |
 Windows Sidebar Notizzettel
kleine Linksammlung zu Notizprogrammen für die sidebar Miniaturanwendungen apps http www.sticky-notes.net mit detailscreenshots auf http www.sticky-notes.org oder http www.veign.com application.php appid 102 - ein kleines Programm mit dem man Notizen machen kann. Leider nicht für die Sidebar oder als Minianwendung oder StickyNotes http download.cnet.com Stickies 3000-2074 4-10330903.html tag recommendedDownloads --- aber für die Sidebar so als tab habe ich noch nichts gefunden. die Stikynot.exe wiederum läuft nicht als minianwendung. als browserbasierendes Tool gibt es auch ein Notizzettel system http webstickynotes.codeplex.com oder desknotes als ausgeklügelte Applikation http desknotes.codeplex.com |
| Datum:22.12.2011 09:42:03 Gelesen:270 Windows |
 sevGrid Verzögerungszeit bei Combolisten einstellen
beim Verwenden des sevGrid Controls werden oft Combolisten verwendet. Combolisten sind dropdown-Listen die nicht editiert werden können während der Auswahl im Gegensatz zu Comboboxen. Damit nun in einen Liste von Einträgen automatisch zum richtigen Zeile gesprungen wird, kann man mehrere Buchstaben eingeben. Innerhalb einer einstellbaren Verzögerungszeit erkennt die Liste , ob man zu Fa.... oder zu F und dann zu a springen will der code zum Einstellen folgt wie hier -------- code -------- Public Sub fxGrid Einstellungen ByRef frm As Form ----------------------------- fxGrid Einstellungen ----------------------------- Objects Dim objGrid As sevGrid Set objGrid frm.Grid1.Object Dim ctlGrid As Control Set ctlGrid frm.Grid1 Objects dynamische Einstellungen Dim sFontName As String Dim intFontSize As Integer Dim intZeilen Hoehe As Integer Dim intHeader Hoehe As Integer Dim bEingabe Grid As Boolean Verzoegerungszeit Combolist D |
| Datum:08.12.2011 09:11:26 Gelesen:254 Software sevGrid |
 Access RGB-Farbwerte ermitteln
für ein Projekt sollte ich kurz die RGB Farbwerte ermitteln, die ich einer Funktion übergeben möchte. um die Werte schnell zu ermitteln mache ich folgendes 1. ein Formular im Entwurf öffnen 2. auf eine Stelle im Formular klicken 3. die Eigenschaften hierzu öffnen 4. die Hintergrundfarbe mit ... öffnen dann bei der Registerkarte Benutzerdefiniert öffnen dort stehen die drei Werte für Rot Grün Blau |
| Datum:08.12.2011 08:44:04 Gelesen:291 Access VBACode |
Access den aktuellen Computer auslesen
mit dem folgenden Code kann man den aktuellen Computer ermitteln unter access -------- code -------- Public Function fxSYS getComputerName As String ---------------- fxSYS getComputerName ---------------- fxSYS getComputerName Environ computername ---------------- fxSYS getComputerName ---------------- End Function -------- code -------- |
| Datum:06.12.2011 18:41:17 Gelesen:195 Access VBACode |
 Windows7 Netzwerkpfad als Laufwerk anbinden
unter windows7 hat sich der Punkt geändert, wo man einen Pfad im Heimnetzwerk als festes Laufwerk zuordnen kann. Vorgehensweise man macht den Explorer auf. wechselt auf die Icone des Computers dort kann man Netzlaufwerk verbinden wählen. |
| Datum:06.12.2011 14:10:21 Gelesen:277 Windows |
 Access vba Funktion zum Berechnen der Twips pro Pixel
mit der folgenden funktion kann man die Twips pro Pixel ausrechnen lassen, grob gesschätzt 15 Twips pro Pixel -------- code -------- ------------ Bildschirm ------------ zur berechnung von bildschirm pixel und twips Public Declare Function apiGetDC Lib user32 Alias GetDC ByVal hWnd As Long As Long Public Declare Function apiGetDeviceCaps Lib gdi32 Alias GetDeviceCaps ByVal hDC As Long, ByVal nIndex As Long As Long die ReleaseDC sollte ausgefuehrt werden nach getDC da ansonsten viele Resourcen gesperrt bleiben Public Declare Function apiReleaseDC Lib user32 Alias ReleaseDC ByVal hWnd As Long, ByVal hDC As Long As Long ------------ Bildschirm ------------ Public Function api fx TwipsPerPixel Y As Long -------- api fx TwipsPerPixel Y -------- berechne Anzahl Twips pro Pixel Positionen in Access sind in Twips Positionen von vb.net Controls sind in Pixel Dim intPixel per Inch As Long Vertical intPixel per Inch apiGetDeviceCaps apiGetDC 0 , 90 apiReleaseDC 0, apiGetDC 0 speicher freigeben n |
| Datum:06.12.2011 12:52:05 Gelesen:314 Access VBACode |
 sevGrid positionsberechnung der aktuellen Zeile
Wenn ich die aktuelle Zeile berechnen will, die ich im sevgrid gerade habe bei einer Postion eines Cursors oder Controls hier lblMovePanel in Pixel dann kann man mit der folgenden Funktion die aktuelle zugeordnete Row des SevGrid berechnen -------- code -------- Pos ermitteln Dim intMovePanel Top As Long intMovePanel Top lblMovePanel.Top Dim intTwipsPerPixel As Double intTwipsPerPixel api fx TwipsPerPixel Y Dim dblRow As Double dblRow intMovePanel Top - ctlGrid.Top - objGrid.FilterHeight objGrid.ColumnHeaderHeight intTwipsPerPixel objGrid.RowHeight intTwipsPerPixel dblRow dblRow objGrid.TopRow - 1 Dim intRow As Integer intRow Fix dblRow Pos ermitteln -------- code -------- |
| Datum:06.12.2011 12:45:51 Gelesen:235 Access VBACode |
 Access vba -double als Integer oder Ganzzahl
ich bekomme in Access vba code eine Kommazahl vom Typ Double zum Beispiel 3,6 Bei der Convertierung mit CLng zahl wird daraus 4. ich möchte aber dass alle 3, zu 3 abgeschnitten werden. Wie heißt die Funktion in vba ---- die umrechnung mit round ging auch nicht -------- code -------- Dim dblRow As Double dblRow intMovePanel Top - ctlGrid.Top - objGrid.FilterHeight objGrid.ColumnHeaderHeight intTwipsPerPixel objGrid.RowHeight intTwipsPerPixel dblRow dblRow objGrid.TopRow - 1 MsgBox dbouble amp dblRow amp amp CInt amp CInt dblRow amp amp GanzZahl amp Round dblRow -------- code -------- ---- ----------------- Lösung die Lösung kommt über fix Pos ermitteln Dim intMovePanel Top As Long intMovePanel Top lblMovePanel.Top Dim intTwipsPerPixel As Double intTwipsPerPixel api fx TwipsPerPixel Y Dim dblRow As Double dblRow intMovePanel Top - ctlGrid.Top - objGrid.FilterHeight objGrid.ColumnHeaderHeig |
| Datum:06.12.2011 12:20:43 Gelesen:203 Access VBACode |
 Windows7 Remoteunterstützung msra.exe
schnell und unkompliziert eine Windows Remoteunterstützung mit einem anderen PC aufbauen in Windows 7 in Programme Suche.... msra eingeben dann die msra.exe starten und schon kann per Dialog eine Verbindung mit einem Remotepc aufgebaut werden. Achtung. 1 die Firewall des Routers muß für Eingänge freigeschaltet sein 2 scheinbar macht das uac User Access Control manchmal probleme beim Aufbau |
| Datum:06.12.2011 11:31:38 Gelesen:380 Windows |
 sevGrid aktuelle Position berechnen
wenn man bei SevGrid die aktuelle Position berechnen will, dann kann man folgend vorgehen Position Y aktuelle Reihe - erste sichtbare Reihe - Filterhöhe-Spaltenheader - TopPosition des Controls Wichtig man muss die erste Sichtbare Zeile berücksichtigen, sobald der Scroll vertikal getätigt wurde -------- code -------- - Position einstellen - Pos ermitteln Dim intY As Long, intYCursor As Long Dim intRand As Integer intRand 0 intY ctlGrid.top objGrid.FilterHeight objGrid.RowHeight objGrid.Row - objGrid.TopRow objGrid.ColumnHeaderHeight 15 Dim intX As Long intX 100 Pos ermitteln einstellen On Error Resume Next lblMovePanel.Move intX, intY On Error GoTo 0 einstellen - Position einstellen - -------- code -------- |
| Datum:06.12.2011 08:36:44 Gelesen:184 Access VBACode |
 Grid für PHP apPHP
http www.apphp.com php-datagrid index.php |
| Datum:03.12.2011 11:47:46 Gelesen:354 Software |