Zum Inhalt springen

Meenzer

Mitglieder
  • Gesamte Inhalte

    355
  • Benutzer seit

  • Letzter Besuch

Alle Inhalte von Meenzer

  1. Hi! Oder mit Dateserial(Year,Month,Day): ------------------------------------- Datum = DateSerial(Year(now) +1, Month(now) +3 , Day(now) + 344) -------------------------------------- Gruß
  2. Hi! Zum einen kannst Du bei den Start-Optionen der DB ja schon einiges wegblenden. Zum anderen gibt es einen Befehl Docmd.ShowToolbar ( unter A97 ) . Am besten Du schaust mal in der Hilfe nach, ob er unter AXP auch existiert. Damit kannst Du Toolbars ein/ausblenden. Gruss
  3. Hi! Also den Befehl Visible gibt's bei Access auf jeden Fall. Versuchs mal so: --------------------------------------- Forms![HAUPTFORMULAR].UNTERFORMULAR.Visible = True ----------------------------------------- Gruss
  4. Also ich denke dochmal, dass Du in einem Formular 2 Eingabefelder hast und dort den Namen und das Passwort eintragen kannst. Dann würde ich einen Button machen und die Eingaben überprüfen: -------------------------------------------------- Dim rs as recordset Dim SQL as string 'Passwort aus Tabelle für den User holen SQL = "SELECT PASSWORT FROM TABELLE WHERE USER = '" & FeldUser.text & "'" 'recordset öffnen set rs = currentdb.openrecordset(SQL,dbopensnapshot) if rs.recordcount > 0 then 'Wenn Passwort übereinstimmt if rs!Passwort = FeldPasswort.text then Msgbox "weitergehts" else Msgbox "Falsche Eingabe" end if else 'Keine Daten zu dem User gefunden end if 'Recordset schliessen rs.close set rs = nothing --------------------------------------------------------------- oder --------------------------------------------------------------- Dim PASS as string PASS = dlookup("FELDPASSWORT","TABELLE","USER = '" & FELDUSER & "'") If not isnull(PASS) then if PASS = PASSWORT then weiter else fehler end if else kein Passwort vorhanden end if ---------------------------------------------------------------- Ich hoffe es funktioniert so, habe es nicht getestet. Aber beides müsste gehen. Gruss
  5. Bei einer Benutzerverwaltung hast Du mehrere Möglichkeiten. 1. Zum einen kannst Du eine neue Benutzerverwaltung für Access erstellen und dort Gruppen / User und die Rechte anlegen. 2. Und dann kannst Du Dir auch einfach eine Tabelle machen, wo Du Deine User mit einem Passwort ablegst sowie eine Tabelle , wo Du die Rechte des Users speicherst. Zum Beispiel für ändern = 1, löschen = 2 usw. Dann musst Du als Startformular eine Passwortabfrage machen und das mit Deiner Tabelle vergleichen. Die erste Variante ist meiner Meinung nach die bessere, da Du nicht so viel im Programmcode abfragen musst. Irgendwo in dem Forum oder bei Datenbanken ist es erklärt, wie man so eine Benutzerverwaltung anlegt. Gruss
  6. Du erstellst Dir ein Feld in Deiner Tabelle ( TYP Integer, Long, was Du eben brauchst ). Wenn Du dann einen neuen Datensatz einfügen willst, machst Du folgendes: ------------------------------------ Dim TMP as DEINTYP TMP = DMAX("DEINFELDNAME","TABELLE") If isnull(TMP) then 'wenn noch kein DS drinsteht TMP = 1 else TMP = TMP + 1 end if ------------------------------------ Somit bekommst Du immer den höchsten Wert und erhöhst diesen um 1 Da kann ich auch nur zurückfragen, was möchtest Du wissen. Gruss
  7. Das war natürlich auf meine DB bezogen. Und Access ist meiner Meinung nach für kleine ( und zum Teil auch größere ) Anwendungen eine sehr gute DB. Man muss nur wissen, wie man alles nutzen kann. Gruss
  8. Ich weiss leider auch nicht wie Access das intern managt. Eine Möglichkeit wäre vielleicht ein Feld zu erstellen ( boolean ) und wenn jemand den DS bearbeitet dieses Feld zB auf True zu setzen. Wenn jetzt jemand anderes an den DS will, dann ist er somit gesperrt. Das musst Du mit VBA zwar viel abfragen, aber das müsste gehen. Ich hatte noch keine Probleme mit sowas, da die Chance , dass 2 Leute den gleichen DS bearbeiten sehr, sehr gering ist.
  9. Hi! Eigentlich ist es kein Problem, dass mehrere Leute auf eine Access DB zugreifen. Allerdings kommt es natürlich auch drauf an, wieviele Leute und wer alles mit den Daten arbeiten soll ( also löschen, ändern, anfügen ) oder ob alle sich die Daten nur anschauen dürfen. Ich würde auf jeden Fall eine Benutzerverwaltung und verschiedene Gruppen erstellen. Natürlich spielt auch die Anzahl der Personen, die darauf zugreifen sollen eine Rolle. So bis max 20 User ist es OK, was drüber geht, naja......dann besser Oracle oder ne andere DB. Gruss
  10. Hallo! So wie Du es eben geschildert hast, liegt es also an der Abfrage, oder vielleicht sogar am Datenmodell. Die Verknüpfungen zwischen den Tabellen solltest Du in der Abfrage nochmal überprüfen und einfach mal ein bischen rumprobieren. Gruss
  11. Hallo! Wollte mal anfragen, ob hier auch viele Informatik - Studenten in dem Forum anwesend sind und ob mal für diese nette Randgruppe einen Menüpunkt einrichten könnte, wo man sich Infos über das Studium austauschen kann. Vielleicht unter Ausbildung / Job. Da könnte man dann auch gezielt Fragen stellen, falls man nach der Ausbildung noch studieren möchte. Was haltet Ihr davon?? Gruss
  12. Hallo! Schau Dir mal die Abfrage an, auf die Dein Unterformular basiert. Es kann sein, dass dort ein paar Verknüfungen falsch sind und Du deswegen nichts ändern / neu anlegen kannst. Dann solltest Du die Eigenschaften Deines UF überprüfen, ob Du auch neue DS anfügen darfst, oder nicht. Ansonsten würde mir erstmal nichts einfallen. Vielleicht hilfts ja schon. Gruss
  13. Hallo! Beim Bericht gibt es ein Ereignis 'Bei Ohne Daten' ( so heisst es beider deutschen Version ), wo Du ein Ereignis einfügen kannst, wenn der Bericht keine Daten hat. Eine andere Möglichkeit ist wie schon erwähnt ein Recordset voher zu öffnen und zu schauen, ob es Daten enthält. ZB: -------------------------------- Dim rs as Recordset set rs = currentdb.openrecordset(DEINSQL,dbopensnapshot) if rs.recordcount = 0 then msgbox "Keine Daten else 'Bericht öffnen end if rs.close ------------------------------ Gruss
  14. Hallo! Probiere mal DEINLISTFELD.ROWSOURCE = "" Dann müsste er alle Einträge löschen. Gruss
  15. Hi! Wenn man für ein Feld oder einer Berechnung einen Aliasnamen vergibt, dann musst Du auch die Eckigen Klammern benutzen. Daher kenn ich dass. ZB: ([Preis]+[Preis2]) As Wert Gruss
  16. Hallo! Ich würde Dir dazu raten, eine neue Arbeitsgruppendatei ( MDW-Datei ) zu erstellen, um dort dann neue Gruppen und Berechtigungen anzulegen. Als erstes musst Du dafür den MS Access Arbeitsgruppen- Administrator starten und dort die neu mdw erstellen. Mit dieser MDW erstellst Du eine neu DB. Dann gehst Du unter Extras -> Zugriffrechte und erstellst neue Gruppen. Zum Beispiel eine Info-Gruppe , Daten-Gruppe, Administratoren......Diesen Gruppen kannst Du nun verschiedene Rechte geben. ZB darf die Infogruppe nur Daten lesen und nicht ändern usw. Wenn Du dann neue User anlegst, ordnest Du die einfach einer Gruppe zu und schon hat er die Rechte. Damit musst Du nicht für jeden User einzelnd die Rechte anlegen. !!Ändere aber niemals die Rechte / Gruppen in der System.mdw, die standardmässig an Access angebunden ist. Sie liegt im Windowsverzeichnis / System32 Ordner!! Wenn Du die DB erstellt hast und die Rechte definiert hast, dann gehe wieder in den Assisstenen und binde die System.mdw wieder an. Um dann Deine neue DB zu öffnen, muss Du Dir eine neue Verknüpfung auf dem Desktop machen, wo Du dann Deine eigene MDW als Gruppendatei angeben musst. Die VErknüpfung sieht dann ungefähr so aus: "C:\Programme\Microsoft Office\Office\msaccess.exe" D:\Deine.mdb /wrkgrp D:\Deine.mdw /user DeinUser Das ganze war wahrscheinlich etwas kompliziert und schnell erklärt. Irgendwo hier im Forum ist auch noch mal besser erklärt. Musst Du einfach nochmal suchen. Gruss
  17. Hi! Beim Einfügen kannst Du das auch so machen: currentdb.excute "INSERT INTO " & Variable & " (FELD1,FELD2) VALUES (WERT1,WERT2);" Das geht einfacher als mit nem Recordset. Gruss
  18. Hi! In was für einen Zusammenhang brauchst Du das denn?? Vielleicht kannst Du mal ein Beispiel posten. Gruss
  19. Hi! Starte mal Deine DB und halte dabei die Shift-Taste gedrückt. Dadurch werden die Starteinstellungen übergangen und Du kannst diese dann wieder abändern. Gruss
  20. Hi! Mit den Meta - Tags hats jetzt doch funktioniert. Wahrscheinlich hatte ich sie erst falsch eingefügt. Merci vielmals:) Gruss
  21. Hi! Also als erstes würde ich mir eine Importspezifikation erstellen , um die Dateien zu importieren. Sind alle Dateien gleich aufgebaut?? Ansonsten erstellst Du einfach für jede Dateiendung eine Spezifikation. Danach würde ich per Programmcode das ausgewählte Verzeichnis durchgehen und nach Dateien mit der entsprechenden Endung suchen. Wenn Du eine gefunde hast, überprüfst Du , ob es die Tabelle schon gibt. Wenn ja löschst Du sie und importierst die Datei. Ist das so ungefähr die Prozedur, was Du machen möchtest?? Gruss
  22. Hi! Danke für den Tip, nur leider geht das nicht. Erst wenn ich den Browser aktualisiere, dann wird der neue Eintrag angezeigt. Wenn ich den Eintrag gespeichert habe öffne ich eine neue Seite, stelle einen neuen Connect zur DB her und hole mir dann die Daten. Deswegen verstehe ich nicht, warum mir der neue Eintrag nicht angezeigt wird. Vieleicht hat noch jemand eine Idee?? Gruss
  23. Hi! Schau mal hier bei den vorhandenen Themen nach, da dürfte sich eine Lösung finden. Gruss
  24. Hallo zusammen! Immer wenn jemand einen Eintrag in mein Gästebuch macht und ich es dann wieder anzeigen lasse, dann wird der neuste Eintrag nicht mit angezeigt. Wie kann ich per Programmcode ( PHP ) nach dem Eintrag die Datenbank ( MySQL ) aktualisieren, so dass er mir auch den neuen Eintrag direkt anzeigt. Geht das irgendwie mit einen Refresh- oder Requery-Befehl??? Gruss
  25. Hi! Du kannst Dir zum Beispiel eine globale Variable machen und da Dir die Kundennummer abspeichern. Am besten deklarierst Du die Variable in einem Modul: Public VarX as Long ( oder wie Du es brauchst ) Und schreibst die Kundennummer immer da rein. Gruss

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...