Moin!
Ich bin neu hier, hab aber ein Problem, an dem ich schon seit Wochen sitz und einfach nicht weiterkomme. Ich hoffe, dass ihr mir helfen könnt.
Also ich habe vor einiger Zeit eine DB bekommen, bei der der Import und Export von Nachrichten, die sich die Mitarbeiter gegenseitig hinterlegen, nicht so wirklich funktioniert.Wie man das Problem löst habe ich schon herausgefunden, wie mans allerdings umsetzt bleibt mir ein winziges Rätzel.
Die Nachrichten müssen, wenn sie als Datensatz gespeichert werden mit einem einem eindeutigen Schlüssel gespeichert werden, der sich aus der Nachrichtennummer und der Mitarbeiterid zusammensetzt. Das eigentliche Problem liegt allerdings darin, dass ich nicht genau weiß wie man das in VB umsetzt. Wenn ihr mir da ein wenig helfen könntet, wäre das super!
Anbei der Quellcode aus dem Formular, wo irgendwo ein Codestückchen hineinmuss, damit die beiden Schlüssel zusammengefügt werden.
Mercie!
_________________________________________________________________
Option Compare Database
Private Const strBase As String = "SELECT * FROM tbl_DAT_Nachricht "
Private strWhere As String
Private Sub cmdClose_Click()
DoCmd.Close acForm, Me.Name
End Sub
Private Sub Form_Current()
'Dim P As Integer
'P = GetPersonalNr(CurrentUser)
Me!intPIDFrom.DefaultValue = intPersonalID
End Sub
Private Sub Form_Open(Cancel As Integer)
strWhere = "WHERE bolerledigt=False "
Me.RecordSource = strBase & strWhere
End Sub
Private Sub grpShow_AfterUpdate()
Select Case Me!grpShow
Case 1
strWhere = " "
Case 2
strWhere = "WHERE bolerledigt=False "
End Select
Me.RecordSource = strBase & strWhere
End Sub
Private Sub txtNachricht_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub txtNachricht_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
txtNachricht.SetFocus
End If
End Sub
Private Sub txtNachricht_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
txtNachricht.SetFocus
End If