Select Case

20/09/2007 - 12:02 von Jan Nitsch | Report spam
Mahlzeit

Ich bin so nich weitergekommen und probiere deshalb was neues.
Ich hab die Anzahl möglicher Rückmeldungen auf 5 beschrànkt und jetzt
auch 5 rm_felder im Formular angelegt.

Dann hab ich folgenden Code eingefügt, der, wie könnte es auch anders
sein, nicht funktioniert...

Option Compare Database
Dim rm As Integer

Private Sub rm_eintragen_Click()
On Error GoTo Err_rm_eintragen_Click

Select Case rm

Case rm = 1
strSql = "UPDATE info SET Rückmeldung=True," & _
" rm1='" & CurrentUser & " " & Now & " " & Me!rm_feld1 & "'" & _
" WHERE ausw=True; "
Debug.Print strSql
CurrentDb.Execute strSql

Case rm = 2
strSql = "UPDATE info SET Rückmeldung=True," & _
" rm1='" & CurrentUser & " " & Now & " " & Me!rm_feld2 & "'" & _
" WHERE ausw=True; "
Debug.Print strSql
CurrentDb.Execute strSql

Case rm = 3
strSql = "UPDATE info SET Rückmeldung=True," & _
" rm1='" & CurrentUser & " " & Now & " " & Me!rm_feld3 & "'" & _
" WHERE ausw=True; "
Debug.Print strSql
CurrentDb.Execute strSql

Case rm = 4
strSql = "UPDATE info SET Rückmeldung=True," & _
" rm1='" & CurrentUser & " " & Now & " " & Me!rm_feld4 & "'" & _
" WHERE ausw=True; "
Debug.Print strSql
CurrentDb.Execute strSql

Case rm = 5
strSql = "UPDATE info SET Rückmeldung=True," & _
" rm1='" & CurrentUser & " " & Now & " " & Me!rm_feld5 & "'" & _
" WHERE ausw=True; "
Debug.Print strSql
CurrentDb.Execute strSql

End Select

Exit_rm_eintragen_Click:
Exit Sub

Err_rm_eintragen_Click:
MsgBox Err.Description
Resume Exit_rm_eintragen_Click

End Sub


Private Sub Form_Load()
If rm_feld1 <> Null Then
rmf.rm_feld1.Locked = True
rm = 2

ElseIf rm_feld2 <> Null Then
rmf.rm_feld1.Locked = True
rmf.rm_feld2.Locked = Ture
rm = 3

ElseIf rm_feld3 <> Null Then
rmf.rm_feld1.Locked = True
rmf.rm_feld2.Locked = Ture
rmf.rm_feld3.Locked = True
rm = 4

ElseIf rm_feld4 <> Null Then
rmf.rm_feld1.Locked = True
rmf.rm_feld2.Locked = Ture
rmf.rm_feld3.Locked = True
rmf.rm_feld4.Locked = True
rm = 5

End If


End Sub

Sprich ich möchte daß das Formular erkennt wieviele Rückmeldungen
schon gemacht wurden und entsprechende vorherige Rückmeldungen dadurch
nicht mehr editierbar werden.

Mfg
Jan
 

Lesen sie die antworten

#1 Christa Kurschat
20/09/2007 - 13:03 | Warnen spam
Hallo Jan,

Jan Nitsch schrieb:


Private Sub Form_Load()
If rm_feld1 <> Null Then



Hier liegt der (ein) Fehler.
Vergleiche mit NULL-Werten funktionieren nicht über die normalen
Vergleichsoperatoren.

Entweder
if rm_feld1 is null then
oder
if isnull(rm_feld1 ) then

Gruß
Christa
Access-FAQ: http://www.donkarl.com
SQL-Server-FAQ: www.sqlfaq.de
InsideSql: www.insidesql.de
Suchen in den Newsgroups:
http://groups.google.de/advanced_gr...p;ie=UTF-8

Ähnliche fragen