Hallo an alle ich bin neu hier
Ich habe da ein Problem und finde dazu keine Lösung
Ich möchte in einem Formular alle leeren Kombinationsfelder mit <Bitte Auswählen > anzeigen lassen
Bei Feldern die Text enthalten kann man in der Formateigenschaft @;"<Bitte Eingeben>" Eingeben und es wird angezeigt
Wenn aber die erste spalte des Kombinationsfelds die ID speichert also eine zahl geht das nicht
Eine andere Lösung wäre z.b. diese hier [/url]http://www.access-entwicklerbuch.de/2007/index.php?page=buch&bookpage=Kap_05/04_02.html[url]
Was aber bei einem komplexeren SQL-Code für mich zum Problem wird
Also dachte ich man könnte das vielleicht mit einer Cbo Collection per Vba in alle Cbo´s schreiben lassen z.b. mit einem Modul und bei Datensatz Speicherung vorher mit einem anderen Modul wieder löschenlassen damit es keine Fehlermeldung gibt
Ich habe das mal so angefangen
Dim CboColl As New Collection
Private Sub Form_Load()
Set CboColl = New Collection
With CboColl
.Add Item:= ComboName
.Add Item:= ComboName
.Add Item:= ComboName
End With
End Sub
Den Rest bekomme ich nicht so ganz hin da ich die Variablen nicht richtig deklariere
Wenn mir jemand dabei helfen kann wäre ich sehr dankbar den mit den Büchern komme ich da nicht ganz klar
Gruß Frank
Hallo und willkommen,
na, ich denke, Dein Lösungsversuch wirft mehr Probleme auf als die Union-Abfrage... ;)
ZitatWas aber bei einem komplexeren SQL-Code für mich zum Problem wird
Was für ein Problem? Und warum muss der SQL-String für das Kombi komplex sein?
Der "Komplexen" SQL-String könnte ja als gespeicherte Abfrage vorhanden sein, womit der SQl-String für das Kombi etwa so lautet:
Select 0, "<Bitte auswählen>" from qry_gespeicherteAbfrage
Union
Select ID, Textfeld1 from qry_gespeicherteAbfrage
Hallo Danke !
hat super geklappt bei mehr spaltigen Kombinationsfeldern habe ich eine abfrage erstellt und in Column 1 verkettet dargestellt und bei eingeschafften Standardwert 0 eingetragen
Bei einem neuen Datensatz wird jetzt in allen Komboboxen < Bitte Auswählen > angezeigt !
Das Problem jetzt ist da nicht alle Felder Pflicht sind und es beim speichern zum Fehler kommt da die 0 ein nicht zugelassener wert ist
und ich habe in meinem Formular ein Listenfeld dem ich durch die Datensätze navigieren kann
kommt es dabei zum gleichen Fehler
Also müsste ich per Vba beim Speichen ober navigieren die 0 Austragen lassen BeforeUpdate
Beim navigieren aber wieder eintragen damit die Kosmetik erfüllt ist AfterUpdate
Ich dachte mir daher das das ja so stattfinden könnte aber wie gesagt ich bin noch anfänger
Beim laden des Formulars eine Kollektion der komboboxen erstellen
Dim controlColl As New Collection
Dim contr As Object
Dim i As Integer
With controlColl
.Add Item:=MitEinsatzIDRef
.Add Item:=mitZbIDRef
.Add Item:=MitGeschIDRef
.Add Item:=MitPersAnredeIDRef
.Add Item:=MtiKonfIDRef
.Add Item:=MitSchuhIDRef
.Add Item:=MitLohnVerhKatIDRef
.Add Item:=MitLohnStIDRef
.Add Item:=MitFamIDRef
.Add Item:=MitAusZahlIDRef
.Add Item:=CbomitPlzIDRef
.Add Item:=CboMitBlzBankIDRef
End With
Dann einen sub für die Ausführung schreiben mit den Inhalt einmal fürs austragen und einmal fürs eintragen
Private Sub SetAus(ctrl As Control)
With ctrl
If IsNull Then Item.Data (0)
If colr = "weiss" Then .BackColor = RGB(252, 230, 212)
If Nz(contr, 0) Then .Value = ""
If colr = RGB(252, 230, 212) Then .BackColor = weiss
End With
End Sub
Das ganze könnte man ja dann hiermit aufrufen
Private Sub Aus()
For Each contr In controlColl
Call SetAus(controlColl)
Next contr
End Sub
Ob das so richtig ist weis ich ja auch nicht
Ich hoffe das mir jemand bei der weiter Entwicklung helfen kann
Gruß Frank
Hallo,
lass doch mal diese Collection weg...
Das ist wie durch die Brust ins Auge treffen...
Prüf lieber im Form_BeforeUpdate-Ereignis nach, ob der Kombifeldinhalt 0 ist und reagiere entsprechend
Hi !
Danke für den tipp der versuch mit der Connection ist echt anstrengend aber egal man muss ja mal testen ;D
So funktioniert alles recht gut wenn ich aber über den Button auswählen eintragen lasse oder es von Hand auswählt und dann im Listenfeld navigiert passiert nach ein paar klick der Fehler sie können dem object keinen wert zu weisen
Und nach weiteren Klicks Fehler 3020
(der Button ist nur Simulation das sollte eigentlich beim navigieren von alleine passieren )
weis noch nicht wie ich den fehler beheben so ???
Gruss Frank
[Anhang gelöscht durch Administrator]
Hallo,
poste bitte Deinen (kompletten) akt. Code!
Meine Glaskugeln sind allesamt beim TÜV.
Hi!
Ich dachte das das anfügen des Beispiels ober ok sei
So habe ich den Code im Formular hinterlegt
Option Compare Database
Private Sub Befehl32_Click()
With Form_haupt
If IsNull(Me.Cbo1) = True Then Me!Cbo1 = Me!Cbo1.ItemData(0)
If IsNull(Me.Cbo2) = True Then Me!Cbo2 = Me!Cbo1.ItemData(0)
If IsNull(Me.Cbo3) = True Then Me!Cbo3 = Me!Cbo1.ItemData(0)
End With
End Sub
Private Sub Befehl35_Click()
On Error GoTo Err_Befehl35_Click
DoCmd.GoToRecord , , acNext
Exit_Befehl35_Click:
Exit Sub
Err_Befehl35_Click:
If Err.Number = 2105 Then
DoCmd.GoToRecord , , acFirst
Resume Exit_Befehl35_Click
End If
MsgBox Err.Description
Resume Exit_Befehl35_Click
End Sub
Private Sub Befehl36_Click()
On Error GoTo Err_Befehl36_Click
DoCmd.GoToRecord , , acPrevious
Exit_Befehl36_Click:
Exit Sub
Err_Befehl36_Click:
If Err.Number = 2105 Then
DoCmd.GoToRecord , , acLast
Resume Exit_Befehl36_Click
End If
MsgBox Err.Description
Resume Exit_Befehl36_Click
End Sub
Private Sub Liste29_AfterUpdate()
DoCmd.SearchForRecord , "", acFirst, "[ID]=" & Str(Nz(Screen.ActiveControl, 0))
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
With Form_haupt
If Me!Cbo1 = (0) Then Me!Cbo1.Value = ""
If Me!Cbo2 = (0) Then Me!Cbo2.Value = ""
If Me!Cbo3 = (0) Then Me!Cbo3.Value = ""
End With
End Sub
Private Sub Form_Current()
Me!Liste29 = Me!Liste29.ItemData(Me.CurrentRecord - 1)
End Sub
Wen das formal geladen wird dann soll in allen Komboboxen das <Bitte Auswählen> drin stehen
Also der erzeugte Datensatz 0 der dann beim zum nächsten Datensatz gehen gelöscht werden muss
Damit es keine Fehler beim speichern der referenziellen Integrität gibt das geht ja auch aber wen ich das dann zusätzlich über das Listenfeld navigiere da macht mir "glaub ich" das Recordset einen stich durch die Rechnung und sagt es kann kein wert zugewisen werden .Value = ""
Gruß frank
Hallo,
Option Compare Database
Private Sub Befehl32_Click() 'gescheite Benamsung verwenden! Vermutlich ist das der "Reset-Kopf" für das Rückstellen der Kombis auf "auswählen"
With Form_haupt
If IsNull(Me!Cbo1) = True Then Me!Cbo1 = 0 'Me!Cbo1.ItemData(0)
If IsNull(Me!Cbo2) = True Then Me!Cbo2 = 0 'Me!Cbo1.ItemData(0)
If IsNull(Me!Cbo3) = True Then Me!Cbo3 = 0 'Me!Cbo1.ItemData(0)
End With
End Sub
' Beim Laden des Forms Kombi "resetten"
Sub Form_Load()
Befehl32_Click
End Sub
Private Sub Befehl35_Click()
On Error GoTo Err_Befehl35_Click
DoCmd.GoToRecord , , acNext
Exit_Befehl35_Click:
Exit Sub
Err_Befehl35_Click:
If Err.Number = 2105 Then
DoCmd.GoToRecord , , acFirst
Resume Exit_Befehl35_Click
End If
MsgBox Err.Description
Resume Exit_Befehl35_Click
End Sub
Private Sub Befehl36_Click()
On Error GoTo Err_Befehl36_Click
DoCmd.GoToRecord , , acPrevious
Exit_Befehl36_Click:
Exit Sub
Err_Befehl36_Click:
If Err.Number = 2105 Then
DoCmd.GoToRecord , , acLast
Resume Exit_Befehl36_Click
End If
MsgBox Err.Description
Resume Exit_Befehl36_Click
End Sub
Private Sub Liste29_AfterUpdate()
DoCmd.SearchForRecord , "", acFirst, "[ID]=" & Str(Nz(Screen.ActiveControl, 0))
Me.Recordset.Findfirst "[ID]=" & nz(Me!liste29,0)
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
With Form_haupt
If Me!Cbo1 = 0 or Me!Cbo2 = 0 or Me!Cbo3 = 0 Then Cancel =true
End With
End Sub
Private Sub Form_Current()
Me!Liste29 = Me!Liste29.ItemData(Me.CurrentRecord - 1)
Me!Liste29.Requery
Me!Liste29 = nz(Me!ID,0)
End Sub
Hallo danke für die Überarbeitung aber leider endstehen ständig Laufzeit Fehler
Ich hatte mir das so vorgestellt in meiner Umsetzung
- Ich öffne das Formular
- In allen Feldern steht dann bitte auswählen
- Wenn dann über den Button navigiert wird steht in dachsten Datensatz wieder in den Feldern das auswählen usw.
- Wen man aber über das Listenfeld und nicht über den Button vor oder zurück navigiert dann sollte das gleiche mit den Feldern passieren
Der Button der das Auswählen einfügt wäre eigentlich nicht vorhanden aber das könnte dann wie du es bei form_load eingetragen als sub so verwendet werden und das austragen auch und es dann bei den entsprechenden Ereignissen ansprechen
Wenn aber das Listenfeld dazwischen kommt zerschießt es das Recordset wenn ich das richtig interpretiert habe da dann der Fehler auftritt
Sie haben ohne einen Aufruf von 'AddNew' oder 'Edit' versucht, 'Update' oder 'CancelUpdate' aufzurufen oder ein Feld in einem Recordset aufzurufen (Fehler 3020)
Wen ich das Listenfeld weglassen würde wäre das kein Thema das um zusetzen aber das geht leider nicht weil da die Übersicht fehlt die ich brauche
In dem angehängten Beispiel habe ich den Code umgesetzt
Gruß Ffrank
[Anhang gelöscht durch Administrator]
Hallo,
versteh Deine Einwände nicht...
Welches Recordset?
"Wenn dann über den Button navigiert wird steht in dachsten Datensatz wieder in den Feldern das auswählen usw."
bei mir nicht... "Auswählen" steht nur bei einem neuen Datensatz
"aber das könnte dann wie du es bei form_load eingetragen "
eigentlich Quatsch. Die Kombis sind doch gebunden und zeigen die abgespeicherten Werte an. Wenn das Form geladen wird, steht es auf dem ersten Datensatz und die Kombis zeigen die Werte der entspr. Felder an. Allenfalls wenn die (noch) NULL wären, würde "auswählen" in den Kombis stehen. Damit immer , auch bei Datensätzen "mittendrin" bei NULL das "Auswählen" steht, dann wäre statt Load das Current-Ereignis besser geeignet.
btw: wirf das Makro für Button "Neu" raus und ersetz es durch eine Ereignisprozedur
"...'Update' oder 'CancelUpdate' aufzurufen ..."
stell ich nicht fest.
"Wen ich das Listenfeld weglassen würde ..."
brauchst Du nicht. Das Listenfeld funktioniert bei mir einwandfrei (Anzeige und Formular filtern, bzw. positionieren.)
Hi
Wenn ich die Datenbank öffne zeigt sie den ersten Datensatz in Listenfeld an
Ich klicke auf den 2. Dan erscheint der Laufzeit Fehler 3426 und der Debugger
Zeigt diese Zeile
Me.Recordset.FindFirst "[ID]=" & Nz(Me!Liste29, 0)
Beim Klicken auf den nächsten das gleiche und ich muss die Datenbank schlissen
Ich öffne sie wieder und klicke als erster auf nächster und es passiert nichts
Dann auf vorheriger und es erscheint Laufzeit Fehler 2105
Der Debugger zeigt diese Zeile
DoCmd.GoToRecord , , acLast
Der Neu Button sagt darauf hin sie können nicht zum angegebenen Datensatz springen
Könntest du vielleicht eine bearbeitete Version posten
Gruß Frank
Hallo ,
anbei
[Anhang gelöscht durch Administrator]
Kann die datei nicht entpacken sorry
Hallo,
habe eine ZIP mit geringerer Kompression angehängt..
Hallo!
Hat ein bisschen gedauert bis ich das was ich meinte umgesetzt habe. und das nur aus zufall da ich die zeile
Me!Cbo1 = 0 or Me!Cbo2 = 0 or Me!Cbo3 = 0 Then Cancel =true in meiner hauptdatenbank anderweitig umsetzen wollte. ich bin im netz auf das rot markierte gestoßen und habe diese zeilen in die funktion mit eingefügt
If Me!Cbo1 = 0 Then Me!Cbo1.Value = ""
If Me!Cbo2 = 0 Then Me!Cbo2.Value = ""
If Me!Cbo3 = 0 Then Me!Cbo3.Value = ""Und Plötzlich hat es funktioniert aber nur bedingt, auch wenn die grün markierte zeile
'DoCmd.GoToRecord , , acFirst aktiviert wird
Es sei denn man ändert den neuen daten satz nicht
Denn da liegt der fehler auch wenn die zeile
'DoCmd.GoToRecord , , acFirst nicht aktiv ist
verändert man am neuen datensatz was und macht es aber wieder rückgangig also das es aussieht als wäre es wieder der neue datensatz kommt das recordset durcheinander und man kann nur noch mit Exit ohne Speichern aus dem formular aussteigen
Meine frage wäre: könnte man da nicht das Cancel = true nur auf den neuen datensatz legen
Denn durch das eintragen von <Auswählen> beim anzeigen eines vorhandenen datensatzes ist ja immer das schreiben im linken balken zu erkennen
Das zweite das ich eingebaut habe ist das Farbe bei Focus Ändern, die zeilen habe ich blau markiert
Meine frage dazu ist: kann man das so einbauen das die kombinationsfelder bei 0 als <Auswählen>
Farbig sind und bei einem anderen datensatz wieder normal ?
Ich bekomme die farbe geändert aber micht mehr zurück auf weiss egal bei welchem ereignis
Das sah dann so aus
If Me!Cbo1 = 0 Then Call Farbe_Focus_Ein(Screen.ActiveControl.Name)
If Me!Cbo1 >= 0 Then Call Farbe_Focus_Aus(Screen.ActiveControl.Name Das Beispiel hab ich angehängt aber der Speicher buton ist eigentlich nur zur kontrolle mit eingefügt
Option Compare Database
Public bolSchliessenErlaubt As Boolean
Const normalColor As Long = 16777215
Const activateColor As Long = 15849926
Private Sub Befehl1_Click() 'Exit mit Speichern
If fncPruefen = True Then
bolSchliessenErlaubt = True
DoCmd.Close acForm, "Haupt"
End If
End Sub
Private Sub Ausw_Einfuegen()
If IsNull(Me.Cbo1) Then Me!Cbo1 = 0
If IsNull(Me.Cbo2) Then Me!Cbo2 = 0
If IsNull(Me.Cbo3) Then Me!Cbo3 = 0
End Sub
Private Sub Befehl33_Click()
DoCmd.GoToRecord , , acNewRec
End Sub
Private Sub Befehl35_Click()
On Error GoTo Err_Befehl35_Click
DoCmd.GoToRecord , , acNext
Exit_Befehl35_Click:
Exit Sub
Err_Befehl35_Click:
If Err.Number = 2105 Then
'DoCmd.GoToRecord , , acFirst
Resume Exit_Befehl35_Click
End If
MsgBox Err.Description
Resume Exit_Befehl35_Click
End Sub
Private Sub Befehl36_Click()
On Error GoTo Err_Befehl36_Click
DoCmd.GoToRecord , , acPrevious
Exit_Befehl36_Click:
Exit Sub
Err_Befehl36_Click:
If Err.Number = 2105 Then
'DoCmd.GoToRecord , , acLast
Resume Exit_Befehl36_Click
End If
MsgBox Err.Description
Resume Exit_Befehl36_Click
End Sub
Private Sub Befehl39_Click()
DoCmd.RunCommand acCmdSaveRecord
End Sub
Private Sub Befehl5_Click()
Me.Undo
bolSchliessenErlaubt = True
DoCmd.Close acForm, "Haupt"
End Sub
Private Sub Cbo1_GotFocus()
Me.Cbo1.Dropdown
End Sub
Private Sub Cbo2_GotFocus()
Me.Cbo2.Dropdown
End Sub
Private Sub Cbo3_GotFocus()
Me.Cbo3.Dropdown
End Sub
Private Sub Form_Unload(Cancel As Integer)
If bolSchliessenErlaubt = False Then
MsgBox "Das Formular kann nur über die Buttons geschlossen werden"
Cancel = True
End If
End Sub
Private Sub Liste29_AfterUpdate()
On Error Resume Next
Me.Recordset.FindFirst "[ID]=" & Nz(Me!Liste29, 0)
Me!Liste29 = Nz(Me!id, 0)
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
Cancel = Not fncPruefen
End Sub
Private Sub Form_Current()
Me!Liste29.Requery
Me!Liste29 = Nz(Me!id, 0)
Ausw_Einfuegen
End Sub
Public Function fncPruefen()
fncPruefen = True
If IsNull(Me!Vorname) Then
MsgBox "Bitte Tragen sie einen Vornamen ein"
fncPruefen = False
End If
If IsNull(Me!Nachname) Then
MsgBox "Bitte Tragen sie einen Nachnamen ein"
fncPruefen = False
End If
If Me!Cbo1 = 0 Then Me!Cbo1.Value = ""
If Me!Cbo2 = 0 Then Me!Cbo2.Value = ""
If Me!Cbo3 = 0 Then Me!Cbo3.Value = ""
End Function
Private Sub Farbe_Focus_Ein(stnFeld As String)
Me.Controls(stnFeld).BackColor = activateColor
End Sub
Private Sub Farbe_Focus_Aus(stnFeld As String)
Me.Controls(stnFeld).BackColor = normalColor
End Sub
Private Sub Nachname_GotFocus()
Call Farbe_Focus_Ein(Screen.ActiveControl.Name)
End Sub
Private Sub Nachname_LostFocus()
Call Farbe_Focus_Aus(Screen.ActiveControl.Name)
End Sub
Private Sub Vorname_GotFocus()
Call Farbe_Focus_Ein(Screen.ActiveControl.Name)
End Sub
Private Sub Vorname_LostFocus()
Call Farbe_Focus_Aus(Screen.ActiveControl.Name)
End Sub
Gruß Frank
[Anhang gelöscht durch Administrator]
Hallo,
die Farbe könntest Du im Form_Current-Ereignis einstellen.
Warum machst Du nun mehrere Baustellen auf? Bring doch erst mal das erst gestellte Problem zum Laufen.
Aufgrund der Überprüfung auf 0 (entspr. "auswählen") im Before-Update-Ereignis kann ein betroffener DS erst dann verlassen werden, wenn man eine komplette Auswahl getroffen hat.
Um das zu vermeiden, kann statt Cancel=true auch eine Msgbox mit Fehlerhinweis angezeigt und dann entspr. der Reaktion des Users reagiert werden.
Alles andere habe ich (auch aus Gründen der massenhaften Rechtschreibfehler) nicht richtig verstanden.
hi!
massivsten Rechtschreibfehler Fehler korrigiert...
das erste problem habe ich ja behoben ( siehe im Beispiel ), mit den rot markierten subs. aber ich komm immer noch zu dem ursprünglichen problem des neuen datensatzes.wenn dieser verändert wurde, der "next" button nicht mehr in schleife läuft, sondern er fehler meldet.
Zitat von: DF6GL am Oktober 11, 2011, 15:11:12
Um das zu vermeiden, kann statt Cancel=true auch eine Msgbox mit Fehlerhinweis angezeigt und dann entspr. der Reaktion des Users reagiert werden.
das würde heissen, ich müsste mit der msgbox bei abbrechen den neuen ds verlassen und auf den vorletzten zurück springen?
Me.Undo
DoCmd.RunCommand acCmdRecordsGoToLast[Anhang gelöscht durch Administrator]
Hallo,
In der Fehlerbehandlung darf keine Aktion stehen, die in der akt. Fehlersituation wieder zu einem weiteren Fehler führen würde...
(Ich hatte diese GotoRecord-Zeilen auskommentiert)
Hallo, danke für das annehmen meine fragen !
Ja ich weiß das du die Zeile aus kommentiert hast es wäre halt schön gewesen wenn das ganze im loop laufen würde.
Im Beispiel habe ich sie angemacht das der Fehler auch erscheint um das mit dem Recordset wo wir in vorherigen post´s aneinander vorbei geschrieben haben zu veranschaulichen zwecks einer eventuellen Lösung
Das einzige was da noch fehlt ist das die Buttons bei null der beiden Namensfelder deaktiviert sind
Weil dadurch beim neuen Ds noch ein Fehler entstehen kann
Leider weiß ich nicht wie man 2 Felder in einer Zeile zusammen als Bedingung anspricht ??? ??? ???
so in ca. If isnull me![Vorname]&[Nachname] then Befehl39.Enabled = False
Hallo,
ohne über den Sinn weiter nachzudenken:
If IsNull(Me![Vorname]) And IsNull(Me![Nachname]) Then
Befehl39.Enabled = False
End If
Und schreibe Code nicht einfach ab, sondern kopiere diesen hier rein um zusätzliche Abschreibefehler zu vermeiden.
Hallo !
Und Danke Danke Danke !!!!! an DF6GL und MzKlMu für die nette Hilfe und das prompte beantworten meiner NERVIGEN ::) Fragen ;)
Jetzt funktioniert alles so wie ich mir das vorgestellt habe sieht im Beispiel selbst
Es kann ganz sicher noch verbessert werden aber ich bin damit zufrieden
Und so wie es aussieht ist es der erste Entwurf im Netz der das <Auswählen> immer anzeigt
zu der Sache mit der Rechtschreibung
ich bin Bäcker, Schwabe, Handwerker und Papa von 2en aber kein Grammatik Genie denn das ist meine Frau
Herzlichen Dank Frank
[Anhang gelöscht durch Administrator]
Hallo,
na schön, dann lass Deine Frau aber nochmal über das Formular sehen... ;D
Hallo !
Eine Frage hab ich doch
Wenn das hier geht :
If Not IsNull(Me![Vorname]) And Not IsNull(Me![Nachname]) Then
Warum geht dann das nicht?
If Not IsNull(Me![mitVorname]) And Not IsNull(Me![mitNachname]) And Not IsNull(Me![mitStrasse]) And Not IsNull(Me![CbomitPlzIDRef]) And Not IsDate(Me![MitGebDatum]) Then
Befehl39.Enabled = False
End If
Gruß Frank
Hallo,
und was erwartest Du daraus?
WAS soll gehen, bzw. geht nicht?
achso oh ja habe ergänzt
Hallo,
nein, ich meinte schon, was Du mit der zweiten Bedingung testen willst..
Vielleicht ist ja nur hier Dein Problem:
...And Not IsNULL(Me![MitGebDatum])
Das Not IsDate funktioniert das habe ich so in der Prozedur stehen
If Not IsDate(Me!MitGebDatum) Then
MsgBox "Bitte Tragen sie ein Datum ein"
fncPruefen = False
End If
Ich habe den Fehler gefunden es liegt daran das beim auslesen des Kombinationfeldes ein Fehler auftritt. So wie im folgenden Code der ja komischerweise auch so nicht geht
If IsNull(Me!CbomitPlzIDRef) Then
MsgBox "Bitte Wählen sie einen Plz aus"
fncPruefen = False
End If
Korrektur zum oberen Code so läuft er If Me!CbomitPlzIDRef.Value = 0 Then
Es geht aber nicht in dieser Zeile:
If Not IsNull(Me![mitVorname]) And Not IsNull(Me![mitNachname]) And Not IsNull(Me![mitStrasse]) And Not IsNull(Me![CbomitPlzIDRef]) And Not IsDate(Me![MitGebDatum]) Then
Befehl39.Enabled = False
End If
P.S. Habe Access 2010 32bit
Tja keine Ahnung Gruß Frank
Hallo,
ich an Deiner Stelle würde Grossposting sein lassen, sonst kriegst Du keine Antwort mehr.
Und ob der Beitrag dort
http://www.office-loesung.de/ftopic486622_0_0_asc.php (http://www.office-loesung.de/ftopic486622_0_0_asc.php)
zur Erklärung reicht, möchte ich auch bezweifeln.
Ja die Antwort reicht nicht !!!
Denn das Internet ist eigentlich nicht so meine Welt und ich bin eigentlich nicht in Foren aktiv
Aber auf Grund meiner Betriebsgründung zwingt mich Access etwas dazu aber nur etwas
Ich dachte eignet ich Foren sind zum Server, schreiben, helfen und eventuell fürs Networking da
Oder nicht ?
Aber irgend wie erinnert das mich gerade an meine Kinder "Wenn der dein freund ist spiel ich nicht mehr mit dir"
So jetzt meine fragen :
1. Was ist Grossposting ?
2. Wegen was bist du jetzt angepisst
3. Und warum darf ich mich nicht frei entscheiden was ich im WWW mache bezogen auf §1 Grundgesetz
Hallo,
Zu 1)
Grossposting=gleiche Frage in mehreren Foren
Zu 2)
Ich bin nicht angepisst, warum sollte ich? Ich glaube auch nicht, dass Du das herauslesen kannst.
Wenn mir etwas zu Deinem Problem eingefallen wäre, hätte ich es auch geschrieben.
Es war nur ein Ratschlag, weil Du neu in Foren (besonders in Access) bist.
Die meisten ziehen sich sofort zurück, wenn die Frage in mehreren Foren gepostet wird. Und die Access Foren sind ein Dorf.
Zu 3)
Ein Forum hat Regeln und die hast Du bestätigt und da steht das mit dem Grossposting drin.
Zitat von: Access-o-Mania NetiquetteCrossposting, d.h. das Posten der gleichen Frage in mehreren Foren zur gleichen Zeit, ist unerwünscht.
Kurze Begründung:
Niemand will dass seine Hilfe ins Leere läuft. Wenn Du in mehreren Foren postest, versuchen auch in mehreren Foren Leute Lösungen zu bieten.
Man gibt sich Mühe, erarbeitet einen Vorschlag, während in einem anderen Foren längst die Lösung geboten wurde. Wenn Du dann Pech hast, bekommst Du noch nicht mal eine Antwort. Und die eigene Arbeit war für die Katz. Einer (oder gar Mehrere) ist immer der Gelackmeierte. Wolltest Du das?
Habe mich gerade nur verfolgt gefüllt
Die Aussage oben hat einen sehr dominanten Charakter und wenn das mal global www sieht kommt das einer Bloßstellung sehr nahe oder? Stichwort PN wäre da eher angebracht
Zum letzten abschnitt:
Ich kann Verstehen das es einen aufregt wenn wie du sagst die Arbeit für die Katz ist
Aber nicht alle die die Hilfe suchen sollte man über einen Kamm scheren den oftmals hilft es beim erlernen 2 Möglichkeiten zu sehen woraus sich dann mehr wissen ergibt
Und das kleingedruckte lesen auch nur 2 – 5% wenn überhaupt !
Aber egal da das hier ja jetzt jeder lesen kann liegt es mir fern um Positionen zu feilschen den das ist bestimmt nicht der richtige weg !
Trotzdem danke für die Hilfe Gruß Frank