Ein Form zwei verschiedene Überschriften

09/06/2009 - 22:08 von Jürgen Großmann | Report spam
Hallo
Ich habe ein Formular1 (frm_Buch_Format) mit einem Listenfeld
(lst_Buchformat).und zwei Befehlsschaltflàchen (btn_Buchformat_bearbeiten
und btn_BuchformatNeu) Dort wàhle ich einen Datensatz aus um in in nach den
drücken einer Befehlsschaltflàche1 (btn_BuchformatBearbeiten) in einem neuen
Formular2 (frm_Buch_FormatBearbeiten) zu bearbeiten. Das Formular2 benutze
ich auch zum erstellen eines neuen Datensatzes. Formular2 ist als Popup
eingestellt.
Im Formular2 habe ich ein Bezeichnungsfeld (Txt_Überschrift) und ein
Textfeld (txt_Buchformat) und ein Textfeld (BuchformatID)
Ich möchte nun das Bezeichnungsfeld (txt_Überschrift) je nach dem ob einer
neuer Datensatz angelegt oder ein Datensatz bearbeitet wird mit einem
entsprechenden Text versehen. Beim Bearbeiten "Format Bearbeiten" beim neu
anlegen eines Datensatzes "Neues Format".
Bisher ist die Überschrift immer gleich etwas verwirren sein kann.
Ich hoffe das ich diesmal alles angegeben habe.
Ich benutze zur zeit folgenden Code
Die Fehler Routine habe ich übersichtshalber entfernt
Im Formular1
__________________________________
Private Sub btn_BuchformatBearbeiten_Click()
If IsNull(Forms!frm_buch_format!lst_Buchformat) Then
MsgBox "Sie haben Keine Auswahl getroffen."
Exit Sub
End If
If Me.lst_Buchformat.ListIndex = -1 Then
Exit Sub
End If
DoCmd.OpenForm "frm_Buch_formatbearbeiten", , , , , , Me.lst_Buchformat
End Sub
________________________________
Private Sub btn_buchformatNeu_Click()
DoCmd.OpenForm "frm_Buch_formatBearbeiten", , , , , , 0
End Sub
______________________________
Im Formular2
_____________________________
Private Sub Form_Load()
If Nz(Me.OpenArgs, "") = "" Then
Exit Sub
End If
Read CLng(Me.OpenArgs)
End Sub
____________________________
Private Sub Read(IngId As Long)
Dim csql As String
Dim oRst As DAO.Recordset

If IngId = 0 Then
Else
csql = "SELECT * FROM tbl_Buchformat WHERE Buchformatid=" & IngId
Set oRst = CurrentDb.OpenRecordset(csql, dbOpenSnapshot)
If oRst.EOF Then
GoTo Read_NODATA
End If

With oRst
Me.BuchformatID = !BuchformatID
Me.txt_Buchformat = !txt_Buchformat
.Close
End With
End If
End Sub
 

Lesen sie die antworten

#1 Thomas Möller
09/06/2009 - 22:36 | Warnen spam
Hallo Jürgen,

Jürgen Großmann schrieb:
Ich habe ein Formular1 (frm_Buch_Format) mit einem Listenfeld
(lst_Buchformat).und zwei Befehlsschaltflàchen
(btn_Buchformat_bearbeiten und btn_BuchformatNeu) Dort wàhle ich einen
Datensatz aus um in in nach den drücken einer Befehlsschaltflàche1
(btn_BuchformatBearbeiten) in einem neuen Formular2
(frm_Buch_FormatBearbeiten) zu bearbeiten. Das Formular2 benutze ich
auch zum erstellen eines neuen Datensatzes. Formular2 ist als Popup
eingestellt.
Im Formular2 habe ich ein Bezeichnungsfeld (Txt_Überschrift) und ein
Textfeld (txt_Buchformat) und ein Textfeld (BuchformatID)
Ich möchte nun das Bezeichnungsfeld (txt_Überschrift) je nach dem ob
einer neuer Datensatz angelegt oder ein Datensatz bearbeitet wird mit
einem entsprechenden Text versehen. Beim Bearbeiten "Format Bearbeiten"
beim neu anlegen eines Datensatzes "Neues Format".
Bisher ist die Überschrift immer gleich etwas verwirren sein kann.
Ich hoffe das ich diesmal alles angegeben habe.
Ich benutze zur zeit folgenden Code
Die Fehler Routine habe ich übersichtshalber entfernt
Im Formular1
__________________________________
Private Sub btn_BuchformatBearbeiten_Click()
If IsNull(Forms!frm_buch_format!lst_Buchformat) Then
MsgBox "Sie haben Keine Auswahl getroffen."
Exit Sub
End If
If Me.lst_Buchformat.ListIndex = -1 Then
Exit Sub
End If
DoCmd.OpenForm "frm_Buch_formatbearbeiten", , , , , , Me.lst_Buchformat
End Sub
________________________________
Private Sub btn_buchformatNeu_Click()
DoCmd.OpenForm "frm_Buch_formatBearbeiten", , , , , , 0
End Sub
______________________________
Im Formular2
_____________________________
Private Sub Form_Load()
If Nz(Me.OpenArgs, "") = "" Then
Exit Sub
End If
Read CLng(Me.OpenArgs)
End Sub



probier mal, die Prozedur "Form_Load" wie folgt zu ergànzen:


Private Sub Form_Load()

If Nz(Me.OpenArgs, "") = "" Then
Exit Sub
End If

If Me.OpenArgs = 0 Then
Me!txt_Überschrift.Caption = "Format Bearbeiten"
Else
Me!txt_Überschrift.Caption = "Neues Format"
End If

Read CLng(Me.OpenArgs)

End Sub


HTH
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen