Softpicks.Net Deutsch

Hallo, Thomas,

Thomas Möller:

> Sorry

kein Grund fuer ein Sorry - es ging mir mehr um den offenen Thread, da
ich ab und zu nach "Ein-Posting-Threads" suche.

Gruss - Mark
.

Hallo, Thomas,

Thomas Möller:

> ... und dabei achtest Du darauf, dass das Wort "Stammtisch" nicht darin
> vorkommt - stimmt's ;-)

der war gut!

Ich war auch fast verleitet, mit Dir weiter Jeopardy zu spielen, aber
dann kommt und dieser OT-Jaeger auf den Kopf - wie hiess er noch
gleich? ;-)

Gruss - Mark
.

Hallo,

Manuel:

> eine Frage: Habe ein Formular in Access erstellt. Jetzt geht es darum, wie
> kann ich bestimmte Felder mit einem Passwort schützen. Wenn in diesem Feld
> eine Eintragung stattfinden soll, muss erst ein PW eingegeben werden. Nach
> dem eingeben des richtigen Passwort kann man dieses Feld ausfüllen. Geht
> das???

wie sicher soll das ganze denn sein? Wenn Du im Formular ein Passwort
im VBA-Code hinterlegst, wird das ohne weiteres "auspionierbar" sein.

Ich wuerde hier statt dessen nach Moeglichkeit den Windows-Benutzer
auslesen und verwenden.

Du musst aber bedenken, dass die Daten auch auf tabellenebene zu
schuetzen sind. Dafuer wuerde ich die "geheimen" Daten in eine 1:1 mit
der Haupttabelle verknuepfte Tabelle auslagern und die Tabellen
absichern.

Gruss - Mark

--
Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beiträge senden.
.

Hallo,

Manuel:

> die Daten dürfen schon von anderen gelesen werden. Es sind bestimmte Felder
> von Kontakten bei denen nur Abteilungsleiter und Teamleiter ihre Bemerkungen
> einfügen dürfen.
>
> Wenn ich dies im VBA erstelle, werden bestimmt die Mitarbeiter dies nicht
> auspionieren, da die keine Ahnung von Access haben )
>
> Wie erfahre ich die Formel für diesen VBA-Code????

ganz einfach und ziemlich "unsicher":

Private Sub txtGeheim_GotFocus()
If InputBox("Kennwort erforderlich") <> "geheim" Then
Me!txtOffen.SetFocus
End If
End Sub

Ersetze txtGeheim und txtOffen durch die entsprechenden
Steuerelementnamen Deiner Applikation.

Gruss - Mark

--
Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beiträge senden.
.

Hallo Manuel,

Manuel schrieb folgendes:
> Und wie mache ich das mit dem Windows Benutzer auslesen????
> Ich habe sowas noch nie gemacht.

www.donkarl.com?FAQ2.24

Gruß
Gunter
--
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
.

[Henry Habermacher]

Hallo Manuel

Manuel wrote:
> stimmt du hast recht.
>
> Wenn ich nach der falschen Eingabe den DEBUGGEN drücke, sehen alle das
> Passwort.

Lies' bitte mal das WhitePaper zum "Betrieb von Access Anwendungen". Du
solltest keine MDB, sondern eine MDE ausliefern, da gibt's kein Debug-Modus.

Ansonsten findest Du dort auch was zum Thema, wie man die Windows BenutzerID
übergeben kann. Das kann macht nämlich der MDBLoader auch, der dort erwähnt
und ebenfalls als freier, offener Download verfügbar ist.

Gruss
Henry

--
Microsoft MVP Office Access
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

.

Hallo Manuel,

Manuel schrieb folgendes:
> also die Datei konnte ich jetzt in MDE umwandeln. Jetzt habe ich ein
> anderes Problem Das Password wird falsch hinterlegt - dann
> erscheint eine Fehlermeldung. Nach dem Bestätigen mit der OK Taste,
> bleibt der Cursor in diesem Feld und man kann es jetzt
> beschrieften. Wie kann das ändern????

nach der Fehlermeldung (Msgbox...)
Docmd.setfocus me!FeldWoFocusHinSoll


Gruß
Gunter
--
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
.

Hallo Manuel,

Manuel schrieb folgendes:
> Private Sub AL__KAMM_GotFocus()
> If InputBox("Kennwort erforderlich") <> "geheim" Then
> Me!AL_KAMMOffen.SetFocus
> End If
> End Sub

Private Sub AL__KAMM_GotFocus()
If InputBox("Kennwort erforderlich") <> "geheim" Then
Me!AL_KAMMOffen.SetFocus
Else
me!AnderesFeld.Setfocus
End If
End Sub

Gruß
Gunter
--
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
.

Hallo Manuel,

Manuel schrieb folgendes:
> ich habe jetzt die Formel eingegeben, aber es funktioniert immer
> noch nicht.
>
> Habe auch den Feldnamen (bei AnderesFeld) eingegeben wo der Cursor
> hinspringen soll.

Poste nochmal Deinen Code und schildere genau was nicht funktioniert
und was Du erreichen willst.

Gruß
Gunter
--
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
.

Hallo, wolfgang,

wolfgang:

> [Subject]

Du erhaeltst zunaechst mal den Preis fuer das sinnvollste Subject des
Monats!

> in Access habe ich eine Texttabelle importiert. darin habe ich über
> Löschabfragen die daten, die ich nicht benötige gelöscht. Nun benötige ich
> aber die restlichen Daten für einen bericht. Leider kann ich den Daten keine
> Feldnamen zuordnen.

Hast Du die Tabelle im Entwurf mal geoeffnet und dort versucht, die
beim Import vergebenen Feldnamen zu aendern?

> Die Daten sehen z.B. so aus: 1.8.1(Zahlen), bzw. Ablesezeitpunkt: Datum
> Uhrzeit
> Wie kann ich die Daten auseinander bringen. Beim ersten benötige ich z. B.
> nur die zahlen in der Klammer. Kann man die 1.8.1 (bzw. Ablesezeitpunkt) als
> Feldnamen nehmen?

Hmm - verstehe ich nicht so ganz. Sind die Daten in einem Feld
gelandet? Dann musst Du sie zerpflücken oder noch mal importieren und
vorher trennen. Wie genau hast Du denn importiert und wo kommen die
Daten in welcher Form her?

Gruss - Mark

--
2. SEK (SQL Server-Entwickler-Konferenz) in Nürnberg:
12./13.4 und 19./20.4.2008 http://www.donkarl.com/SEK

Bitte keine eMails auf Newsgroup-Beiträge senden.
.

Hallo,

wolfgang:

> Sie stehen ungefähr so in der Textdatei:
> Nr.: Zahl
> Ablesezeitpunkt: 02.02.2008 02:15:19
> 1.8.1(Zahl)
> 1.8.2(Zahl)

diese Format ist so nicht fuer den Import geeignet. Du kannst entweder
die Textdatei umformatieren oder anfangen, eine VBA-Routine zu
schreiben, die die Textdatein analysiert und die Daten in die Tabelle
schreibt.

Gruss - Mark

--
2. SEK (SQL Server-Entwickler-Konferenz) in Nürnberg:
12./13.4 und 19./20.4.2008 http://www.donkarl.com/SEK

Bitte keine eMails auf Newsgroup-Beiträge senden.
.

[Franz-Josef Stiensmeier]

Hallo,

als kleine Ergänzung für Wolfgang ?.

Falls man diese Geschichte nur einmal macht, ist wohl der Weg über den
Texteditor am wenigsten Aufwendig. Falls es sich um einen immer
wiederkehrenden Vorgang handelt, sollte man imo den Weg über VBA gehen.
Sonst hampelt man ewig mit dem Editor rum und kriegt die Kriese.

mfg

FJS

"Mark Doerbandt" <spamreceiver [at] doerbandt.de> schrieb im Newsbeitrag
news:focase.3nk.1 [at] dit8.doerbandt.de...
> Hallo,
>
> wolfgang:
>
>> Sie stehen ungefähr so in der Textdatei:
>> Nr.: Zahl
>> Ablesezeitpunkt: 02.02.2008 02:15:19
>> 1.8.1(Zahl)
>> 1.8.2(Zahl)
>
> diese Format ist so nicht fuer den Import geeignet. Du kannst entweder
> die Textdatei umformatieren oder anfangen, eine VBA-Routine zu
> schreiben, die die Textdatein analysiert und die Daten in die Tabelle
> schreibt.
>
> Gruss - Mark
>
> --
> 2. SEK (SQL Server-Entwickler-Konferenz) in Nürnberg:
> 12./13.4 und 19./20.4.2008 http://www.donkarl.com/SEK
>
> Bitte keine eMails auf Newsgroup-Beiträge senden.
>



.

Hallo,

wolfgang:

> wie kann ich die Zahl in der Klammer herausfiltern?
> nur die benötige ich.

Schau Dir mal in der Online-Hilfe das Stichworte "InStr", "Mid",
"Left" und "Right" an.

Gruss - Mark

--
2. SEK (SQL Server-Entwickler-Konferenz) in Nürnberg:
12./13.4 und 19./20.4.2008 http://www.donkarl.com/SEK

Bitte keine eMails auf Newsgroup-Beiträge senden.
.

Hallo,

wolfgang:

> das funktioniert leider nicht, dann kommt bei der Abfrage ein Eingabefenster.
> Oder habe ich das falsch angegeben? Z.B. Rechts([Feldname];.

heisst das Feld Feldname? Was wird in dem Eingabefenster gefragt. Wie
kommst Du auf die 8?

Gruss - Mark

--
2. SEK (SQL Server-Entwickler-Konferenz) in Nürnberg:
12./13.4 und 19./20.4.2008 http://www.donkarl.com/SEK

Bitte keine eMails auf Newsgroup-Beiträge senden.
.

[Henry Habermacher]

wolfgang wrote:
> Sie stehen ungefähr so in der Textdatei:
> Nr.: Zahl
> Ablesezeitpunkt: 02.02.2008 02:15:19
> 1.8.1(Zahl)
> 1.8.2(Zahl)
> Das sind Zählerstände.
> Nr.: ist die Zählernummer
> Ablesezeitpunkt ist Datum und Uhrzeit der Übertragung
> 1.8.1 ist der Niedertarif (NT)
> 1.8.2 ist der Hochtarif (HT)
> Es sind ca. 30 Zähler, aus denen die Texttabelle zusammengesetzt ist.


Da wirst Du wohl mit einer VBA Routine die Textdatei abarbeiten müssen.
Alternative wäre allenfalls dein Import in eine Tabelle und das hinzufügen
eines Autowertes und dannach versuchen über raffinierte Abfragen und
Kreuztabellenabfragen ein Ergebnis hinzubekommen, welches in einer Zeile die
ZählerNr, den Zeitpunkt, den Wert für den Hochtarif und den Wert für den
Niedertarif enthält. Dieses Ergebniss könntest Du dann anschliessend in eine
Tabelle einfügen.

Wird aber wohl nicht ganz einfach werden, es ohne VBA zu machen.

Gruss
Henry


--
SEK2 Anmeldung: http://donkarl.com/?SEK
Microsoft MVP Office Access
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

.