Du kannst als Kriterium des Datumfelds angeben "<= #1.10.2000#" und absteigend nach dem Datumsfeld sortieren, dann steht der richtige Datensatz oben in der Liste. Falls du nur diesen einen einzigen Datensatz willst, kannst du das noch mir "TOP 1" eingrenzen.
hth
Reinhold
Fie folgende Funktion liefert dir ein 8-stelliges, zufälliges Passwort:
function RandomPassword()
{
$zeichen = "abcdefghijklmnopqrstuvwxyz0123456789";
$pwd ="";
for ($i=0; $i < 8; $i++)
{
$pwd .= substr($zeichen,rand(0,strlen($zeichen)-1),1);
}
return $pwd;
}
[/PHP]
Verschicken kannst du es mit der Funktion "mail()"
hth
Reinhold
Leider nicht, aber ich vermute, du meinst:
(SELECT strName, strStrasse, " " as strPLZ, strOrt
from NSO)
union
(Select strName, " " as strStrasse, strPLZ, strOrt
from NPO);
Als 3. Argument erwartet Mid() eine Zahl. werte ist aber als string definiert und bleibt auch ein String, wenn es den Wert aus einer Funktion mit numerischem Rückgabewert erhält.
hth
Reinhold
Sub TabelleExistiertTesten()
Dim Tabelle As String
Tabelle = InputBox("Welche Tabelle denn?")
If TabelleExistiert(Tabelle) Then
MsgBox "Ja"
Else
MsgBox "Nein"
End If
End Sub
Function TabelleExistiert(Tabellenname As String) As Boolean
Dim i As Variant
TabelleExistiert = False
For Each i In CurrentDb.TableDefs
If i.Name = Tabellenname Then
TabelleExistiert = True
Exit Function
End If
Next i
End Function
Vorausgesetzt, die Zeilen sind durch Zeilenumbrüche getrennt, kannst du die Datei mit "DeinArrayname = file(Dateiname)" in ein Array einlesen, bevor du sie verarbeitest. Dia Anzahl der Zeilen bekommst du dann mit "countDeinArrayname()"
if dir("Datei.BSP) <> "" then
Kill "Datei.BSP"
end if
Ansonsten könntest du den Fehler ja auch ignorieren:
On Error resume next
Kill "Datei.BSP"
On Error goto Fehler
Trotzdem solltest du die Spalte verborgen besser nicht mit abspeichern. Die Abfrage "verborgen" wäre dann in SQL
"Select * from Tabelle where Titel is null".
Letztlich ist jede Abfrage in Access SQL.
hth
Reinhold
1.) Wenn [verborgt] immer auf "ja" stehen soll, wenn [An] einen Wert enthält, dann ist die Speicherung von [verborgen] redundant und somit zu vermeiden.
2.) Es ist dringend davon abzuraten, eine Spalte [Name] zu nennen, weil "Name" ein reserviertes Wort in Access ist. Früher oder später gibt das Probleme.
hth
Reinhold