Hente data fra 2 tabeller til samme felt i Formular

Dit spørgsmål er ikke så godt beskrevet.

Har du mænd og kvinder i forskellige tabeller?
De bør være i samme tabel.

Sidste nummer i en tabel + 1 kan findes ved:

Dmax("[navnpåIDfelt]","navnpådintabel")+1

og i dit formularfelt vil det være:

=Dmax("[navnpåIDfelt]","navnpådintabel")+1

Følgende funktion checker i fldCounter_1 i enten tblMand eller tblKvinde og finder det højeste tal og lægger 1 til.

Public Function fhpNext_Number(bytType As Byte) As Long
' -----------------------------------------------------------------------------------
' Purpose    :
' Parameters :
' Returns    : Long
' Created    : 01-11-07
' Modified  :
' Remarks    :
' -----------------------------------------------------------------------------------
On Error GoTo Error_fhpNext_Number
  Dim lngResult As Long
  Dim rst As New ADODB.Recordset
 
  Select Case bytType
    Case 1
      strSQL = "SELECT fldCounter_1 FROM tblMand ORDER BY fldCounter_1 DESC"
    Case 2
      strSQL = "SELECT fldCounter_1 FROM tblKvinde ORDER BY fldCounter_1 DESC"
  End Select
 
  rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockOptimistic
 
  lngResult = Nz(rst!fldCounter_1, 1) + 1
 
  rst.Close
  Set rst = Nothing

Exit_fhpNext_Number:
  fhpNext_Number = lngResult
  Exit Function

Error_fhpNext_Number:
  lngResult = 1
  Select Case Err.Number
    Case 3021
    Case 2501
    Case Is < 0
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'fhpNext_Number'"
  End Select
  Resume Exit_fhpNext_Number

End Function

Kald fhpNext_Number(1) for mand og fhpNext_Number(2) for kvinde

Kan du ikke bare lave dit medlemsnr felt autonummereret?~)

Det kan jeg ikke da jeg skriver medlemmer ind fra 2 bøger som begge starter med nr. 1 og data er tilbage fra 1965

Lav en forespørgsel der finder max nr for mand og for kvinde. Når du så vælger mand eller kvinde i din dropdown for et nyt medlem, så på afterupdate hændelsen, der ligger du: me.NavnPåDitMedlemsnrFelt = dlookup("[FeltMedMaxMedlemsnr]","NavnForespørgsel","[FeltMedMandKvinde]='" & me.NavnPåDropdown & "'") + 1

Hvis det bliver for kringlet for dig, så lav en kopi af databasen og tøm den for medlemsdata og send den til spg.eksperten@gmail.com så tager jeg et kig på den!~)