02. august 2002 - 18:19Der er
11 kommentarer og 1 løsning
Jeg er ved at blive sindsyg
Hej jeg har lavet en database med hjælp her fra Eksperten men jeg har nogen problemer som jeg simpelthen ikke kan gennemskue, er der nogen der ville have noget i mod at hjælpe mig. Det er en form som der volder problemer og det er sikkert ikke så svært som jeg gør det til men jeg kan bare ikke gennemskue hvad det er den gør og hvorfor. Jeg tænkte at jeg kunne sende den til en af jer med lidt forklaring af problemet. Jeg vil også meget gerne have en lille forklaring af løsningen. Det skal ikke være en rapport men bare lige en kort forklaring om hvad det er jeg har gjort galt.
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
Hej igen, ja så er jeg kommet hjem. Da jeg havde sendt db'en til Larsen tog jeg lige et smut hjemmefra, jeg burde have informeret om det her også sorry. Larsen>> Meningen er at hvis den ikke findes på listen skal den oprettes i tabellen. Der skal ikke komme nogen besked eller noget.
the surfer>> ja jeg har sendt db'en til Larsen og det var meningen at jeg bare ville sende den til dem der nu meldte sig. Problemet er lidt svært at beskrive da jeg ikke rigtig ved hvor den sidder. Men problemer er der :)
Så er den sendt 2 gange fordi der gik kage i forsendelsen første gang.. :-/
Jeg har rette den lidt til så den spørger om du vil indsætte den nye information.
Det du manglede var, at når du bruger "CurrentProject.Connection" - Funktionen så er der en yderligere funktion "ConnectionString", så det ville være : CurrentProject.Connection.ConnectionString
Farven ser feks. sådan ud nu :
Private Sub cboFarve_NotInList(NewData As String, Response As Integer) On Error Resume Next Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset If MsgBox("Indsæt ny farve?", vbQuestion + vbYesNo, "Ny Farve?") = vbYes Then rs.Open "Bil_Farver", CurrentProject.Connection.ConnectionString, adOpenKeyset, adLockOptimistic rs.AddNew rs!Farve = NewData rs.Update Response = acDataErrAdded rs.Close Else Me.cboFarve = 0 Response = acDataErrContinue End If Set rs = Nothing End Sub
Jeg er meget ked af det men det virker bare ikke. Den bliver ved med at komme med en fejlmeddelelse fordi den af en eller anden årsag kommer gennem subformen udstyr. Jeg må indrømme at jeg ikke ved hvad det er der sker. Desuden finder den sig ikke i at comboboxen er limited to list samtidig med at man prøver at bruge noget der ikke findes på listen???? Prøv at oprette en ny bil med mærket Ferrari ( det findes ikke på listen ) så laver den et eller meget mærkeligt
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
