6
Pflichtfelder einer Tabelle via VBA herausfinden
moin zusammen!
In meiner Accessdatenbank, welche ich mit Access XP erstellt habe, möchte ich nun mit VBA eine Funktion erstellen, die mir auf jedem Formular die Pflichtfelder rot hinterlegt. Also müsste die VBA funktion in die Ursprungstabelle zugreiffen und schauen ist dies ein pflichtfeld, wenn ja, rot anfärben wenn nein, nichts machen.
Vielen Dank für deine Unterstützung!
Gruss Severin
In meiner Accessdatenbank, welche ich mit Access XP erstellt habe, möchte ich nun mit VBA eine Funktion erstellen, die mir auf jedem Formular die Pflichtfelder rot hinterlegt. Also müsste die VBA funktion in die Ursprungstabelle zugreiffen und schauen ist dies ein pflichtfeld, wenn ja, rot anfärben wenn nein, nichts machen.
Vielen Dank für deine Unterstützung!
Gruss Severin
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 38573
Url: https://administrator.de/contentid/38573
Printed on: April 18, 2024 at 00:04 o'clock
6 Comments
Latest comment
sub PflichtfelderSetzen(frm as form)
Dim idx As Index
dim tdf As TableDef
dim fld as field
set tdf=currentdb.TableDefs(frm.RecordSource)
For Each idx In tdf.Indexes
If idx.Primary Then
For Each fld In idx.fields
frm.controls(fld.name).BackColor=vbRed
next
end if
next
end subZugrunde liegende Annahmen:
- Mit "Pflichtfelder" meinst Du den/die Primärschlüssel der Tabelle
- Das Formular benutzt direkt die Tabelle als Datenquelle und kein Query oder SELECT
- Die Felder im Formular haben die selben Namen wie die Felder in der Tabelle
Aufruf:
Im Load-Event des Formulars:
sub Form_Load
call PflichtfelderSetzen(me)
end subHTH
Danke für deine Hilfe.
Aber zu deinen Annahmen, muss ich leider folgendes korrigieren:
- Mit Pflichtfelder meine ich, Felder, welche angegeben werden müssen (SQL: NOT NULL)
- Zum grössten Teil hole ich mir die Daten über eine Abfrage
- und zum letzten Punkt: wirklich gar keine Felder tragen den selben Namen wie in der Tabelle das heisst die ersten 3 buchstaben sind anders z.B. txtName
Finde es klasse das so schnell eine Antwort kam, war schon fast ein bisschen verdutzt. Grosses Kompliment
Aber zu deinen Annahmen, muss ich leider folgendes korrigieren:
- Mit Pflichtfelder meine ich, Felder, welche angegeben werden müssen (SQL: NOT NULL)
- Zum grössten Teil hole ich mir die Daten über eine Abfrage
- und zum letzten Punkt: wirklich gar keine Felder tragen den selben Namen wie in der Tabelle das heisst die ersten 3 buchstaben sind anders z.B. txtName
Finde es klasse das so schnell eine Antwort kam, war schon fast ein bisschen verdutzt. Grosses Kompliment
Ah, ok... Versuchs mal hiermit (Code aus dem Kopf hingeschrieben - also keine garantie für Syntax/Funktion... aber ich denke Du siehst in welche Richtung das geht)
sub PflichtfelderSetzen(frm as form)
dim rs as recordset
dim fld as field
Dim ctl As Control
set rs=frm.recordset
for each fld in rs.fields
If not fld.AllowZeroLength Then
For Each ctl In frm.controls
if ctl.ControlSource = fld.name then ctl.BackColor=vbRed
next
end if
next
end subFinde es klasse das so schnell eine Antwort
kam, war schon fast ein bisschen verdutzt.
Bin grad ueber einem aehnlichen Problem - deshalb hatt ich das grad so paratkam, war schon fast ein bisschen verdutzt.
Grosses Kompliment
Danke
Hat hervorragend geklappt, habe allerdings den befehlt ein wenig verändert:
Nun habe ich das Problem, wenn ich etwas anderes als ein Textfeld auf meinem Formular habe (button oder label) kommt die Fehlermeldung "Objekt unterstützt diese Eigenschaft oder Methode nicht." Was eigentlich heisst das man die Hintergrundfarbe bei einem Label nicht über ctl.BackColor ändern kann.
Gibt es da Befehle um herauszufinden, ob es sich um ein Textfeld handelt?
Gruss Severin
Public Function pflichtfelder(frm As Form)
Dim rs As DAO.Recordset
Dim fld As DAO.Field
Dim ctl As Control
Set rs = frm.Recordset
For Each fld In rs.Fields
If fld.Required Then
For Each ctl In frm.Controls
If ctl.ControlSource = fld.Name Then ctl.BackColor = vbRed
Next
End If
Next
End FunctionGibt es da Befehle um herauszufinden, ob es sich um ein Textfeld handelt?
Gruss Severin
Freud mich das es klappt.
Du kannst zusätzlich noch die "ControlType" Eigenschaft des Controls abfragen. Wenn ctl.ControlType=109 dann ist es ein Textfeld
Die wichtigsten ControlType's für Formulare sind:
Du kannst zusätzlich noch die "ControlType" Eigenschaft des Controls abfragen. Wenn ctl.ControlType=109 dann ist es ein Textfeld
Die wichtigsten ControlType's für Formulare sind:
106 CheckBox
109 Textbox
110 Listbox
111 ComboBox
So nun bin ich fertig! Habe die Funktion erfolgreich getestet.
Danke nochmals für deine rasche Hilfe!!
Gruss Severin
Public Function pflichtfelder(frm As Form)
Dim rs As DAO.Recordset
Dim fld As DAO.Field
Dim ctl As Control
Dim ctl_type As Integer
Set rs = frm.Recordset
For Each fld In rs.Fields
If fld.Required Then
For Each ctl In frm.Controls
ctl_type = ctl.ControlType
If ctl_type = 109 Or ctl_type = 111 Then
If ctl.ControlSource = fld.Name Then ctl.BackColor = 14136198
ctl.ForeColor = 16777215
End If
Next
End If
Next
End FunctionDanke nochmals für deine rasche Hilfe!!
Gruss Severin
