06. maj 2002 - 09:46Der er
18 kommentarer og 1 løsning
Dato problem
Jeg har lavet en hændelsesprocedure til en chekbox. Denne hændelse skal ser således ud:
Private Sub Brev1_kryds_Click() Dim Dbs As Database Dim strSQL As String Dim Dato As Date Dim svar As Integer Set Dbs = CurrentDb() If Me.Brev1_kryds = True Then svar = MsgBox("True", vbOKOnly, Me.Kundenummer) Dato = Now() strSQL = "UPDATE TabA SET Brev1Dato= ' " & Dato & " ' where Kundenummer = ' " & Me.Kundenummer & " '" Dbs.Execute strSQL
Else svar = MsgBox("False", vbOKOnly) strSQL = "UPDATE TabA SET Brev1Dato= '' where Kundenummer = ' " & Me.Kundenummer & "'" Dbs.Execute strSQL
End If
End Sub
Det er meningen at Feltet Brev1Dato i tabelen TabA skal opdaters med dato ( = Now() ) når jeg sætter fluebenet i chekboxen. og omvendt skal feltet rydes når jeg fjerner fluebenet. Men feltet Brev1Dato i tabelen TabA bliver ikke opdateret, det er stadig helt tomt.
Hvad skal jeg gøre, er der nogen som kan se fejlen??
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Private Sub Brev1_kryds_Click() Dim Dbs As Database Dim strSQL As String Dim svar As Integer Set Dbs = CurrentDb() If Me.Brev1_kryds = True Then svar = MsgBox("True", vbOKOnly, Me.Kundenummer) strSQL = "UPDATE TabA SET Brev1Dato= Now() where Kundenummer = ' " & Me.Kundenummer & " '" Dbs.Execute strSQL
Else svar = MsgBox("False", vbOKOnly) strSQL = "UPDATE TabA SET Brev1Dato= null where Kundenummer = ' " & Me.Kundenummer & "'" Dbs.Execute strSQL
Terry: Der sker ikke noget, kundenummer er text, og jeg har brugt den første af dem du viser, feltet Brev1Dato er stadig tomt, når jeg sætter fluebenet
Well as Thomas mentions you have to use Null and not '' when you want to set the date field to empty AND the field must accept NULL. Also, are you sure that you have a Kundenummer = Me.Kundenummer ?
Change Dbs.Execute strSQL to Docmd.runsql strSQL this should display a warning before the actual update and this may help you find the problem!
Private Sub Brev1_kryds_Click() If Me.Brev1_kryds = True Then me!Brev1Dato= Format(Now(), "dd-mm-yyyy") Else me!brev1dato = #30/12/1899# ' svarende til -1 = false end if End Sub
Hvis din checkbox er bundet til feltet dato skifter den mellem on/off ved at at bruge ovenstående kode. Ved at bruge '!' henviser du direkte til feltet i formens underliggende foresp.
Jeg har forresten ikke nogen textbox til dato, det bliver smidt direkte ned i tabelen, efter jeg har sat fluebenet
Synes godt om
Ny brugerNybegynder
Din løsning...
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.
